弹出对话框的vba怎么写

Question

我想制作一个excel按钮，达到如下效果：

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

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

Answer 1

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

Answer 2

if msgbox("提示",vbyesno)=vbyes then

'执行

else
'退出

end if追问

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

追答

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

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