Excel VBA中调用选择情况下的多个子例程

Question

如果我有以下代码：

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 

，我想打电话给几个子程序的情况下，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() 
    ...