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