엑셀 매크로 프로그램 작성시 메시지 처리에 MsgBox에 대한
사용법에 대한 예제를 알아보겠습니다.
MsgBox 함수
* 문법 : MsgBox (prompt, buttons, title, helpfile, context)
- prompt : 내용
- buttons : 아이콘 및 버튼 설정(생략가능)
- title : 제목 (생략가능)
- helpfile, context : 파일이름, 항목번호 설정(생략가능)
예제 1
Sub test_MsgBox_1()
MsgBox ("안녕하세요?") '또는 MsgBox "안녕하세요?"
End Sub
예제 2
Sub test_MsgBox_2()
MsgBox "안녕하세요?", , "메시지 박스 테스트(1) "
End Sub
예제 3
Sub test_MsgBox_3()
MsgBox Title:="안녕하세요?", prompt:="메시지 박스 테스트(1) "
End Sub
예제 4
Sub test_MsgBox_4()
'두줄로 하고 싶을 때 vbcr 을 추가한다.
MsgBox prompt:="메시지 박스 테스트(1) " & vbCr & "테스트 성공 !"
End Sub
예제 5
Sub test_MsgBox_5()
'셀을 값을 가져온다.
MsgBox prompt:=Range("a1").Value
End Sub
예제 6
Sub test_MsgBox_6()
'Buttons 의 아이콘 표시
MsgBox prompt:="메시지 박스 테스트(1)", Buttons:=vbCritical
MsgBox prompt:="메시지 박스 테스트(2)", Buttons:=vbQuestion
MsgBox prompt:="메시지 박스 테스트(3)", Buttons:=vbExclamation
MsgBox prompt:="메시지 박스 테스트(4)", Buttons:=vbInformation
End Sub
예제 7
Sub test_MsgBox_7()
'Buttons 의기능구현
MsgBox prompt:="메시지 박스 테스트(1)", Buttons:=vbYesNoCancel
End Sub
예제 8
Sub test_MsgBox_8()
'Buttons 의기능구현 + 아이콘 포함
MsgBox prompt:="메시지 박스 테스트(1)", Buttons:=vbQuestion + vbYesNoCancel
End Sub
예제 9
'[확인] vbOK -> 1
'[취소] vbCancel -> 2
'[중단] vbAbort -> 3
'[다시시도] vbRetry -> 4
'[무시] vbIgnore -> 5
'[예] vbYes-> 6
'[아니오] vbNo -> 7
Sub test_MsgBox_9()
Dim i As Integer
i = MsgBox(prompt:="메시지 박스 테스트(1)", Buttons:=vbYesNo)
If i = 6 Then
MsgBox "Yes"
Else
MsgBox "No"
End If
End Sub
예(Y) 을 클릭했을 때 메시지를 보여준다.
메시지 박스는 매크로 프로그램에서 많이 사용하는 함수 입니다.
잘 사용바랍니다.
댓글