查找Excel中包含特定數(shù)值的單元格的方法

1、啟動(dòng)Excel并打開一個(gè)成績(jī)表，選擇需要查詢的單元格區(qū)域，如圖1所示。下面通過(guò)編程實(shí)現(xiàn)將選擇單元格區(qū)域中成績(jī)低于72的單元格用紅色標(biāo)示出來(lái)。

圖1　選擇單元格區(qū)域

2、啟動(dòng)Visual Basic編輯器，在工程資源管理器中插入一個(gè)模塊，在該模塊的“代碼”窗口中輸入如下程序代碼：

Sub GetAllCells()

Dim cell As Range

Const RedIndex=3

Application.ScreenUpdating=False '禁止屏幕更新

For Each cell In Selection

If cell.Value<72 Then cell.Interior.ColorIndex=RedIndex

Next cell

Application.ScreenUpdating=True '恢復(fù)屏幕更新

End Sub

提示

在這段程序代碼中，使用For Each……In結(jié)構(gòu)遍歷選擇的單元格區(qū)域，判斷該區(qū)域中單元格的值是否小于72，如果小于，則為單元格填充紅色。

3、按F5鍵運(yùn)行程序，選擇單元格區(qū)域中符合條件的單元格被填充紅色，如圖2所示。

圖2　程序運(yùn)行結(jié)果