Excel VBA вызвать несколько подпрограмм в выбранном случае - PullRequest
Новая
       18

Excel VBA вызвать несколько подпрограмм в выбранном случае

2 голосов
/ 15 июня 2011

Если у меня есть следующий код: 

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:

Как это можно сделать?

best,США

Ответы [ 3 ]

3 голосов
/ 15 июня 2011 
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
0 голосов
/ 15 июня 2011

Вы можете иметь столько утверждений в каждом совпадении, сколько вам нужно; 

Select Case Number
  Case 1
    Call Subroutine1()
    Call Subroutine2()
  Case 2: Call Subroutine2()
  ...
0 голосов
/ 15 июня 2011

Как это: 

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
...