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單元格 背景顯示紅色