메시지 박스 제대로 활용하기 (Excel)

 

MsgBox함수 사용하기

제가 포스팅에서 값을 출력할 때 사용했던 Msgbox에 여러 가지 기능에 대해서 알아보는 시간을 가져보도록 하겠습니다.

사실 값을 확인하는 명령어는 Debug.Print라는 명령어가 있습니다. 사용 시 직접 실행 창에 값이 출력됩니다.

이것 또한 유용하니 알아두시는 것을 추천드립니다.

어쨌든 지금까지 값을 확인하기 위해 사용했던 msgbox의 요소들을 알아보도록 합시다.

 

기본적인 메시지만을 띄울 때 사용방법입니다.

MsgBox 문자열

문자열 사이에 변수 또는 함수의 반환 값을 넣고 싶다면 "&"를 사용하시면 됩니다.

MsgBox "문자열" & 변수 & "문자열"

이렇게 말이죠.

 

vbYesNo

평소에도 많이 보시는 형태입니다.

버튼 2개, Yes or No로 구성된 형태이죠.

 

Sub test()
   Dim response As Long
   Dim style As Long
   Dim msg As String
   Dim strTitle As String
   Dim str As String
   
   msg = "저장하시겠습니까?"
   
   style = vbYesNo + vbQuestion + vbDefaultButton2
   
   response = MsgBox(msg, style, "저장")
   
   If response = vbYes Then
        str = "성공하였습니다"
    Else
        str = "실패하였습니다."
    End If
    MsgBox "저장에 " & str
    
End Sub

저장을 할 것인지 하지 않을 것인지를 물어보는 소스코드입니다. style 변수에 vbYesNo가 있습니다. 그 옆에도 2가지가 더 있지만 일단은 yesno부터 보도록 합시다.

실행 시 이러한 결과가 화면에 출력됩니다. 여기서 "?"가 화면에 나오는 이유는 "vbQuestion"이 메시지 박스에 물음표 아이콘을 출력시키는 요소이기 때문입니다.

그 옆에 button2는 무엇이냐 하면 2개의 버튼 중 메시지 박스가 떴을 때 커서가 어디에 가 있을지를 선택하는 것입니다. 2가 아니라 1이었다면 "예" 박스에 커서가 있었을 것입니다.

 

어쨌든 vbYesNo는 이렇게 실행이 됩니다.

 

아이콘

위에서 예시 하나를 봤습니다. 

vbQuestion이라는 요소를 사용하여 물음표 아이콘을 출력했죠. 

물음표 아이콘만이 아니라 경고, 정보 아이콘도 가능합니다.

style = vbYesNo + vbCritical + vbDefaultButton2
response = MsgBox(msg, style, "저장")

위의 소스코드에서 vbCritical로 바꾸면 경고 아이콘으로 바뀌게 됩니다.

정보 아이콘 또한 같은 방법으로 만들 수 있습니다.

style = vbYesNo + vbInformation + vbDefaultButton2
response = MsgBox(msg, style, "저장")

아주 신기하군요.

 

vba msgbox 인수 목록

목록을 가져왔습니다. 이 링크에 들어가시면 전체 요소들을 보실 수 있습니다. 

이걸 외우실 필요는 없지만 필요하실 때 사용하시기를 바랍니다.