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

и я хочу вызвать несколько подпрограмм в случае 1:

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

лучший, США


call excel vba subroutine
person user366121    schedule 15.06.2011    source источник

Ответы (2)


arrow_upward
0
arrow_downward

Как это:

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
person Jon Egerton    schedule 15.06.2011

arrow_upward
-1
arrow_downward

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

Select Case Number
  Case 1
    Call Subroutine1()
    Call Subroutine2()
  Case 2: Call Subroutine2()
  ...
person Alex K.    schedule 15.06.2011