首页  »   VBA

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

网友分享于:2013-02-27  浏览:0次
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单元格 背景显示红色

 

相关解决方案

最新解决方案