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
'만드는 이야기 > VBA' 카테고리의 다른 글
vba) 시트 존재 확인후 추가 (0) | 2014.03.07 |
---|---|
엑셀vba) ParamArray : 인수 갯수 제한 없는 배열 함수로 넘기기 (0) | 2014.03.07 |
엑셀vba) 문자 배열 함수로 넘기기, 시트 여러개 랜덤 위치로 이동 (0) | 2014.03.07 |
엑셀vba) 다음시트 이전시트 활성화 , 인쇄 미리보기 (0) | 2014.03.07 |
엑셀,VBA) VBA로 메크로버튼 만들고 메크로 연걸시키기 (0) | 2014.03.06 |