Monday, May 28, 2007
Excel VBA 엑셀 비베] 무한 루프, 루프 탈출, 빠져 나오기 방법; Do Loop Exit Do
비베에서는 "Do ... Loop"문으로 간단히 무한루프를 구현할 수 있습니다. 루프에서 빠져나오려면 "Exit Do"문을 사용합니다. C언어의 break문에 해당합니다.
빠져나올 수 없는 영원한 무한루프에서는 키보드의 Ctrl+Break키를 누르면 프로그램 전체의 실행이 강제로 종료됩니다. (Ctrl키를 누르면서 Pause/Break키를 누르는 것입니다.)
아래 예제는 무한 루프 속에서 대화상자를 계속 출력하는 예제입니다. 편의상 3개까지만 나타내고 종료합니다.
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.
빠져나올 수 없는 영원한 무한루프에서는 키보드의 Ctrl+Break키를 누르면 프로그램 전체의 실행이 강제로 종료됩니다. (Ctrl키를 누르면서 Pause/Break키를 누르는 것입니다.)
아래 예제는 무한 루프 속에서 대화상자를 계속 출력하는 예제입니다. 편의상 3개까지만 나타내고 종료합니다.
비베에서 무한루프(Infinity Loop) 만들기 예제
(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.
Sub Infinity_Loop_Example()
Dim Counter
Counter = 0
Do
MsgBox "무한 루프: Ctrl+Break키로 강제 종료 가능"
'''''''''''''''''''''''''''''''''''''''''
' 이 부분이 없으면 영원한 무한 루프
'
Counter = Counter + 1
If Counter = 3 Then
Exit Do
End If
'''''''''''''''''''''''''''''''''''''''''
Loop
End Sub
Dim Counter
Counter = 0
Do
MsgBox "무한 루프: Ctrl+Break키로 강제 종료 가능"
'''''''''''''''''''''''''''''''''''''''''
' 이 부분이 없으면 영원한 무한 루프
'
Counter = Counter + 1
If Counter = 3 Then
Exit Do
End If
'''''''''''''''''''''''''''''''''''''''''
Loop
End Sub
tag: office
엑셀 Excel | 워드 Word | VBA 매크로 | 오피스
<< Home