✔ 最佳答案
如顏色是由設定條件格式變出來, 除了找Microsoft外, 應無人有辦法。
如顏色是儲存格格式而來, 亦無excel工作表函數(如counta, countif之類)可以計算, 但其他方法有兩種:
1. vba
2. 加一欄輔助, 再配合定義名稱加上巨集表函數 getcell
2009-01-08 01:04:10 補充:
GET.CELL方法
假設 A1:A10的字體, 有部份是正常, 有部份是變色的
用MOUSE選B2 >>按 Ctrl + F3 兩鍵 >> 出定義名稱視窗
在現有名稱輸入 colors
在參照到輸入 =get.cell(24,A1)
按確定
然後在B1輸入 =colors
將B1下拉至B10
B欄便會顯示A欄的顏色編號, 如正常是0, 紅色是3, 藍色是5
如求有顏色的格數, 公式是 =countif(b1:b10,”> 0” )
如求紅色的格數, 公式是 =countif(b1:b10,3)
因閣下連vba的步驟都要問, 即完全不懂vba, 故暫不提供
2009-01-08 09:45:49 補充:
Function icolor(arr As Range) As Integer
Application.Volatile
For Each a In arr
icolor = icolor + IIf(a.Interior.ColorIndex = 3, 1, 0)
Next
End Function
在A11 輸入 =icolor(A1:A10)→出 紅色的個數
如有改色, 按F9更新
2009-01-08 14:12:10 補充:
按 Alt + F11 兩鍵 >>按 插入 >>按 模組
將以上的code複製, 貼在模組的視窗上, 關閉視窗, 完成