在Excel表格中，我們經(jīng)常會(huì)使用顏色來突出顯示一些特定的單元格。如果我們想要統(tǒng)計(jì)某一種顏色的單元格數(shù)量，可以借助VBA程序來實(shí)現(xiàn)，并將結(jié)果顯示出來。打開Excel表格并啟用開發(fā)工具1. 打開Exce

在Excel表格中，我們經(jīng)常會(huì)使用顏色來突出顯示一些特定的單元格。如果我們想要統(tǒng)計(jì)某一種顏色的單元格數(shù)量，可以借助VBA程序來實(shí)現(xiàn)，并將結(jié)果顯示出來。

打開Excel表格并啟用開發(fā)工具

1. 打開Excel表格，在菜單欄中點(diǎn)擊【文件】，然后選擇【選項(xiàng)】。

2. 在彈出的對(duì)話框中，點(diǎn)擊【自定義功能區(qū)】選項(xiàng)卡，在右側(cè)的列表中勾選“開發(fā)工具”。

3. 點(diǎn)擊【信任中心】，再點(diǎn)擊【信任中心設(shè)置】，確保已啟用宏功能。

4. 在【宏設(shè)置】中選擇“啟用所有宏”，然后保存并關(guān)閉Excel表格。

插入VBA代碼模塊

1. 在Excel中點(diǎn)擊【開發(fā)工具】，再點(diǎn)擊【Visual Basic】，打開VBA編輯器。

2. 在VBA編輯器中，找到“VBAProject（使用VBA統(tǒng)計(jì)帶顏色單元格數(shù)量.xlsx）”，右鍵點(diǎn)擊并選擇【插入】，再選擇【模塊】。

3. 雙擊打開新插入的模塊，將以下代碼粘貼到代碼窗口中：

```

Sub Count()

Dim a, b, c, d, i, j As Long

' 定義數(shù)據(jù)類型

a Worksheets("Sheet1").Range("A3") ' 將A3單元格的顏色值賦給a

b Worksheets("Sheet1").Range("D4") ' 將D4單元格的顏色值賦給b

c 0 ' 對(duì)c進(jìn)行初始化賦值

d 0 ' 對(duì)d進(jìn)行初始化賦值

For i 2 To 100 ' 從第2行到第100行進(jìn)行循環(huán)執(zhí)行

For j 1 To 9 ' 從第1列到第9列進(jìn)行循環(huán)執(zhí)行

' 查找范圍相當(dāng)于A2:I100

If Worksheets("Sheet1").Cells(i, j) a Then

c c 1 ' 如果找到的單元格顏色與A3單元格相同，則加1

Worksheets("Sheet1").Range("J3") c ' 將結(jié)果輸出到Sheet1表格的J3單元格

End If

If Worksheets("Sheet1").Cells(i, j) b Then

d d 1 ' 如果找到的單元格顏色與D4單元格相同，則加1

Worksheets("Sheet1").Range("J5") d ' 將結(jié)果輸出到Sheet1表格的J5單元格

End If

Next

Next

End Sub

```

運(yùn)行VBA程序并查看結(jié)果

1. 點(diǎn)擊VBA編輯器中的“運(yùn)行”圖標(biāo)，或按下鍵盤上的【F5】鍵，即可執(zhí)行VBA程序。

2. 程序會(huì)計(jì)算出帶有填充顏色的單元格的數(shù)量，并將結(jié)果顯示在Excel表格的J3和J5單元格中。

保留VBA程序的功能

如果想要保留Excel表格中的VBA程序功能，可以將其另存為“啟用宏的工作薄”。

1. 點(diǎn)擊Excel表格中的【文件】，選擇【另存為】。

2. 在保存類型中選擇“Excel 啟用宏的工作薄”。

3. 輸入文件名并保存。

通過以上步驟，您可以使用VBA程序方便地統(tǒng)計(jì)Excel表格中特定顏色單元格的數(shù)量，并保留該功能以供將來使用。