在Excel中，我們經(jīng)常需要對(duì)數(shù)據(jù)進(jìn)行統(tǒng)計(jì)和計(jì)算，而有時(shí)候我們也會(huì)需要計(jì)算填充顏色的單元格個(gè)數(shù)。Excel2007內(nèi)置了一些函數(shù)來(lái)幫助我們進(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ù)來(lái)幫助我們進(jìn)行這樣的計(jì)算，比如COUNT、COUNTA、COUNTIF、COUNTIFS和COUNTBLANK等。但是要計(jì)算填充顏色的單元格個(gè)數(shù)，我們需要自定義函數(shù)來(lái)實(shí)現(xiàn)。下面將分享如何自定義一個(gè)函數(shù)來(lái)處理這一問(wèn)題。

自定義Excel函數(shù)計(jì)算填充顏色個(gè)數(shù)

1. 首先打開(kāi)Microsoft Office Excel 2007，新建文檔并保存文件名為《Excel怎樣計(jì)算填充色個(gè)數(shù).xlsm》。

2. 按下快捷鍵ALT F11打開(kāi)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`，語(yǔ)法規(guī)則為：`COUNTCR(顏色值或顏色值的單元格, 單元格區(qū)域)`。

2. 例如，可以使用以下公式來(lái)計(jì)算紅色單元格的個(gè)數(shù)：`COUNTCR("紅色", B3:D3)`。

3. 根據(jù)不同的顏色值和單元格區(qū)域，可以通過(guò)這個(gè)自定義函數(shù)快速準(zhǔn)確地計(jì)算填充顏色的單元格個(gè)數(shù)。

以上就是如何在Excel中自定義函數(shù)來(lái)計(jì)算填充顏色的單元格個(gè)數(shù)的方法。希望這篇文章對(duì)您有所幫助，如果覺(jué)得內(nèi)容有價(jià)值，請(qǐng)點(diǎn)贊支持！如有任何疑問(wèn)，也歡迎在下方留言提出，謝謝！