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单元格 背景显示红色