¿¹Á¦ ÆÄÀÏ ³»·Á¹Þ±â
VBA ÀÔ¹®°ÁÂ : Introducing VBA
Visual Basic À̶ó°í Çϴϱî, '±×°Å...
¿¹Àü¿¡ »ç¿ëÇÏ´ø BASIC°ú ºñ½ÁÇÑ ¾ð¾î°¡ ¾Æ´Ñ°¡?' ÇÏ°í »ý°¢ÇÏ´Â ºÐÀÌ È¤½Ã ÀÖÀ»Áöµµ ¸ð¸£°Ú½À´Ï´Ù. ¸Â½À´Ï´Ù! ÇÏÁö¸¸ »ç½Ç ±× »Ñ¸®´Â
BASIC¿¡ µÎ°í ÀÖ½À´Ï´Ù¸¸ ¿¹ÀüÀÇ BASIC ¾ð¾î¿Í´Â »ç¹µ ´Ù¸¨´Ï´Ù. ¡¡
BASIC & VB¿¡ °üÇÑ ±âÃÊ Áö½Ä
BASICBeginner's All purpose
Symbolic Instruction Code À̶ó´Â ÇÁ·Î±×·¡¹Ö ¾ð¾î´Â 1964³â ¹Ì±¹ÀÇ Dartmouth ´ëÇп¡¼ °³¹ßÇÑ
ÇÁ·Î±×·¡¹Ö ¾ð¾îÀÔ´Ï´Ù. BASICÀ̶ó´Â ´Ü¾î¿¡¼µµ ¾Ë ¼ö ÀÖµíÀÌ ¹è¿ì±â°¡ »ó´ëÀûÀ¸·Î ¿ëÀÌÇÑ ¾ð¾î¶ó°í ÇÒ ¼ö ÀÖ½À´Ï´Ù. Áï ÀÌ ¾ð¾î´Â ÀϹÝ
»ç¿ëÀڵ鵵 ½±°Ô ÇÁ·Î±×·¡¹Ö ÇÒ ¼ö ÀÖµµ·Ï Çϱâ À§ÇØ Àΰ£ÀÇ ¾ð¾î(´ç¿¬È÷ ¿µ¾î°ÚÁö¿ä ^^)¿Í À¯»çÇÏ°Ô ¸¸µé¾îÁø ¾ð¾î¶ó´Â Á¡¿¡¼ ´ç½Ã·Î¼´Â
ȹ±âÀûÀÎ ÀÏÀ̾ú½À´Ï´Ù.
ÇÏ¿©Æ° ÀÌ·¸°Ô
°³¹ßµÈ BASICÀº ¿À·£ ¼¼¿ùÀ» °ÅÄ¡¸é¼ ²ÙÁØÈ÷ ¹ßÀüÀ» ÇÏ°Ô µË´Ï´Ù.
±×·¯³ª ÃʱâÀÇ °³¹ß ÄÁ¼Áó·³ '¹è¿ì±â´Â (´Ù¸¥ ·©±ÍÁöº¸´Ù) »ó´ëÀûÀ¸·Î
½¬¿î Æí'ÀÌÁö¸¸ ±íÀÌ µé¾î°¡¸é °¥¼ö·Ï ºÒÆíÇÑ Á¡ÀÌ ÇÑ µÎ°¡Áö°¡ ¾Æ´Ï¾úÀ¸¹Ç·Î ÇÁ·Î±×·¡¹ÖÀ» óÀ½ ÀÔ¹®ÇÏ´Â ´Ü°è¿¡¼
°ÅÃİ¡´Â ¾ð¾î¶ó´Â ÀνÄÀÌ °Çß½À´Ï´Ù. ÀÌ·± ¿¬À¯·Î ¼ÒÀ§ ÄÄÇ»ÅÍ Àü¹®°¡µé·ÎºÎÅʹ õ´ë¸¦ ¹Þ¾Æ¿Â °ÍÀÌ »ç½ÇÀÔ´Ï´Ù. ±×·¯´Ù°¡ 1991³â Microsoft »ç°¡ À©µµ¿ì¿ë VBVisual Basic for Windows¸¦ ¼¼»ó¿¡ ³»³õÀ¸¸é¼ºÎÅÍ ¼¼°£ÀÇ ÁÖ¸ñÀ» ¹Þ°Ô µË´Ï´Ù.
ÀÌ Á¦Ç°ÀÌ ³ª¿À¸é¼ºÎÅÍ À©µµ¿ì¿ë µ¶¸³ ½ÇÇà ¾ÖÇø®ÄÉÀ̼Çstand-alone applicationÀ» ¼Õ½±°Ô ¸¸µé ¼ö ÀÖ°Ô µÇ¾ú½À´Ï´Ù. °á±¹
Visual BasicÀº BASIC¿¡ »Ñ¸®¸¦ µÎ°í ÀÖÀ¸µÇ ÃʱâÀÇ ±×°Í°ú´Â »ç¹µ ´Ù¸¥ ÇüŸ¦ °®Ãß°Ô µÈ °ÍÀÌÁö¿ä.
Visual BASIC°ú °°Àº ¾ð¾î¸¦
4¼¼´ë ¾ð¾î4GL¶ó°í Çϸç, º°µµÀÇ µ¶¸³µÈ ÇÁ·Î±×·¥ °³¹ß Àü¹® µµ±¸ÀÔ´Ï´Ù. °ú°Å BASIC¾ð¾î¿¡¼
°³Ã¼ÁöÇâÇüObject-oriented ¾ð¾î·Î ź»ýÇÑ »õ·Î¿î °³³äÀÇ ¾ð¾îÀÔ´Ï´Ù. '°³Ã¼ÁöÇâÇü'À̶ó°í ÇÏ°í º¸´Ï±î ¾ÆÁÖ ±×·² µí ÇØ
º¸ÀÔ´Ï´Ù¸¸ ¾Ë°í º¸¸é º° °Íµµ ¾Æ´Õ´Ï´Ù. BASIC°ú °°Àº 3¼¼´ë ¾ð¾î¿¡¼´Â Çϳª¿¡¼ ¿±îÁö ¸ðµÎ »õ·Î ¸¸µé¾î »ç¿ëÇØ¾ß¸¸ Çß½À´Ï´Ù. ¿¹¸¦
µé¾î¼ ³×¸ð ¹Ú½º¸¦ Çϳª ±×¸®·Á°í ÇØµµ Á¡À» ÇϳªÇϳª Âï¾î¼ »ç°¢ÇüÀ» ¸¸µé¾î ³¾ ¼ö ¹Û¿¡ ¾ø´Â, ¼ÓµÈ ¸»·Î ¸Ç ¶¥¿¡ ÇìµùÀ» ÇÒ ¼ö ¹Û¿¡
¾ø¾ú½À´Ï´Ù. ¶ÇÇÑ ÀÌ·¸°Ô ¾î·Æ»ç¸® Çѹø ÀÛ¼ºÇÑ °Íµµ À̰÷ Àú°÷¿¡¼ ºÒ·¯´Ù »ç¿ëÇϱⰡ ¸Å¿ì ÈûÀÌ µé¾î ¸Å¹ø ¸Ç¶¥¿¡ ´ë°í Çìµù(?)À» ÇØ¾ß ÇÏ´Â °æ¿ìµµ ÀûÁö
¾Ê¾Ò½À´Ï´Ù.
±×·¯´ø °ÍÀÌ
Visual BASICÀÌ µîÀåÇϸ鼺ÎÅÍ´Â À¢¸¸ÇÑ °ÍµéÀº ÀÌ¹Ì ´Ù ¸¸µé¾îÁ® ÀÖ¾î¼ ÇÁ·Î±×·¡¸Ó´Â
¿øÇÏ´Â °ÍÀ» ¸¶¿ì½º·Î ÄÛÄÛ Âï¾îÁֱ⸸ ÇÏ¸é µÇ°Ô
µÇ¾ú½À´Ï´Ù. ±×·¡¼ Visual À̶ó´Â ¼ö½Ä¾î°¡ ¾Õ¿¡ ºÙ¾ú½À´Ï´Ù(¾Æ¸¶ ±×·² °ÍÀÔ´Ï´Ù). ±×¸®°í ÀÌ·¸°Ô ¸¸µé¾îÁø ³×¸ð ¹Ú½º °°Àº °ÍÀ»
¿ÀºêÁ§Æ®Object¶ó°í ÇÕ´Ï´Ù. À̰ÍÀ» ±×³É ¿ÀºêÁ§Æ®¶ó°í ºÎ¸£¸é ÁÁÀ» °ÍÀ»... °³Ã¼´Ï °´Ã¼´Ï ÇÏ°í ±»ÀÌ ¹ø¿ªÀ» ÇØ ³õ¾Æ¾ß Á÷¼ºÀÌ Ç®¸®´Â
¸ð¾çÀÌ´õ±º¿ä. ¿ø·¡ Àǹ̴ë·Î ÇÏÀÚ¸é °³Ã¼º¸´Ù´Â °´Ã¼°¡ ¾î¿ï¸± µí ÇÕ´Ï´Ù.
±×·¯¸é VBA¶õ ¹«¾ùÀΰ¡
¿¢¼¿À»
¼ö³â µ¿¾È »ç¿ëÇØ ¿À´ø ºÐ Áß¿¡¼µµ ¿¢¼¿¿¡ VBA ¿£ÁøÀÌ ÀåÂøµÇ¾î ÀÖ´Ù´Â »ç½ÇÁ¶Â÷ ¸ð¸£°í Áö³»´Â ºÐÀÌ ¸¹´õ±º¿ä.
"±×·¯¸é... VB´Â ±×·¸°Ô ÇØ¼ ź»ýÇÏ¿´´Ù´Â °ÍÀ»
¾Ë°Ú´Âµ¥ VBA´Â ¶Ç ¸Ó¿©¿ä?"
ÀÌ·± Àǹ®ÀÌ µå½ÃÁö¿ä?(µé¾î¾ß Á¤»óÀÔ´Ï´Ù. ^^)
VBA¶õ Visual Basic for ApplicationÀÇ ÁÙÀÓ¸» ÀÔ´Ï´Ù. Áï VB´Â VBÀε¥ ƯÁ¤ÇÑ ¾ÖÇø®ÄÉÀ̼ÇÀ»
À§ÇÑ VB¶ó´Â Àǹ̰¡ µÇ´Â °ÍÀÔ´Ï´Ù. "±×·¯¸é ApplicationÀº ¶Ç ¹ºµ¥¿ä?" ÇÏ´Â ºÐÀÌ Àú±â °è½Ã´Â±º¿ä. ±×³É ½±°Ô ¿¢¼¿À̳ª
¿öµå, ÆÄ¿öÆ÷ÀÎÆ® µîÀ» ÀǹÌÇÑ´Ù°í »ý°¢Çϼ¼¿ä. µû¶ó¼ ¿¢¼¿¿¡¼ VB¸¦ ´Ù·é´Ù¸é Visual Basic for Excel
ApplicationÀÌ µÇ°í, ¿öµå¿¡¼ Á¢±ÙÇÑ´Ù¸é Visual Basic for Word Application°¡ µÇ°ÚÁö¿ä. ½ÇÁ¦·Î VB
µî¿¡¼ ÇÁ·Î±×·¡¹ÖÀ» ÇÒ ¶§¿¡´Â ±×³É ApplicationÀ̶ó°í ¾²´Â ´ë½Å, Excel.Application ¶Ç´Â
Word.Application µî°ú °°Àº ÇüÅ·Π»ç¿ëÇÕ´Ï´Ù.
ÇöÀç ¿¢¼¿Àº 10¹øÂ° ¹öÀü±îÁö ³ª¿Í ÀÖ½À´Ï´Ù. ¿¢¼¿ XP
¶Ç´Â ¿¢¼¿ 2002 À̶ó°í ºÒ¸®´Â °ÍÀÌ ¹Ù·Î ±×°ÍÀÔ´Ï´Ù. ¿¢¼¿¿¡ VBA°¡ Æ÷ÇÔµÈ °ÍÀº ¿¢¼¿ 5¹öÀüºÎÅÍÀ̸ç, ¿ÀÇǽº 2000¹öÀüºÎÅÍ´Â
¸ðµç ÀÀ¿ë ÇÁ·Î±×·¥¿¡ VBA ¿£ÁøÀÌ ÀåÂøµÇ¾ú½À´Ï´Ù(Auto CAD °°Àº ´Ù¸¥ º¥´õµéÀÇ Application¿¡µµ VBA°¡ Æ÷ÇԵǾî
ÀÖ½À´Ï´Ù). µû¶ó¼ ¸¸¾à ¿©·¯ºÐÀÌ ¿¢¼¿¿¡ ºÙ¾îÀÖ´Â (´Ù¸¥ VBA¿¡ ºñÇØ »ó´ëÀûÀ¸·Î º¹ÀâÇÑ) VBA¸¦ ¸¶½ºÅÍÇÏ½Å´Ù¸é ´Ù¸¥ ¾ÖÇø®ÄÉÀ̼ÇÀÇ
VBAµµ µ¢´Þ¾Æ ¸¶½ºÅÍÇÏ°Ô µÊÀº ¹°·ÐÀÌ·Á´Ï¿Í ´Ù¸¥ ¾ÖÇø®ÄÉÀ̼ÇÀ» À§ÇÑ ¼Ö·ç¼ÇÀ» °³¹ßÇÒ ¼öµµ ÀÖ°Ô µÇ´Â °ÍÀÔ´Ï´Ù. ¸Å·ÂÀûÀÌÁö ¾Ê½À´Ï±î?
Introducing Visual Basic Editor
ÀÚ... ±×·¸´Ù¸é ±×·± ÈǸ¢ÇÑ ÇÁ·Î±×·¡¹Ö µµ±¸°¡ ExcelÀÇ ¾î´À ±¸¼®¿¡ ÀÚ¸®Àâ°í ÀÖ´ÂÁö
»ìÆìº¸Áö ¾ÊÀ»·¡¾ß ¾ÊÀ» Àç°£ÀÌ ¾øÁö¿ä? µµ±¸ - ¸ÅÅ©·Î - Visual Basic Editor ¸Þ´º¸¦ ¼±ÅÃÇÕ´Ï´Ù(¶Ç´Â Alt + F11 ۸¦
´·¯µµ µË´Ï´Ù). ±×·¯¸é ±×¸²°ú °°Àº Visual Basic Editor(ÀÌÇÏ VB Editor)°¡ ³ªÅ¸³³´Ï´Ù. »ç¿ëÀÚ¸¶´Ù ÀÌ È¸éÀÇ
¸ð¾ç»õ°¡ Á¶±Ý¾¿ Ʋ¸®°ÚÁö¸¸ ÀÏ´Ü ÀÌ 4°³ÀÇ Ã¢ÀÌ °¡Àå ±âº»ÀÌ µÇ´Â °ÍÀ̶ó ÇÒ ¼ö ÀÖ½À´Ï´Ù. µû¶ó¼ VB EditorÀÇ °¢ â¿¡ ´ëÇØ
»ìÆìº¸µµ·Ï ÇϰڽÀ´Ï´Ù.

1. ÇÁ·ÎÁ§Æ® Ž»ö±âProject
Explorer window
¡¡
|
 |
'Ž»ö±â'¶ó´Â ´Ü¾î¿¡¼µµ ¾Ë ¼ö ÀÖµíÀÌ ÇöÀç ¿·ÁÀÖ´Â ÆÄÀÏ(Workbook), ±× ÆÄÀÏÀÌ
´ã°í ÀÖ´Â °³Ã¼ µî¿¡ ´ëÇÑ Á¤º¸¸¦ Á¦°øÇØ Áִ âÀÔ´Ï´Ù.
¸¸¾à ÀÌ Ã¢ÀÌ È¸é¿¡ ³ªÅ¸³ª ÀÖÁö ¾Ê´Ù¸é VB Editor »óÅ¿¡¼ º¸±â - ÇÁ·ÎÁ§Æ®
Ž»ö±â »óÅ¿¡¼ º¸±â - ÇÁ·ÎÁ§Æ® Ž»ö±â ¸Þ´º¸¦ ¼±ÅÃÇϰųª Ctrl + R ۸¦ ´©¸¨´Ï´Ù. ÇÁ·ÎÁ§Æ®¶ó°í ÇÏ´Ï±î ¹º°¡
Àü¹®°¡ÀûÀÎ ³¿»õ(?)°¡ ³ª°í °ÅÃ¢ÇØ º¸À̴µ¥ ¿öÅ©ºÏ(¿¢¼¿ ÆÄÀÏ)À̳ª Ãß°¡±â´ÉAdd-in ÆÄÀÏ µîÀÌ °¢°¢ ÇϳªÀÇ ÇÁ·ÎÁ§Æ®
ÀÔ´Ï´Ù.
¿ÞÂÊ ±×¸²¿¡¼ + Ç¥½Ã°¡ µÇ¾î ÀÖ´Â ºÎºÐÀ» Ŭ¸¯Çϸé -
Ç¥½Ã·Î ¹Ù²î¸é¼ ÇÏÀ§ÀÇ °³Ã¼µéÀÌ ÆîÃÄÁý´Ï´Ù. ¹Ý´ë·Î - Ç¥½Ã°¡ µÇ¾îÀÖÀ» ¶§ ÀÌ ºÎºÐÀ» Ŭ¸¯Çϸé ÇÏÀ§ÀÇ ¿ÀºêÁ§Æ®µéÀÌ
¼û°ÜÁý´Ï´Ù.
|
2. ¼Ó¼º âProperty
window
¡¡
|
 |
ÇØ´ç
°³Ã¼¿ÀºêÁ§Æ®ÀÇ ¼Ó¼ºÇÁ·ÎÆÛƼ °ª¿¡ ´ëÇÑ Á¤º¸¸¦ º¸¿©ÁÝ´Ï´Ù. ÀÌ Ã¢¿¡¼ ¼Ó¼º°ªµéÀ» Á÷Á¢ º¯°æÇØ ÁÙ ¼ö
ÀÖ½À´Ï´Ù.
¸¸¾à ¼Ó¼º âÀÌ º¸ÀÌÁö ¾Ê´Â´Ù¸é º¸±â - ¼Ó¼º â ¸Þ´º¸¦ ¼±ÅÃÇϰųª F4 ۸¦ ´©¸£¸é
³ªÅ¸³¯ °ÍÀÔ´Ï´Ù. |
3. ÄÚµå ÀԷ âCode
window
¸ÅÅ©·Î ±â·Ï±â¸¦ »ç¿ëÇØ¼ ±â·ÏÀ» Çϰųª »ç¿ëÀÚ°¡ Á÷Á¢ Äڵ带 ÀÔ·ÂÇÒ ¼ö Àִ âÀÔ´Ï´Ù. ÇØ´ç ÆÄÀÏ¿¡
¸ðµâ ½ÃÆ®°¡ Çϳªµµ ¾ø´Ù¸é ÀÌ Ã¢Àº ȸ»ö ¹ÙÅÁÀÇ °ø¹é ȸéÀ¸·Î º¸ÀÏ ¼öµµ ÀÖ½À´Ï´Ù. ¸¸¾à ÀÌ Ã¢ÀÌ È¸é¿¡ ³ªÅ¸³ª ÀÖÁö ¾Ê´Ù¸é VB
Editor »óÅ¿¡¼ º¸±â - ÄÚµå ¸Þ´º¸¦ ¼±ÅÃÇϰųª F7 ۸¦ ´·¯ÁÖ¸é ³ªÅ¸³¯ °ÍÀÔ´Ï´Ù.

4. Á÷Á¢ ½ÇÇà âImmediate
window
VBA´Â
¶Ù¾î³ µð¹ö±ëDebugging, ¿À·ù ¹Ù·Î Àâ±â µµ±¸¸¦ °¡Áö°í Àִµ¥ ±× Áß Çϳª°¡ ÀÌ Á÷Á¢
½ÇÇà âÀÔ´Ï´Ù. ¸» ±×´ë·Î ÀÔ·ÂÇÑ Äڵ尡 Àß ÀÛµ¿ÇÏ´ÂÁöÀÇ ¿©ºÎ¸¦ 'Á÷Á¢ ½ÇÇàÇØ º¼ ¼ö Àִ â'ÀÔ´Ï´Ù. »ç¿ëÇØ º¸¸é ¾ÆÁÖ Æí¸®ÇÑ µµ±¸¶ó´Â °ÍÀ»
¾Ë ¼ö ÀÖ½À´Ï´Ù. Á÷Á¢ ½ÇÇà âÀÌ º¸ÀÌÁö ¾ÊÀ¸¸é º¸±â - Á÷Á¢ ½ÇÇà â ¸Þ´º¸¦ ¼±ÅÃÇϰųª Ctrl + G ۸¦ ´©¸¨´Ï´Ù.

ÄÚµå âCode window¿¡¼ ÀÛ¾÷Çϱâ
À̻󿡼 VBAÀÇ ¾ó±¼À̶ó°í ÇÒ ¼ö ÀÖ´Â VB
Editor window¿¡ ´ëÇØ »ìÆìº¸¾Ò½À´Ï´Ù. ÀÌÁ¦ ¿©·¯ºÐµéÀÌ VBA¿Í Ä£ÇØÁú¼ö·Ï Á¡Á¡ ´õ ¸¹Àº ½Ã°£À» º¸³»°Ô µÉ ÄÚµå âCode
window¿¡¼ Äڵ带 ÀÛ¼ºÇÏ°í ½ÇÇàÇÏ´Â ¹æ¹ý¿¡ ´ëÇØ ŽÇèÇØ º¸°Ú½À´Ï´Ù.
(1) ÆÄÀÏ - »õ·Î ¸¸µé±â ¸Þ´º¸¦ ¼±ÅÃÇÏ¿© »õ·Î¿î
ÅëÇÕ ¹®¼¸¦ Çϳª ¸¸µì´Ï´Ù.
(2) µµ±¸ - ¸ÅÅ©·Î - Visual Basic
Editor ¸Þ´º¸¦ ¼±ÅÃÇÏ¿© VB Editor âÀ¸·Î µé¾î°©´Ï´Ù.
(3) »ðÀÔ - ¸ðµâ ¸Þ´º¸¦ ¼±ÅÃÇÏ¸é ¸ðµâÀÌ ÇÑ Àå
»ðÀԵ˴ϴÙ. ¸¸¾à ÄÚµå â ÀºÎºÐ¿¡ Option Explicit¶ó´Â ¹®ÀåÀÌ ³ªÅ¸³ª¸é »èÁ¦¸¦ Çϰųª ¾Õ¿¡ '(ÀÛÀº µû¿ÈÇ¥)¸¦ ºÙ¿© ÁÖ¼®À¸·Î
ó¸®ÇÕ´Ï´Ù.

(4) ÄÚµå â¿¡ ¾Æ·¡¿Í °°ÀÌ Äڵ带 ÀÔ·ÂÇÕ´Ï´Ù.
¡¡
|
Sub ¾È³çÇϼ¼¿ä()
Msg = Application.UserName & "´Ô ¾È³çÇϼ¼¿ä?"
Answer = MsgBox(Msg, vbYesNo)
If Answer = vbYes Then
MsgBox "¾È³çÇÏ½Ã´Ù´Ï ´ÙÇàÀ̳׿ä!"
Else
MsgBox "Àú·±, ¹«½¼ ÀÏÀÌ ÀÖ¾ú³ª¿ä?"
End If
End Sub |
(5) ÀÔ·ÂÀÌ ³¡³µÀ¸¸é ½ÇÇàÀ» ½ÃÄÑ º¸¾Æ¾ß°ÚÁö¿ä? ½ÇÇàÀ»
½ÃŰ´Â µ¥¿¡´Â ¸î °¡Áö ¹æ¹ýÀÌ ÀÖ½À´Ï´Ù. ½ÇÇàÇϰíÀÚ ÇÏ´Â ÄÚµå ³»¿¡ Ä¿¼¸¦ À§Ä¡½ÃŲ ´ÙÀ½,
¨ç F5 ۸¦ ´©¸£´Â ¹æ¹ý
¨è ½ÇÇà - Sub/»ç¿ëÀÚ Á¤ÀÇ Æû ½ÇÇà ¸Þ´º¸¦
»ç¿ëÇÏ´Â ¹æ¹ý
¨é µµ±¸ ¸ðÀ½¿¡ ÀÖ´Â ½ÇÇà ¾ÆÀÌÄÜÀ» Ŭ¸¯ÇÏ´Â ¹æ¹ý
¾î¶² ¹æ¹ýÀ» ¼±ÅÃÇÏ´À³Ä´Â ¿©·¯ºÐÀÇ °¡Ä¡°ü(... À̶ö °Í ±îÁö¾ß ¾ø°Ú±º¿ä ^^)¿¡ µû¶ó ÆíÇÑ ¹æ¹ýÀ» °ñ¶ó ¾²½Ã¸é µË´Ï´Ù.
ÀÌ ¼¼ °¡Áö ¹æ¹ý Áß Çϳª¸¦ ¼±ÅÃÇÏ¸é ´ÙÀ½°ú °°Àº ¸Þ½ÃÁö ¹Ú½º°¡ ³ªÅ¸³¯ °ÍÀÔ´Ï´Ù.

¿¹ ¶Ç´Â ¾Æ´Ï¿À ¹öư Áß Çϳª¸¦ ´·¯º¸¸é ÄÚµå·Î ÀÛ¼ºÇÑ ¸Þ½ÃÁö°¡ ³ªÅ¸³³´Ï´Ù.

ÄÄÇ»ÅÍ(¿¢¼¿) ÇÑÅ×¼ Àλ縦 ¹Þ¾Æº» ±âºÐÀÌ ¾î¶°½Å°¡¿ä? ±×Àú µüµüÇÑ ±â°è µ¢¾î¸®·Î¸¸ »ý°¢ÇØ ¿À´ø
ÄÄÇ»ÅͰ¡ º¸´Ù Àΰ£ÀûÀÎ ¸ð½ÀÀ¸·Î ´Ù°¡¿ÀÁö ¾Ê³ª¿ä? ^^ Äڵ带 »ìÆìº¸µµ·Ï ÇÏÁö¿ä.
|
Sub ¾È³çÇϼ¼¿ä()
... ¾î¼°í Àú¼°í...
End Sub |
ÀÌó·³ Sub·Î ½ÃÀÛÇØ¼ End Sub·Î ³¡³ª´Â Äڵ带
ÇÁ·Î½ÃÀú ¶Ç´Â ¼ºê ÇÁ·Î½ÃÀú¶ó°í ºÎ¸¨´Ï´Ù.
Áï Sub ~ End Sub »çÀÌ¿¡ Äڵ带 ÀÛ¼ºÇÔÀ¸·Î½á ÄÄÇ»ÅÍ¿¡°Ô ÀÛ¾÷ Áö½Ã¸¦ ³»¸®´Â °ÍÀÔ´Ï´Ù.
|
... ¾î¼°í Àú¼°í...
Msg = Application.UserName & "´Ô ¾È³çÇϼ¼¿ä?"
Answer = MsgBox(Msg, vbYesNo)
... ¾î¼°í Àú¼°í... |
Application.UserName À̶ó´Â °ÍÀº ÇöÀç ¾ÖÇø®ÄÉÀ̼Ç(Áï ¿¢¼¿)ÀÇ »ç¿ëÀÚ¸íÀ» ¾Ë¾Æ³»´Â ¸í·É¾îÀÔ´Ï´Ù. ¿¢¼¿À» ¼³Ä¡ÇÒ ¶§ »ç¿ëÀÚ ±âº» Á¤º¸¸¦ ÀÔ·ÂÇÏ°Ô µÇ´Âµ¥ ÀÌ ¶§ µî·ÏµÈ »ç¿ëÀÚ¸íÀ» ¾Ë¾Æ³À´Ï´Ù. ±×·± ´ÙÀ½ & ¿¬»êÀÚ¸¦ ÀÌ¿ëÇÏ¿© µÎ °³ÀÇ ¹®ÀÚ¿·Î ÇÕÃļ Msg¶ó´Â ¹®ÀÚ¿ º¯¼ö¿¡ °ªÀ» ÀúÀåÇØ µÓ´Ï´Ù.
MsgBox ÇÔ¼ö´Â ¸Þ½ÃÁö ¹Ú½º¸¦ ȸ鿡 ¶ç¿öÁÖ´Â ÇÔ¼öÀÔ´Ï´Ù. Á÷Á¢ ½ÇÇà â¿¡´Ù°¡ ¾Æ·¡¿Í °°ÀÌ ÀÔ·ÂÇÏ°í ¿£ÅÍ۸¦ ÃÄ º¸¼¼¿ä. '¾È³çÇϼ¼¿ä?' ¶ó´Â ¸Þ½ÃÁö ¹Ú½º°¡ ³ªÅ¸³³´Ï´Ù.
Msgbox "¾È³çÇϼ¼¿ä?"
±×·±µ¥ MsgBox ÇÔ¼ö¿¡ º¸´Ï±î vbYesNo¶ó´Â ÀÌ»óÇÑ °ÍÀÌ ÀÖÁö¿ä? À̰ÍÀ» ³»Àå »ó¼öBuilt-in constants¶ó°í Çϴµ¥ MsgBox¿¡ ¾î¶² ¹öưÀÌ Ç¥½ÃµÇµµ·Ï ÇÒ °ÍÀÎÁö¸¦ ÁöÁ¤ÇÕ´Ï´Ù. ¾Æ·¡¿Í °°ÀÌ ´Ù¾çÇÑ °ªÀ» ÁöÁ¤ÇØ ÁÙ ¼ö ÀÖ½À´Ï´Ù.
|
»ó ¼ö |
°ª |
¼³ ¸í |
|
vbOKOnly |
0 |
È®ÀÎ ´ÜÃß Àü¿ë(default) |
|
vbOKCancel |
1 |
È®ÀÎ, Ãë¼Ò ´ÜÃß |
|
vbAbortRetryIgnore |
2 |
ÁßÁö, ´Ù½Ã ½Ãµµ, ¹«½Ã ´ÜÃß |
|
vbYesNoCancel |
3 |
¿¹, ¾Æ´Ï¿À, Ãë¼Ò ´ÜÃß |
|
vbYesNo |
4 |
¿¹, ¾Æ´Ï¿À ´ÜÃß |
|
vbRetryCancel |
5 |
´Ù½Ã ½Ãµµ, Ãë¼Ò ´ÜÃß |
|
vbCritical |
16 |
Ä¡¸íÀû ¿À·ù ¸Þ½ÃÁö |
|
vbQuestion |
32 |
°æ°í Áú¹® |
|
vbExclamation |
48 |
°æ°í ¸Þ½ÃÁö |
|
vbInformation |
64 |
Á¤º¸ ¸Þ½ÃÁö |
|
vbDefaultButton1 |
0 |
ù° ´ÜÃß°¡ ±âº»°ªÀÔ´Ï´Ù(default) |
|
vbDefaultButton2 |
256 |
µÑ° ´ÜÃß°¡ ±âº»°ªÀÔ´Ï´Ù |
|
vbDefaultButton3 |
512 |
¼Â° ´ÜÃß°¡ ±âº»°ªÀÔ´Ï´Ù |
|
vbDefaultButton4 |
768 |
³Ý° ´ÜÃß°¡ ±âº»°ªÀÔ´Ï´Ù |
|
vbApplicationModal |
0 |
ÀÀ¿ë ÇÁ·Î±×·¥ ¸ð´Þ ¸Þ½ÃÁö
»óÀÚ(default) |
|
vbSystemModal |
4096 |
½Ã½ºÅÛ ¸ð´Þ ¸Þ½ÃÁö »óÀÚ |
|
vbMsgBoxHelpButton |
16384 |
¸Þ½ÃÁö »óÀÚ¿¡ µµ¿ò¸» ´ÜÃ߸¦ Ãß°¡ÇÕ´Ï´Ù |
|
vbMsgBoxSetForeground |
65536 |
¸Þ½ÃÁö »óÀÚ¸¦ Àü°æ âÀ¸·Î ÁöÁ¤ÇÕ´Ï´Ù |
|
vbMsgBoxRight |
524288 |
ÅØ½ºÆ®°¡ ¿À¸¥ÂÊ ¸ÂÃ㠵Ǿú½À´Ï´Ù |
|
vbMsgBoxRtlReading |
1048576 |
È÷ºê¸®¾î¿Í ¾Æ¶ø¾î ½Ã½ºÅÛÀÇ °æ¿ì ÅØ½ºÆ®ÀÇ
Àб⠹æÇâÀÌ ¿À¸¥ÂÊ¿¡¼ ¿ÞÂÊÀ¸·Î ³ªÅ¸³ªµµ·Ï ÁöÁ¤ÇÕ´Ï´Ù |
|
¿©±â¼
»ó¼ö ´ë½Å °ªÀ» ½á Á־ µË´Ï´Ù. Áï ¾Æ·¡ µÎ ¹®ÀåÀÇ °á°ú´Â °°½À´Ï´Ù.
MsgBox "¾È³çÇϼ¼¿ä?",vbYesNo
MsgBox "¾È³çÇϼ¼¿ä?",4
ȸ鿡 µÎ °³ÀÇ ¹öưÀÌ ÀÖ´Â MsgBox°¡ ³ªÅ¸³ª´Âµ¥ »ç¿ëÀÚ´Â ÀÌ Áß¿¡¼ ÇϳªÀÇ
¹öưÀ» ´©¸£°Ô µË´Ï´Ù. ¿¹¿Í ¾Æ´Ï¿À Áß ¾î´À °ÍÀ» ¼±ÅÃÇß´ÂÁö ¾Ë¾Æ¾ß ³ªÁß¿¡ ´Ù¸¥ ÀÛ¾÷À» ÇÒ ¼ö ÀÖ°ÚÁö¿ä? ¾î¶² ¹öưÀ» ´·¶´ÂÁö¸¦
ÆÄ¾ÇÇØ¼ Answer¶ó´Â º¯¼ö¿¡ ´ã¾ÆµÎ´Â °úÁ¤ÀÌ ¾Æ·¡ÀÇ ÇÑ ÁÙ·Î ÇØ°áÀÌ µË´Ï´Ù.
Answer=MsgBox(Msg,vbYesNo)
¿öÅ©½ÃÆ®¿¡¼ If ±¸¹®À» »ç¿ëÇÒ ¶§,
If(Á¶°Ç½Ä, ÂüÀÎ °æ¿ì, °ÅÁþÀÎ °æ¿ì)
ÀÌ·¯ÇÑ
ÇüÅ·Π»ç¿ëÀ» ÇÏ¿´Áö¿ä? VBA »ó¿¡¼µµ ºñ½ÁÇÑ ÇüÅ·Π»ç¿ëÇÕ´Ï´Ù. Answer¶ó´Â º¯¼ö¿¡ ÀúÀåµÈ °ªÀÌ(Áï »ç¿ëÀÚ°¡ ¼±ÅÃÇÑ ¹öưÀÌ)
vbYes ÀÌ¸é ¾È³çÇÏ½Ã´Ù´Ï ´ÙÇàÀ̳׿ä! ¸Þ½ÃÁö¸¦, ÀúÀåµÈ °ªÀÌ vbNo¶ó¸é Àú·±, ¹«½¼ ÀÏÀÌ ÀÖ¾ú³ª¿ä? ¶ó´Â ¸Þ½ÃÁö ¹Ú½º°¡
ȸ鿡 ³ªÅ¸³³´Ï´Ù.
If Answer=vbYes Then
MsgBox "¾È³çÇÏ½Ã´Ù´Ï ´ÙÇàÀ̳׿ä!" Else
MsgBox "Àú·± ¹«½¼ ÀÏÀÌ ÀÖ¾ú³ª¿ä?" End If
ÀÌ ¶§ MsgBox ÇÔ¼öÀÇ ¹Ýȯ°ªÀº »ó¼ö ÇüŸ¦ »ç¿ëÇØµµ µÇ°í °ª ÇüŸ¦ »ç¿ëÇØµµ µË´Ï´Ù. Áï À§ÀÇ
ÄÚµå´Â ¾Æ·¡¿Í °°ÀÌ ¹Ù²Ü ¼ö ÀÖ´Ù´Â ¾ê±â°¡ µÇÁö¿ä. ¾î¶² °ÍÀÌ Æí¸®ÇÑ Áö´Â ÀÚ¸íÇÒ °ÍÀÔ´Ï´Ù.
If Answer=6 Then MsgBox "¾È³çÇÏ½Ã´Ù´Ï ´ÙÇàÀ̳׿ä!" Else
MsgBox "Àú·± ¹«½¼ ÀÏÀÌ ÀÖ¾ú³ª¿ä?" End If
|
»ó ¼ö |
°ª |
¼³
¸í |
|
vbOK |
1 |
È®ÀÎ |
|
vbCancel |
2 |
Ãë¼Ò |
|
vbAbort |
3 |
Áß´Ü |
|
vbRetry |
4 |
´Ù½Ã ½Ãµµ |
|
vbIgnore |
5 |
¹«½Ã |
|
vbYes |
6 |
¿¹ |
|
vbNo |
7 |
¾Æ´Ï¿À |
|
ÇѲ¨¹ø¿¡ ³Ê¹« ¸¹ÀÌ ÇÏ¸é ¸Ó¸®¿¡
Áã°¡ ³¯ Áöµµ ¸ð¸£´Ï±î À̹ø °Á´ ¿©±â¼ Á¢µµ·Ï ÇÏÁö¿ä.
¿¹? ÀÌ¹Ì ³Ê¹« ¸¹ÀÌ ÇØ¼ ¸Ó¸®°¡ ¾ÆÇÁ½Ã´Ù±¸¿ä?...
|