軟體: 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