VBA中的select case 怎样使用？方法/步骤1/7分步阅读

首先是打开vba的编程界面。

2/7

然后是新建一个子过程test7，并写上注释内容。

3/7

定义一些变量。

Dim btn As Integer Dim mybutton As Integer Dim question As String Dim title As String

4/7

为这些变量赋值。

btn = vbYesNoCancel + vbQuestion + vbDefaultButton question = do you want to open a new workbook title = 选择按钮 mybutton = MsgBox(prompt:=question, Buttons:=btn, title:=title)

5/7

接着就是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

然后在顶部菜单栏中找到“运行”。

7/7

回到excle的界面，选择按钮，便会执行相应的操作。

编程语言VBA编程EXCLE表格