엑셀,VBA) GoTo 사용법

Sub GotoStatementDemo()

   Dim Number, MyString

      Number = 2     ' 변수를 초기화합니다.

      ' 숫자를 평가하고 적절한 이름표로 분기합니다.

      If Number = 1 Then GoTo Line1 Else GoTo Line2

   

Line1:

      MyString = "숫자가 1입니다."

      GoTo LastLine    ' LastLine으로 갑니다.

Line2:

      ' 다음의 문은 절대 실행되지 않습니다.

      MyString = "숫자가 2입니다."

LastLine:

      Debug.Print MyString    ' 직접 실행 창에 "숫자가 1입니다."를 인쇄합니다.

      

End Sub