excel vba 当cell的值变化时 进行判断操作

示例效果：

-----------

在excel的sheet1中，

当A列的值 大于100时 ，其对应B列背景显示红色，C列显示"有数据"

否则，B列背景色正常，C列清空相应的数据

操作步骤

----------

1.新建Excel

2.选择菜单”开发工具“ -》 ”Visual Basic“

打开相应的VBA代码编辑窗口

3.选择 范围 - WorkSheet

选择 事件 - Change

4.输入如下代码

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
ThisRow = Target.Row
If Target.Value > 100 Then
Range("B" & ThisRow).Interior.ColorIndex = 3

Else
Range("B" & ThisRow).Interior.ColorIndex = xlColorIndexNone
Range("C" & ThisRow).Value = ""
End If
End If

End Sub

5.保存代码

6.在A列 如 A1 单元格输入数据120 ，可以看到B1单元格 背景显示红色