Execl 可否用顏色來count格數?

2009-01-08 2:03 am
如A1至A10都打上數字的話 Set Counta 在A11是可以知道有10格都打上數字,但可否A1至A10都填上顏色在A11也可以計算得到!?Excel內附程式還是要用VBA寫(如用VBA麻煩列出步驟),請各位Excel高手幫助解答一下,謝謝!!

回答 (1)

2009-01-08 9:04 am
✔ 最佳答案
如顏色是由設定條件格式變出來, 除了找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複製, 貼在模組的視窗上, 關閉視窗, 完成


收錄日期: 2021-04-16 12:24:24
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20090107000051KK01168

檢視 Wayback Machine 備份