作者：乔山办公网日期：
返回目录：excel表格制作
假设要判断的值在A1，改变单元格后触发事件窗口填写代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And [A1].Value > [B1].Value Then
Target.Interior.ColorIndex = 3Else
Target.Interior.ColorIndex = xlNone
End If
End Sub
注意一般加个IF来判断当前单元格量是否是指定的单元格，就是执行代码。
扩展资料：
vba中可以触发不同事件的命令：
Publicr/ Private] Const 常量名[As 类型]=表达式Global Const 符号常量名称 = 常量值，定义一个符号常量，并将指定表达式的值赋给符号常量。
常量名指定符号常量的名字。符号常量名可以由字母、数字和下划线组成，但只能以字母开头，不能含有空格，表达式指定符号常量的值。该表达式通常由数值型、字符型、逻辑型或日期型数据以及各种运算符组成，但在表达式中不能出现变量和函数。
public用来表示这个常量的作用范围是整个数据库的所有模块。
private则表示这个常量只在使用该声明常量语句的模块中起e799bee5baa6e79fa5e98193e78988e69d83362作用。
说明：
1、除用户定义的符号常量外，VBA还提供了许多符号常量，我们可以直接使用。
2、对数码比较长，并且在程序中多次使用的常量，通常使用符号常量代替。运行程序时，系统自动把程序中的所有符号常量换为赋给它的值。
参考资料来源：百度百科—VBA
点击工作表标签查看代码,将一下zhidao代码复制进入光标所回在区域内:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 And Target.Count = 1 Then
MsgBox "你选中了:" & Target.Text
End If
End Sub
****
点击A列的单元格答,且选中的是1个单元格时触发事件
楼主应该发现这些类模块中的事件前面的知声明：Private Sub
既然是 Private 的，那又如何能够允许你跳出某道个类模块而去执行另外一个类模块中的 Private 的子程序呢？更何专况你去执行工作簿的 Open 事件，而且这个工作簿已经被打开了，又何来再次发属生 Open 事件呢？
没有直接的解百决办法.
换一种思路吧.
在关闭度窗体事件加入:
Application.ScreenUpdating = False'取消Excel刷新问
Sheet1.Range("A65536").Select'关闭窗体后答,自动选择另一个固定单元格
Application.ScreenUpdating = True'恢复Excel刷新
然后在Worksheet_SelectionChange事件回中,加入答
if Target.Address(0, 0)="A65536" then exit sub '如果是自动选择的单元格就退出事件