Excel VBA - 사례를 검색 할 값을 여러 개 선택하십시오.

Question

X의 위젯 수가 시작 및 종료 횟수에 따라 하루 동안 테스트 된 횟수를 합한 프로그램을 작성했습니다. 일정 시간 후에 위젯이 실패하고 바꿔야하므로 카운트가 0에서 다시 시작됩니다. Select Case를 사용하여 데이터를 계산하고 Excel의 드롭 다운 메뉴를 사용하여 위젯을 선택합니다. 모든 것은 훌륭한 것 외에도 한 가지만 ... 나는 여러 가지 위젯을 선택하여 사례를 검색 할 수 없습니다.

본인은 사례 발표문의 일반적인 원칙을 이해하고 있지만 사례를 통해 하나의 시나리오 만 검색하는 방법은 있습니까?

'Create subroutine that will copy and total data from worksheet 1 to worksheet 2 
Private Sub VTS() 

'Establish variable for CASE to search 
Dim ValR As String 

'Establish counter array 
Dim myarray(1 To 170) 

myarray(1) = Worksheets(2).Range("A7").Value 
myarray(2) = Worksheets(2).Range("A10").Value 
... 

ValR = Worksheets(1).Range("B4").Value 

Select Case ValR 
    Case "1A" 
    Worksheets(2).Range("C7").Copy ' Copy current Total 
    Worksheets(2).Range("A7").PasteSpecial ' Move to "Previous Total" to sum total 
    myarray(1) = Worksheets(1).Range("B3").Value - Worksheets(1).Range("B2").Value 
    If myarray(1) < 0 Then 
     myarray(1) = 1000000 + myarray(1) 
    End If 
    Worksheets(2).Range("B7").Value = myarray(1) 
    Worksheets(2).Range("C7").Value = Worksheets(2).Range("A7").Value + Worksheets(2).Range("B7").Value 
    Worksheets(2).Range("C7").Copy 
    Worksheets(1).Range("B10").PasteSpecial 
    Case "1B" 
    Worksheets(2).Range("C10").Copy 
    Worksheets(2).Range("A10").PasteSpecial 
    myarray(2) = Worksheets(1).Range("B3").Value - Worksheets(1).Range("B2").Value 
    If myarray(2) < 0 Then 
     myarray(2) = 1000000 + myarray(2) 
    End If 
    Worksheets(2).Range("B10").Value = myarray(2) 
    Worksheets(2).Range("C10").Value = Worksheets(2).Range("A10").Value + Worksheets(2).Range("B10").Value 
    Worksheets(2).Range("C10").Copy 
    Worksheets(1).Range("B10").PasteSpecial 
    Case Else 
    MsgBox "Wrong Model Entered/Model Does Not Exist" 
End Select 

End Sub 

의견이 있으십니까?

고맙습니다!

Answer 1

사용자는 별도의 위젯을 ";" 다음 루프를 사용하십시오.

'widgetString = "widget1;widget2;widget3" 

widgets = Split(widgetString, ";") 

for w = 0 to ubound(widgets) 
    thisWidget = widgets(w) 

    'place all of your code here, with thisWidget being the current widget being evaluated 

next w