我们要改变单元格里面的填充颜色时，可以手动填充，或者使用条件格式里面进行填充。如果手动填充，工作量大；使用条件格式进行填充，需要预先在单元格上面设定好条件公式。使用VBA程序代码进行判断填充，不需要繁琐的设置就可以实现需要的功能。工具/原料more电脑Excel 2010方法/步骤1/4分步阅读

打开Excel表格，点击【开发工具】，【Visual Basic】，打开VBA工程窗口。

2/4

双击VBA工程资源管理器里面的“Sheet1（Sheet1）”，在代码窗口里面输入以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 改变选择单元格时执行

Dim i, j, k As Integer

Set MySheet1 = ThisWorkbook.Worksheets(Sheet1)

For i = 3 To 1000 第3到1000行

For j = 2 To 9 第二列到第九列

If MySheet1.Cells(i, j) Then 如果单元格不是空白，则执行以下程序

k = MySheet1.Cells(i, j).Value 将单元格里面的值赋给变量 k

If k 60 Then

MySheet1.Cells(i, j).Interior.Color = 65535 填充颜色为黄色

End If

If k = 60 And k 80 Then

MySheet1.Cells(i, j).Interior.Color = 5296274 填充颜色为浅绿色

End If

If k = 80 Then

MySheet1.Cells(i, j).Interior.Color = 5287936 填充颜色为绿色

End If

End If

Next

Next

End Sub

3/4

输入完成之后，点击一下Sheet1工作表上面的单元格就会自动填充颜色，之后在指定范围内的单元格里面输入数值，单元格颜色也会跟着改变。

4/4

判断条件、填充颜色可以根据实际需要，在VBA程序里面修改成所需的。

注意事项

为了减少运行时的负荷，可以自定义宏，之后按需执行。

个人经验，仅供参考。

软件EXCELVBA颜色自动填充