[VBA] Control

1. If 

If a < 10 Then

ElseIf a < 20 Then

Else

End If

 

 

2. Select Case

Select Case a
    Case a < 10
    
    Case a < 20
    
    Case Else
    
End Select

 

 

3. Choose

Choose(index, "A", "B", "C", "D")

Choose(index, choice1, choice2, choice3, ...)

index 는 1 이상의 정수

 

 

4. For

1) For

Dim a As Integer
For i = 1 To 10
    a = a + i
Next

 

2) Step 

Dim a As Integer
For i = 10 To 1 Step -1
    a = a + i
Next

 

3) Exit For

Dim a As Integer
For i = 1 To 10
    a = a + i
    If a > 10 Then Exit For
Next

 

4) For Each

Dim ws As Worksheet
For Each ws In ThisWorkbook.Sheets
    Debug.Print ws.Name
Next

 

data = Array("A", "B", "C")
For Each d In data
    Debug.Print d
Next

 

 

5. Do

Do

    Exit Do
    
Loop Until 조건문

 

Do Until 조건문

    Exit Do
    
Loop

Do While 은 Do Until 문과 동일

 

 

6. End

해당 프로시저나 블록을 종료하는 키워드

If a > 10 Then
    End
End If

End : 실행을 즉시 종료. 보통 프로시저를 강제 종료할 때 사용

End Function : Function 프로시저 종료

End If : If문 종료

End Select : Case문 종료

End Sub : Sub 프로시저 종료

End With : With문 종료

 

 

7. DoEvents

운영체제가 다른 일을 할 수 있도록 실행을 포기

For i = 1 To 10000000
    If i Mode 1000 = 0 Then DoEvents
Next

i가 1000의 배수가 될 때마다 사용자가 다른 작업을 할 수 있도록 허용