返回目录:excel表格制作
一般加个IF来判断当前单元格量是否是指定的单元格,是就执行代码。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
[a2] = [a2] + 1
End If
End Sub
没有直接的解决办法.
换一种思百路吧度.
在关闭窗体问事件加入:
Application.ScreenUpdating = False'取消Excel刷新
Sheet1.Range("A65536").Select'关闭窗体后,自动选择另一个固定单元答格
Application.ScreenUpdating = True'恢复Excel刷新
然后在Worksheet_SelectionChange事件内中容,加入
if Target.Address(0, 0)="A65536" then exit sub '如果是自动选择的单元格就退出事件
假设要判断的值在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用来e799bee5baa6e997aee7ad94e78988e69d83362表示这个常量的作用范围是整个数据库的所有模块。
private则表示这个常量只在使用该声明常量语句的模块中起作用。
说明:
1、除用户定义的符号常量外,VBA还提供了许多符号常量,我们可以直接使用。
2、对数码比较长,并且在程序中多次使用的常量,通常使用符号常量代替。运行程序时,系统自动把程序中的所有符号常量换为赋给它的值。
参考资料来源:百度百科—VBA
点击工作表标复签查看代码制,将一下代码复制进入光标所百在区域内:
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个单元格时触发答事件