VBA¿¡¼ ±âº» ¸Þ½ÃÁö ¹Ú½º(MessageBox)ÀÇ ±ÛÀÚ Å©±â¸¦ Á÷Á¢ÀûÀ¸·Î º¯°æÇÏ´Â ¹æ¹ýÀº ¾ø½À´Ï´Ù. ¸Þ½ÃÁö ¹Ú½º´Â ¿î¿µ üÁ¦ÀÇ ±âº» ¼³Á¤À» µû¸£±â ¶§¹®¿¡ ±× ¼Ó¼ºÀ̳ª ½ºÅ¸ÀÏÀ» Á÷Á¢ Á¶Á¤ÇÒ ¼ö ¾ø½À´Ï´Ù.
´ë½Å, »ç¿ëÀÚ ÁöÁ¤ Æû(UserForm)À» ¸¸µé¾î¼ ¸Þ½ÃÁö ¹Ú½º¿Í À¯»çÇÑ ±â´ÉÀ» ±¸ÇöÇÏ°í, ±× Æû¿¡¼ ±ÛÀÚ Å©±â¸¦ Á¶Á¤ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¾Æ·¡´Â °£´ÜÇÑ ¿¹½Ã ÄÚµåÀÔ´Ï´Ù.
- Excel VBA¿¡¼ UserFormÀ» Ãß°¡ÇÕ´Ï´Ù.
- UserForm¿¡ ·¹À̺í(Label)°ú ¹öÆ°(Button)À» Ãß°¡ÇÕ´Ï´Ù.
- ´ÙÀ½°ú °°Àº Äڵ带 »ç¿ëÀÚ ÆûÀÇ ÄÚµå â¿¡ Ãß°¡ÇÕ´Ï´Ù.
Private Sub UserForm_Initialize()
Me.Label1.Caption = "¿©±â¿¡ ¸Þ½ÃÁö¸¦ ÀÔ·ÂÇϼ¼¿ä."
Me.Label1.Font.Size = 14 ' ±ÛÀÚ Å©±â ¼³Á¤
End Sub
Private Sub CommandButton1_Click()
Me.Hide ' ¹öÆ° Ŭ¸¯ ½Ã Æû ¼û±è
End Sub
- ¾Æ·¡ÀÇ Äڵ带 ÅëÇØ UserFormÀ» È£ÃâÇÕ´Ï´Ù.
Sub ShowCustomMessageBox()
UserForm1.Show ' UserForm À̸§¿¡ ¸Â°Ô ¼öÁ¤
End Sub
ÀÌ·¸°Ô ÇÏ¸é »ç¿ëÀÚ Á¤ÀÇ ¸Þ½ÃÁö ¹Ú½º¸¦ »ý¼ºÇÒ ¼ö ÀÖ°í, ±ÛÀÚ Å©±â¸¦ ¿øÇÏ´Â ´ë·Î Á¶Á¤ÇÒ ¼ö ÀÖ½À´Ï´Ù.