1、首先是打开vba的编程界面。
2、然后是新建一个子过程test7，并写上注释内容。
3、定义一些变量。
Dim btn As Integer Dim mybutton As Integer Dim question As String Dim title As String
4、为这些变量赋值。
btn = vbYesNoCancel + vbQuestion + vbDefaultButton question = "do you want to open a new workbook" title = "选择按钮" mybutton = MsgBox(prompt:=question, Buttons:=btn, title:=title)
5、接着就是select case的使用了，语法如下：
Select Case 测试表达式Case 表达式1 如果表达式1匹配测试表达式的语句Case 表达式2 如果表达式2匹配测试表达式的语句Case 表达式N 如果表达式N匹配测试表达式的语句Case Else 如果没有表达式匹配测试表达式要执行的语句End Select
例子：
Select Case mybutton: Case 6: Workbooks.Add Case 7: MsgBox "you can open a new workbook later" End Select
6、然后在顶部菜单栏中找到“运行”。
7、回到excle的界面，选择按钮，便会执行相应的操作。
