[算表] CountColor VBA語法(已解決)
軟體: excel
版本: 2007、2010
前幾天在網路上搜尋統計儲存格顏色的相關資料時，
看到知識+有人分享一個VBA的語法
Function CountColor(標準格 As Range, 範圍 As Range)
Dim 單元格, 顏色, 數量
Application.Volatile
For Each 單元格 In 範圍
If 單元格.Interior.ColorIndex = 標準格.Interior.ColorIndex Then
數量 = 數量 + 1
End If
Next 單元格
CountColor = 數量
End Function
來源:http://ppt.cc/sW-8
用在OS為中文的系統裡沒有問題，可以正常使用
但是用在OS為日文的電腦裡卻出現亂碼@@
想把上述VBA語法裡的中文字改成英文
但卻找不到該用哪些英文字取代XD
不知道有沒有人可以幫幫忙 ~~
自行回答XD
google了一些用語，實際改改看之後就成功了XD
附上改好的~
Function CountColor(StandardCells As Range, Rng As Range)
Dim rCells, Color, Count
Application.Volatile
For Each rCells In Rng
If rCells.Interior.ColorIndex = StandardCells.Interior.ColorIndex Then
Count = Count + 1
End If
Next rCells
CountColor = Count
End Function
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.45.0.84
※ 文章網址: http://www.ptt.cc/bbs/Office/M.1402123163.A.4F3.html
※ 編輯: hp19910110 (114.45.0.84), 06/07/2014 14:50:45
→
06/07 14:50, , 1F
06/07 14:50, 1F
→
06/07 14:51, , 2F
06/07 14:51, 2F
→
06/07 14:53, , 3F
06/07 14:53, 3F
→
06/07 14:56, , 4F
06/07 14:56, 4F
→
06/07 14:56, , 5F
06/07 14:56, 5F
→
06/07 14:59, , 6F
06/07 14:59, 6F
→
06/07 14:59, , 7F
06/07 14:59, 7F
→
06/07 15:01, , 8F
06/07 15:01, 8F
→
06/07 15:04, , 9F
06/07 15:04, 9F
→
06/07 15:06, , 10F
06/07 15:06, 10F
→
06/07 15:06, , 11F
06/07 15:06, 11F
→
06/07 15:11, , 12F
06/07 15:11, 12F
剛剛試著把Range改成Rng，結果卻自動除錯了@@~
他出現"引述不為選擇性(optional)"
※ 編輯: hp19910110 (114.45.0.84), 06/07/2014 15:20:20
→
06/07 15:24, , 13F
06/07 15:24, 13F
成功了~! 感謝S大
也把上面的語法一起更正了 =)
另外想再問一個，我6/3有在板上發問(#1JZStyRy)
當時有提到這個語法
Application.AutoCorrect.AddReplacement What:="4444", Replacement:="大明"
這裡出現中文字的話，到時候用在OS為日文的電腦裡會不會一樣出現亂碼呢@@
※ 編輯: hp19910110 (114.45.0.84), 06/07/2014 15:34:11
→
06/07 15:36, , 14F
06/07 15:36, 14F
→
06/07 15:45, , 15F
06/07 15:45, 15F
→
06/07 15:45, , 16F
06/07 15:45, 16F
→
06/07 15:47, , 17F
06/07 15:47, 17F
→
06/07 16:29, , 18F
06/07 16:29, 18F
→
06/07 16:54, , 19F
06/07 16:54, 19F
Office 近期熱門文章
PTT數位生活區 即時熱門文章
