VBA中的select case 怎样使用？

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的界面，选择按钮，便会执行相应的操作。