使用VBA程序进行单元格颜色填充

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

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