VBA MsgBox 함수, VBA MsgBox Function
MsgBox 함수는 대화 상자에 메시지를 표시하고, 사용자가 단추를 클릭 할 때까지 기다린 다음
사용자가 단추를 클릭하면 Integer를 반환
◈ MsgBox Syntax
MsgBox (prompt, [ buttons, ] [ title, ] [ helpfile, context ])
prompt
- 필수 항목
- 대화 상자에 메시지로 표시되는 문자열 식
- 프롬프트의 최대 길이는 약 1024 자입니다.
- 프롬프트가 두 줄 이상으로 구성된 경우 캐리지 리턴 문자 (Chr (13)), 줄 바꿈 문자 (Chr (10))로 줄을 구분
[ bottons ]
- 선택 항목
- 버튼의 수와 유형, 사용할 아이콘 스타일, 기본 버튼의 ID 및 메시지 상자의 양식을 지정하는 값의 합계인 숫자 표현식
- 생략하면 버튼의 기본값은 0
[ title ]
- 선택 항목
- 대화 상자의 제목 표시 줄에 표시되는 문자열 식입니다
- 제목을 생략하면 애플리케이션 이름이 제목 표시 줄에 배치됩니다.
[ helpfile ]
- 선택 항목
- 대화 상자에 상황에 맞는 도움말을 제공하는 데 사용할 도움말 파일을 식별하는 문자열 식
- 도움말 파일이 제공되는 경우 컨텍스트도 제공되어야함.
[ contex ]
- 선택 항목
- 도움말 작성자가 적절한 도움말 항목에 할당 한 도움말 컨텍스트 번호 인 숫자 식
- 컨텍스트가 제공되면 도움말 파일도 제공해야함.
◈ bottons 설정(bottons setting)
| 인자 | 값 | 설명 |
| vbOKOnly | 0 | OK button |
| vbOKCancel | 1 | OK, Cancel buttons. |
| vbAbortRetryIgnore | 2 | Abort, Retry,Ignore buttons. |
| vbYesNoCancel | 3 | Yes, No, Cancel buttons. |
| vbYesNo | 4 | Yes, No buttons. |
| vbRetryCancel | 5 | Retry, Cancel buttons. |
| vbCritical | 16 | Critical Message icon. |
| vbQuestion | 32 | Warning Query icon. |
| vbExclamation | 48 | Warning Message icon. |
| vbInformation | 64 | Information Message icon. |
| vbDefaultButton1 | 0 | First button is default. |
| vbDefaultButton2 | 256 | Second button is default. |
| vbDefaultButton3 | 512 | Third button is default. |
| vbDefaultButton4 | 768 | Fourth button is default. |
| vbApplicationModal | 0 | Applicationmodal 사용자는현재응용프로그램에서작업을계속하기전에메시지상자에응답해야합니다. |
| vbSystemModal | 4096 | Systemmodal 사용자가메시지상자에응답할때까지모든응용프로그램이일시중단됩니다. |
| vbMsgBoxHelpButton | 16384 | 메시지 박스에 help botton 추가 |
| vbMsgBoxSetForeground | 65536 | 메시지박스를맨앞의창으로지정 |
| vbMsgBoxRight | 524288 | 텍스트 우측 정렬 |
◈ RETURN VALUES
| vbOK | 1 | OK |
| vbCancel | 2 | Cancel |
| vbAbort | 3 | Abort |
| vbRetry | 4 | Retry |
| vbIgnore | 5 | Ignore |
| vbYes | 6 | Yes |
| vbNo | 7 | No |
◈ 예 제
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "MsgBox Demonstration"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MyString = "Yes"
Else
MyString = "No"
End If
여기를 방문하시면 더 많은 엑셀 관련 자료를 확인할 수 있습니다.