Excel VBA 继续执行？退出？确认

这个函数的功能是，当你要执行一段代码的时候，给你一个再次确认的机会，防止误操作，特别你的代码是要大量打印、查询运算的时候，有你一阵手忙脚乱的......

代码如下：

在模块1里：

Function wContinue(Msg) As Boolean    '确认继续函数    Dim Config As Long    Dim a As Long    Config = vbYesNo + vbDefaultButton2 + vbQuestion    Ans = MsgBox(Msg & Chr(10) & "是(Y)继续?" & Chr(10) _    & "否(N)返回！", Config, "请确认操作！")     wContinue = Ans = vbYesEnd Function

在命令按钮里：

Private Sub CommandButton1_Click()    If Not wContinue("即将执行.......,确认？") Then        MsgBox "你点了【否(N)返回】！程序退出！"        Exit Sub    End If    MsgBox "你点了【是(Y)继续】！"End Sub

简单解释一下代码：

Function wContinue(Msg) As Boolean

该自定义函数返回一个逻辑值，True or False

msg是我们可以任意输入的一个提示字符串，在这里就是

"即将执行.......,确认？"

然后通过msgbox 这个函数来获取我们点击的按钮（vbYesNo）并返回相应的结果。

我们根据点击的按钮，决定后续操作。在CommandButton1里为了演示效果，我们写了一个MsgBox代码，实际上，我们一般这样写就可以了：

If Not wContinue("即将执行.......,确认？") Then Exit Sub

这个Function wContinue(Msg) As Boolean可以直接拿去使用，函数名称也可以改成你喜欢的。示例文件我放在下面，有需要的可以自行下载。