[已解决]有提示框的“确定”来选定是否执行要执行的一句

qhllqhll

求助各位老师：写一段vba代码：有提示框的“确定”来选定是否执行要执行的一句
例如： 我要清空 B5:C100 选区内容，在点击宏按钮后 先弹出一个提示框 ，提示框则提示“是否真的要清空你所选的内容？”，要求提示框的下面有“确定”和“取消”两个选项，这时点击“确定”则执行
[B5:C100 ]=""; 如果点击“取消”则退出不执行清空。
请问能否做到，请赐教代码
谢谢

最佳答案

月排行榜 / 总排行榜

爱疯

2012-11-13 16:17

Sub a()
    Dim msg As Long
    msg = MsgBox("确定清除吗？", 1)
    If msg = 1 Then
        [B5:C100 ] = ""
    End If
End Sub

跳转到最佳答案楼层

爱疯

Sub a()
    Dim msg As Long
    msg = MsgBox("确定清除吗？", 1)
    If msg = 1 Then
        [B5:C100 ] = ""
    End If
End Sub

qhllqhll

爱疯 发表于 2012-11-13 16:17
Sub a()
    Dim msg As Long
    msg = MsgBox("确定清除吗？", 1)

非常感谢版主的热心刺激

qhllqhll

爱疯 发表于 2012-11-13 16:17
Sub a()
    Dim msg As Long
    msg = MsgBox("确定清除吗？", 1)

大师您好：再请教一个问题: 您知道 vb 里关闭推出本窗体的代码语句吗？
意思是：在启动excel 文件时 调用 vb.dll 文件里的窗体，有一个输入密码的窗口，想如果输入的密码正确，则自动关闭推出窗体对话框，

爱疯

不要这么称呼，我懂的不多，也有很多不懂的地方。

建议你再新发一个帖子，具体说明并上传附件。

qhllqhll

爱疯 发表于 2012-11-13 16:51
不要这么称呼，我懂的不多，也有很多不懂的地方。

建议你再新发一个帖子，具体说明并上传附件。

好{:1112:}
谢谢谢谢