Re: [算表] 以顏色為依據統計個數

看板Office作者windknife18 (windknife18)時間15年前 (2010/10/01 00:12)推噓1(1推 0噓 0→)

留言1則, 1人參與討論串2/2 (看更多)

另外一種是使用get.cell 的方式首先點選D1 然後按 Ctrl+F3 新增名稱名稱 color 參照到 =GET.CELL("63",Sheet1!A1) D1 =color 然後拉到 F1, 然後將D1:F1選取，點選右下黑點兩下就會出現所有儲存格顏色的數字了假如你要的顏色是 55 然後G1 =COUNTIF(D1:F1,55) 同樣點選右下黑點兩下，就會得到答案了如果覺得中間多了D:F欄怪怪的，可以隱藏起來 ^_^ ※ 引述《shunching (龍魂不滅)》之銘言： : 軟體: Office Excel : 版本: 2003 : 昨天有貼一篇問題，經過一番查詢後，終於找到答案 : 不過是使用巨集的方式，要注意的是在別台電腦由於未設定巨集 : 可能在別台電腦開啟時會出現警告 : 由於巨集不能即時計算，所以當有變化時須按F9來更新結果 : 算班表的時候還不錯用，提共給大家參考 : ========== : 1.以填充格顏色統計個數 : Alt+F11開啟巨集編輯器，點選插入->模組，輸入以下內容 : Function CountByColor(Ref_color As Range, CountRange As Range) : Application.Volatile : Dim iCol As Integer : Dim rCell As Range : iCol = Ref_color.Interior.ColorIndex : For Each rCell In CountRange : If iCol = rCell.Interior.ColorIndex Then : CountByColor = CountByColor + 1 : End If : Next rCell : End Function : 關閉巨集編輯器，在欲計算儲存格寫入以下公式 : 公式=CountByColor(A1,A3:S3) : 其中A1為參照單元格，A3:S3為範圍 (可隨意變化) : 就是計算出 A3~S3 範圍中，與A1相同填充格顏色的個數 : ┌─┬─┬─┬─┬─┐ : │ │Ａ│Ｂ│Ｃ│Ｄ│ : ├─┼─┼─┼─┼─┤ : │１│ │ │ │2 │ : ├─┼─┼─┼─┼─┤ : │２│ │ │ │1 │ : ├─┼─┼─┼─┼─┤ : │３│ │ │ │3 │ : ├─┼─┼─┼─┼─┤ : │４│ │ │ │0 │ : └─┴─┴─┴─┴─┘ : ========== : 2.以字體顏色統計個數 : Alt+F11開啟巨集編輯器，點選插入->模組，輸入以下內容 : Function colorcount(rng As Range, ang As Range) : Dim a As Range, b As Integer : For Each a In ang : If a.Font.ColorIndex = rng.Font.ColorIndex Then : b = b + 1 : End If : Next : colorcount = b : End Function : 關閉巨集編輯器，在欲計算儲存格寫入以下公式 : 公式=colorcount(A1,A3:S3) : 其中A1為參照單元格，A3:S3為範圍 (可隨意變化) : 就是計算出 A3~S3 範圍中，與A1相同字體顏色的個數 : 可點選資料編輯列按Enter以更新數據 : ┌─┬─┬─┬─┬─┐ : │ │Ａ│Ｂ│Ｃ│Ｄ│ : ├─┼─┼─┼─┼─┤ : │１│1 │1 │1 │2 │ : ├─┼─┼─┼─┼─┤ : │２│1 │1 │1 │1 │ : ├─┼─┼─┼─┼─┤ : │３│1 │1 │1 │3 │ : ├─┼─┼─┼─┼─┤ : │４│1 │1 │1 │0 │ : └─┴─┴─┴─┴─┘ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 122.116.146.144