excel vba在特定情况下调用多个子例程

如果我有以下代码：

Select Case Number Case 1: Call Subroutine1() Case 2: Call Subroutine2() Case 3: Call Subroutine3() Case 4: Call Subroutine4() Case 5: Call Subroutine5() Case 6: Call Subroutine6() End Select 

我想在case 1中调用几个子例程：

如何做呢？

最好的，美国

Answer 1

 Select Case Number Case 1: Call Subroutine1a() Call Subroutine1b() Call Subroutine1c() Case 2: Call Subroutine2() Case 3: Call Subroutine3() Case 4: Call Subroutine4() Case 5: Call Subroutine5() Case 6: Call Subroutine6() End Select 

Answer 2

喜欢这个：

 Select Case Number Case 1: Call Subroutine1a() Call Subroutine1b() Case 2: Call Subroutine2() Case 3: Call Subroutine3() Case 4: Call Subroutine4() Case 5: Call Subroutine5() Case 6: Call Subroutine6() End Select 

Answer 3

您可以在每个案例匹配中尽可能多的陈述;

 Select Case Number Case 1 Call Subroutine1() Call Subroutine2() Case 2: Call Subroutine2() ...