请问这段代码要放在新插入的模块中还是放到THISWORKBOOK里面?
打开你的表格,在工作表标签处选中需要陵者实现功能的工作尺罩薯表,单击右键--查看代码。
输入:闷梁
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then ’A1单元格
If Target.Value = 123 Then ‘单元格数值等于123
Call aa ‘调用宏aa
End If
End If
End Sub
插入一个模块,输入些列宏代码。
Sub aa()
MsgBox "1"
End Sub
在你对应嫌悄携表的编辑栏运岁中输入如下代码,宏1为你要运行的宏
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1"芹伏 Then
Call 宏1
End If
End Sub
以上代码当A1输入数据就运行宏1。
如果你只指定输入123,那么修改如下
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" AND Target.Value=123 Then
Call 宏1
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) <局物迹> "A1" Then Exit Sub
call 你桐并的蚂扮宏
End Sub
THISWORKBOOK里面加入
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 1 And Target.Value = "123" Then
a'这行可以调用信庆猛其差芦他指滑桥定的宏
end if
End Sub
