標題:
Execl 可否用顏色來count格數?
發問:
最佳解答:
如顏色是由設定條件格式變出來, 除了找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複製, 貼在模組的視窗上, 關閉視窗, 完成
其他解答:
Execl 可否用顏色來count格數?
發問:
此文章來自奇摩知識+如有不便請留言告知
如A1至A10都打上數字的話 Set Counta 在A11是可以知道有10格都打上數字，但可否A1至A10都填上顏色在A11也可以計算得到!?Excel內附程式還是要用VBA寫(如用VBA麻煩列出步驟)，請各位Excel高手幫助解答一下，謝謝!! 更新: 抱歉 美香小姐你可以詳細一點告訴我怎樣做嗎!!? (顏色是從存儲格而來的) 更新 2: 真的很抱歉 可能是我表達不好 其實我是想問存儲格背後顏色(即是底色)而不是字體顏色，請問有辦法嗎!? ps:我真的不懂vba的 更新 3: 背景色的我找到了是用 =get.cell(38,a1)就可以了，但是更新一次顏色就要從新拉一次，有點麻煩，可以教我用一個button按一次就能出答案嗎!? 我只知道 If Cells(2, 3).Interior.ColorIndex = 3 then 但不懂做顯示數字出來，有人可以教我嗎!? 更新 4: 謝謝你 已經能做我需要的事了，還有一事，如果我想清除所有顏色再來，那要怎樣做!!?最佳解答:
如顏色是由設定條件格式變出來, 除了找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複製, 貼在模組的視窗上, 關閉視窗, 完成
其他解答:
文章標籤
全站熱搜
留言列表
