弹出对话框的vba怎么写

我想制作一个excel按钮,达到如下效果:

点击按钮时:会跳出一个选择框,提示内容:你已启动成本核算模块,将清除你excel内所有内容,并新建核算框架

点击 是 执行,以后的程序,点击否,则退出

Sub 重复确认()
    If MsgBox("你已启动成本核算模块,将清除你excel内所有内容,并新建核算框架", vbOKCancel) = vbOK Then
【……需要执行的功能代码】
    End If
End Sub

温馨提示:答案为网友推荐,仅供参考
第1个回答  推荐于2016-02-26
if msgbox("提示",vbyesno)=vbyes then

'执行

else
'退出

end if追问

如何将 yes no 改成中文的 是或否

追答

运行后 就是中文的 除非你系统是英文系统

本回答被提问者和网友采纳

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网