第1个回答 2013-04-22
不用点击按钮监测,在输入正确 按回车后就自动运行代码A
在你要操作的sheet表 如sheet1 的VBA代码,写入
Private Sub Worksheet_Change(ByVal Target As Range)
if sheets(1).cells(1,1)="正确" then
代码A。。。。。。
end if
end sub
第2个回答 2020-01-29
其实你已经举得差不多了,下面的也只是变形:
range(cells(1,1),
cells(100,1))
如果获取a1周围一块的空间,可以:
range("a1").currentregion
如果获取表内所有使用区域,可以:
activesheet.usedrange
第3个回答 2013-04-22
If MsgBox(“Continue?”,vbYesNo)<>vbYes Then
代码A