EXCEL 当A1=“正确”时 VBA弹出选择对话框是与否!VBA代码怎么写??

选择是时,就执行 A代码 A代码是我自己写的
选择否时,就结束 END
点击按钮检测

If Range("a1") = "正确" Then
respons = MsgBox("提示……", vbYesNo)
If respons = vbYes Then
A 代码
ElseIf respons = vbNo Then
B代码
Else
End If
End If
加入这样的语句 试试……
温馨提示:答案为网友推荐,仅供参考
第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
相似回答