為什麼這篇vba顏色語法鄉民發文收入到精華區：因為在vba顏色語法這個討論話題中，有許多相關的文章在討論，這篇最有參考價值！作者hp19910110 (融兒)看板Office標題[算表] 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
→ hp19910110:哇! 感謝S大!! 06/07 14:51
→ hp19910110:另想請問S大的VBA語法跟我目前使用的這個語法差在哪裡? 06/07 14:53
→ soyoso:其實都是自訂，所以差別不大；另外因為在VBA內Cells是 06/07 14:56
→ soyoso:worksheet object 因此儘可能宣告時不要用Cells這個名稱 06/07 14:56
→ soyoso:Range也是，宣告變數名稱時應避免 06/07 14:59
→ hp19910110:哦~原來如此!是說S大的檔案我按啟用編輯後會出現#NAME? 06/07 14:59
→ soyoso:有開啟安全性嗎? 06/07 15:01
→ hp19910110:噢! 忘記調了XD 感謝提醒~ 06/07 15:04
→ hp19910110:那如果我想用原本使用的語法，我該把Cells跟Range改成 06/07 15:06
→ hp19910110:哪個字呢~ 06/07 15:06
→ soyoso:沒有制式，不過我常用像Rng,UsedRng，其實就是省略些字母 06/07 15:11
剛剛試著把Range改成Rng，結果卻自動除錯了@@~
他出現"引述不為選擇性(optional)"
※ 編輯: hp19910110 (114.45.0.84), 06/07/2014 15:20:20
→ soyoso:原本的for each Cells In Range這裡的Range也要改成Rng 06/07 15:24
成功了~! 感謝S大
也把上面的語法一起更正了 =)
另外想再問一個，我6/3有在板上發問(#1JZStyRy)
當時有提到這個語法
Application.AutoCorrect.AddReplacement What:="4444", Replacement:="大明"
這裡出現中文字的話，到時候用在OS為日文的電腦裡會不會一樣出現亂碼呢@@
※ 編輯: hp19910110 (114.45.0.84), 06/07/2014 15:34:11
→ soyoso:這要測試一下了，晚點回報 06/07 15:36
→ hp19910110:感謝S大!! 目前手邊沒有OS為日文的電腦可做測試>_< 06/07 15:45
→ hp19910110:再麻煩了!! 06/07 15:45
→ soyoso:^^目前安裝中，大概半小時後可進行測試 06/07 15:47
→ hp19910110:謝謝S大的測試回報！！ 06/07 16:54