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

选择是时,就执行A代码A代码是我自己写的选择否时,就结束END点击按钮检测... 选择是时,就执行 A代码 A代码是我自己写的
选择否时,就结束 END
点击按钮检测
展开
 我来答
laurenceluan
推荐于2017-09-28 · TA获得超过9289个赞
知道大有可为答主
回答量:9443
采纳率:50%
帮助的人:2829万
展开全部
If Range("a1") = "正确" Then
respons = MsgBox("提示……", vbYesNo)
If respons = vbYes Then
A 代码
ElseIf respons = vbNo Then
B代码
Else
End If
End If
加入这样的语句 试试……
LarryLain
2013-04-22 · 超过74用户采纳过TA的回答
知道小有建树答主
回答量:188
采纳率:0%
帮助的人:74.9万
展开全部
不用点击按钮监测,在输入正确 按回车后就自动运行代码A
在你要操作的sheet表 如sheet1 的VBA代码,写入
Private Sub Worksheet_Change(ByVal Target As Range)
if sheets(1).cells(1,1)="正确" then
代码A。。。。。。
end if
end sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友244d0c0536c
2020-01-29 · TA获得超过3699个赞
知道大有可为答主
回答量:3053
采纳率:35%
帮助的人:218万
展开全部
其实你已经举得差不多了,下面的也只是变形:
range(cells(1,1),
cells(100,1))
如果获取a1周围一块的空间,可以:
range("a1").currentregion
如果获取表内所有使用区域,可以:
activesheet.usedrange
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
焦夜卉0hr
2013-04-22 · TA获得超过171个赞
知道小有建树答主
回答量:243
采纳率:0%
帮助的人:89.5万
展开全部
If MsgBox(“Continue?”,vbYesNo)<>vbYes Then

代码A
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式