Excel如何計(jì)算填充色個(gè)數(shù)
在Excel中,我們經(jīng)常需要對(duì)數(shù)據(jù)進(jìn)行統(tǒng)計(jì)和計(jì)算,而有時(shí)候我們也會(huì)需要計(jì)算填充顏色的單元格個(gè)數(shù)。Excel2007內(nèi)置了一些函數(shù)來幫助我們進(jìn)行這樣的計(jì)算,比如COUNT、COUNTA、COUNTIF、
在Excel中,我們經(jīng)常需要對(duì)數(shù)據(jù)進(jìn)行統(tǒng)計(jì)和計(jì)算,而有時(shí)候我們也會(huì)需要計(jì)算填充顏色的單元格個(gè)數(shù)。Excel2007內(nèi)置了一些函數(shù)來幫助我們進(jìn)行這樣的計(jì)算,比如COUNT、COUNTA、COUNTIF、COUNTIFS和COUNTBLANK等。但是要計(jì)算填充顏色的單元格個(gè)數(shù),我們需要自定義函數(shù)來實(shí)現(xiàn)。下面將分享如何自定義一個(gè)函數(shù)來處理這一問題。
自定義Excel函數(shù)計(jì)算填充顏色個(gè)數(shù)
1. 首先打開Microsoft Office Excel 2007,新建文檔并保存文件名為《Excel怎樣計(jì)算填充色個(gè)數(shù).xlsm》。
2. 按下快捷鍵ALT F11打開VBA(宏)編輯界面,然后選擇菜單欄【插入】中的【模塊(M)】。
3. 在插入的模塊中,復(fù)制以下代碼:
```vba
Option Base 1
Function COUNTCR(m As String, r As Range)
Dim rn As Range, k As Long, mb(10, 2)
mb(1, 1) "深紅"
mb(2, 1) "紅色"
mb(3, 1) "橙色"
mb(4, 1) "黃色"
mb(5, 1) "淺綠"
mb(6, 1) "綠色"
mb(7, 1) "淺藍(lán)"
mb(8, 1) "藍(lán)色"
mb(9, 1) "深藍(lán)"
mb(10, 1) "紫色"
mb(1, 2) 192
mb(2, 2) 255
mb(3, 2) 49407
mb(4, 2) 65535
mb(5, 2) 5296274
mb(6, 2) 5287936
mb(7, 2) 15773696
mb(8, 2) 12611584
mb(9, 2) 6299648
mb(10, 2) 10498160
For Each rn In r
If (m, mb, 2, False) Then
k k 1
End If
Next rn
COUNTCR k
End Function
```
使用自定義函數(shù)計(jì)算填充顏色個(gè)數(shù)
1. 返回到工作表窗口,在需要計(jì)算的單元格中輸入函數(shù)`COUNTCR`,語法規(guī)則為:`COUNTCR(顏色值或顏色值的單元格, 單元格區(qū)域)`。
2. 例如,可以使用以下公式來計(jì)算紅色單元格的個(gè)數(shù):`COUNTCR("紅色", B3:D3)`。
3. 根據(jù)不同的顏色值和單元格區(qū)域,可以通過這個(gè)自定義函數(shù)快速準(zhǔn)確地計(jì)算填充顏色的單元格個(gè)數(shù)。
以上就是如何在Excel中自定義函數(shù)來計(jì)算填充顏色的單元格個(gè)數(shù)的方法。希望這篇文章對(duì)您有所幫助,如果覺得內(nèi)容有價(jià)值,請點(diǎn)贊支持!如有任何疑問,也歡迎在下方留言提出,謝謝!