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