±â¼ú ÀÚ·á: 830502 - ¸¶Áö¸· °ËÅä: 2006³â 2¿ù 17ÀÏ ±Ý¿äÀÏ - ¼öÁ¤: 4.1

Excel¿¡¼­ ¸Þ´º ¹× ¸Þ´º ¸ðÀ½À» »ç¿ëÀÚ ÁöÁ¤ÇÏ´Â ¹æ¹ý

ÀÌ ¹®¼­°¡ Àû¿ëµÇ´Â Á¦Ç° º¸±â.
½Ã½ºÅÛ ÆÁº» ¹®¼­ÀÇ ³»¿ëÀº ±ÍÇÏ°¡ »ç¿ëÇÏ´Â ¿î¿µ üÁ¦¿Í ´Ù¸¥ ¿î¿µ üÁ¦¿¡ ÇØ´çÇÕ´Ï´Ù. ¹®¼­ ³»¿ë Áß ±ÍÇÏ¿Í °ü·Ã ¾ø´Â ºÎºÐÀº Ç¥½ÃµÇÁö ¾Ê½À´Ï´Ù.

ÀÌ ÆäÀÌÁö¿¡¼­

¸ðµÎ È®´ë | ¸ðµÎ Ãà¼Ò

¿ä¾à

ÀÌ ¹®¼­¿¡¼­´Â Microsoft Excel 2000 À̻󿡼­ ¸Þ´º ¹× ¸Þ´º ¸ðÀ½À» »ç¿ëÀÚ ÁöÁ¤ÇÏ´Â ¹æ¹ýÀ» ¼³¸íÇÕ´Ï´Ù. ÀÌ ¹®¼­¿¡´Â Microsoft Excel¿¡¼­ ¸Þ´º ¸ðÀ½, ¸Þ´º, ¸í·É, ÇÏÀ§ ¸Þ´º ¹× ¹Ù·Î °¡±â ¸Þ´º¸¦ ÇÁ·Î±×·¡¹Ö ¹æ½ÄÀ¸·Î °ü¸®ÇÏ°í »ç¿ëÀÚ ÁöÁ¤Çϱâ À§ÇÑ ´Ü°èº° Áöħ°ú ÄÚµå ¿¹Á¦°¡ Æ÷ÇԵǾî ÀÖ½À´Ï´Ù.
À§·Î °¡±â

¼Ò°³

Microsoft Excel 2000, Microsoft Excel 2002 ¹× Microsoft Office Excel 2003¿¡¼­ ¸Þ´º ¸ðÀ½ ¹× ¸Þ´º¸¦ »ç¿ëÀÚ ÁöÁ¤ÇÏ´Â °Í°ú °ü·ÃµÈ ´ëºÎºÐÀÇ ÀϹÝÀûÀÎ ÀÛ¾÷À» ¼öÇàÇÏ·Á¸é »ç¿ëÀÚ ÁöÁ¤ ´ëÈ­ »óÀÚ¸¦ »ç¿ëÇÕ´Ï´Ù. °í±Þ ÀÛ¾÷À» ¼öÇàÇϰųª »ç¿ëÀÚ ÁöÁ¤ ÇÁ·Î±×·¥ÀÇ ¸Þ´º ¸ðÀ½ ¹× ¸Þ´º¸¦ Á¶Á¤ÇÏ·Á´Â °æ¿ì Microsoft VBA(Visual Basic for Applications) Äڵ带 ¸¸µé ¼ö ÀÖ½À´Ï´Ù.

»ç¿ëÀÚ ÁöÁ¤ ´ëÈ­ »óÀÚ¸¦ »ç¿ëÇÏ´Â ¹æ¹ý¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ ³»¿ëÀ» º¸·Á¸é µµ¿ò¸» ¸Þ´º¿¡¼­ Microsoft Excel µµ¿ò¸»À» ´©¸£°í Office ±æÀâÀ̳ª µµ¿ò¸» ¸¶¹ý»ç¿¡¼­ ¸Þ´º ¸ðÀ½ »ç¿ëÀÚ ÁöÁ¤À» ÀÔ·ÂÇÑ ´ÙÀ½ °Ë»öÀ» ½ÃÀÛÇÕ´Ï´Ù.¸¦ ´­·¯ ³ªÅ¸³ª´Â Ç׸ñÀ» ÂüÁ¶ÇϽʽÿÀ.

ÀÌ ¹®¼­¿¡¼­´Â ¸Þ´º ¸ðÀ½, ¸Þ´º, ¸Þ´º Ç׸ñ, ÇÏÀ§ ¸Þ´º ¹× ¹Ù·Î °¡±â ¸Þ´º¸¦ »ç¿ëÀÚ ÁöÁ¤Çϱâ À§ÇÑ VBA Äڵ带 ÀÛ¼ºÇÏ´Â ¹æ¹ýÀ» ¹è¿ï ¼ö ÀÖ½À´Ï´Ù.

À§·Î °¡±â

Ãß°¡ Á¤º¸

Microsoft´Â ¸ðµç º¸Áõ(»óÇ°, ƯÁ¤ ¸ñÀû¿¡ ´ëÇÑ ÀûÇÕ¼º ¹× ºñħÇØ¿¡ ´ëÇÑ ¹¬½ÃÀûÀÎ º¸ÁõÀ» Æ÷ÇÔÇϸç ÀÌ¿¡ Á¦ÇѵÇÁö ¾ÊÀ½)À» ¹èÁ¦ÇÏ¸ç ¿¹¸¦ º¸¿©ÁÖ±â À§ÇÑ ¸ñÀûÀ¸·Î¸¸ ÀÌ ÇÁ·Î±×·¡¹Ö ¿¹Á¦¸¦ Á¦°øÇÕ´Ï´Ù. º» ¹®¼­ÀÇ ³»¿ëÀº ÇÁ·Î½ÃÀú¸¦ ÀÛ¼ºÇÏ°í µð¹ö±ëÇÏ´Â µ¥ »ç¿ëµÇ´Â µµ±¸ ¹× ¿©±â¼­ ¼³¸íÇÏ´Â ÇÁ·Î±×·¡¹Ö ¾ð¾î¿¡ Àͼ÷ÇÑ »ç¿ëÀÚ¸¦ ´ë»óÀ¸·Î ÇÕ´Ï´Ù. Microsoft Áö¿ø ¿£Áö´Ï¾î´Â »ç¿ëÀÚ¿¡°Ô µµ¿òÀÌ µÇµµ·Ï ƯÁ¤ ÇÁ·Î½ÃÀú¿¡ ´ëÇÑ ±â´ÉÀ» ¼³¸íÇÒ ¼ö ÀÖÁö¸¸ »ç¿ëÀÚÀÇ Æ¯Á¤ ¿ä±¸ »çÇ׿¡ ¸Âµµ·Ï ¿¹Á¦¸¦ ¼öÁ¤ÇÏ¿© Ãß°¡ ±â´ÉÀ» Á¦°øÇϰųª ÇÁ·Î½ÃÀú¸¦ ±¸¼ºÇÏÁö´Â ¾Ê½À´Ï´Ù.
À§·Î °¡±â

ÀÌ ¹®¼­ÀÇ ¿¹Á¦

ÀÌ ¹®¼­ÀÇ ¿¹Á¦¿¡¼­´Â Excel 2000, Excel 2002 ¹× Excel 2003¿¡¼­ VBA Äڵ带 »ç¿ëÇÏ¿© ¸Þ´º¸¦ »ç¿ëÀÚ ÁöÁ¤ÇÕ´Ï´Ù. ¿¹Á¦ ¸ÅÅ©·Î¸¦ »ç¿ëÇÏ·Á¸é ´ÙÀ½°ú °°ÀÌ ÇϽʽÿÀ.
  1. ExcelÀ» ½ÃÀÛÇÕ´Ï´Ù.
  2. µµ±¸ ¸Þ´º¿¡¼­ ¸ÅÅ©·Î¸¦ °¡¸®Å² ´ÙÀ½ Visual Basic Editor¸¦ ´©¸¨´Ï´Ù.
  3. »ðÀÔ ¸Þ´º¿¡¼­ ¸ðµâÀ» ´©¸¨´Ï´Ù.
  4. ÀÌ ¹®¼­ÀÇ ¸ÅÅ©·Î ¿¹Á¦ Áß Çϳª¸¦ ÀÔ·ÂÇϰųª, º¹»çÇÏ¿© ºÙ¿©³Ö±â ÀÛ¾÷À¸·Î ¸ÅÅ©·Î ¿¹Á¦¸¦ ¸ðµâ ½ÃÆ®¿¡ º¹»çÇÕ´Ï´Ù.
  5. ½ÇÇà ¸Þ´º¿¡¼­ Sub/»ç¿ëÀÚ Á¤ÀÇ Æû ½ÇÇàÀ» ´©¸¨´Ï´Ù.
  6. ¸ÅÅ©·Î ´ëÈ­ »óÀÚ°¡ ³ªÅ¸³ª¸é ¸ÅÅ©·Î À̸§À» ´©¸¥ ´ÙÀ½ ½ÇÇàÀ» ´©¸¨´Ï´Ù.
À§·Î °¡±â

¸í·É ¸ðÀ½

Microsoft Office¿¡¼­ µµ±¸ ¸ðÀ½, ¸Þ´º ¸ðÀ½ ¹× ¹Ù·Î °¡±â ¸Þ´º´Â ¸ðµÎ ¸í·É ¸ðÀ½À̶ó´Â ÇϳªÀÇ °³Ã¼ Çü½ÄÀ¸·Î, ÇÁ·Î±×·¡¹Ö ¹æ½ÄÀ¸·Î Á¦¾îµË´Ï´Ù. ´ÙÀ½ Ç׸ñÀº ¸ðµÎ VBA¿¡¼­ CommandBar °³Ã¼·Î Ç¥½ÃµË´Ï´Ù.
  • ¸Þ´º ¸ðÀ½, µµ±¸ ¸ðÀ½ ¹× ¹Ù·Î °¡±â ¸Þ´º
  • ¸Þ´º ¸ðÀ½ ¹× µµ±¸ ¸ðÀ½ÀÇ ¸Þ´º
  • ¸Þ´º, ÇÏÀ§ ¸Þ´º ¹× ¹Ù·Î °¡±â ¸Þ´ºÀÇ ÇÏÀ§ ¸Þ´º
±âº» Á¦°ø ¸Þ´º ¸ðÀ½À̳ª ±âº» Á¦°ø µµ±¸ ¸ðÀ½À» ¼öÁ¤ÇÒ ¼ö ÀÖÀ» »Ó ¾Æ´Ï¶ó, »ç¿ëÀÚ ÁöÁ¤ µµ±¸ ¸ðÀ½, ¸Þ´º ¸ðÀ½ ¹× ¹Ù·Î °¡±â ¸Þ´º¸¦ ¸¸µé°í ¼öÁ¤ÇÏ¿© »ç¿ëÀÚ VBA ÄÚµå¿Í ÇÔ²² Á¦°øÇÒ ¼ö ÀÖ½À´Ï´Ù. ÇÁ·Î±×·¥ÀÇ ±â´ÉÀ» µµ±¸ ¸ðÀ½ÀÇ °³º° ´ÜÃß³ª ¸Þ´ºÀÇ ¸í·É À̸§ ±×·ìÀ¸·Î Á¦°øÇÒ ¼ö ÀÖ½À´Ï´Ù. µµ±¸ ¸ðÀ½°ú ¸Þ´º´Â ¸ðµÎ ¸í·É ¸ðÀ½À̹ǷΠ°°Àº Á¾·ùÀÇ ÄÁÆ®·ÑÀ» »ç¿ëÇÕ´Ï´Ù.

VBA ¹× Microsoft Visual Basic¿¡¼­ ´ÜÃß ¹× ¸Þ´º Ç׸ñÀº CommandBarButton °³Ã¼·Î Ç¥½ÃµË´Ï´Ù. ¸Þ´º ¹× ÇÏÀ§ ¸Þ´º¸¦ Ç¥½ÃÇÏ´Â Æ˾÷ ÄÁÆ®·ÑÀº CommandBarPopup °³Ã¼·Î Ç¥½ÃµË´Ï´Ù. ÀÌ ¹®¼­ÀÇ ¿¹Á¦¿¡¼­ "Menu"¶ó´Â ÄÁÆ®·Ñ°ú "Submenu"¶ó´Â ÄÁÆ®·ÑÀº ¸ðµÎ ¸Þ´º¿Í ÇÏÀ§ ¸Þ´º¸¦ Ç¥½ÃÇÏ´Â Æ˾÷ ÄÁÆ®·ÑÀÔ´Ï´Ù. ¸Þ´º¿Í ÇÏÀ§ ¸Þ´º´Â ¸ðµÎ °íÀ¯ÇÑ ÄÁÆ®·Ñ ÁýÇÕÀ» Æ÷ÇÔÇÏ´Â °íÀ¯ÇÑ CommandBar °³Ã¼ÀÔ´Ï´Ù.

Microsoft Excel¿¡¼­´Â ¸Þ´º ¸ðÀ½°ú µµ±¸ ¸ðÀ½À» µ¿ÀÏÇÑ ÇÁ·Î±×·¡¹Ö °¡´É °³Ã¼ Çü½ÄÀÎ CommandBar °³Ã¼¶ó°í ÇÕ´Ï´Ù. CommandBar °³Ã¼ÀÇ ÄÁÆ®·ÑÀ» »ç¿ëÇÏ¿© ¸Þ´º, ¸Þ´º Ç׸ñ, ÇÏÀ§ ¸Þ´º ¹× ¹Ù·Î °¡±â ¸Þ´º¸¦ ³ªÅ¸³¾ ¼ö ÀÖ½À´Ï´Ù. Type Àμö¿¡¼­ °¢ ÄÁÆ®·Ñ°ú °ü·ÃµÈ »ó¼ö¸¦ »ç¿ëÇÏ¿© ¸Þ´º, ÇÏÀ§ ¸Þ´º ¶Ç´Â ¸í·É¿¡ »ç¿ëÇÒ ÄÁÆ®·ÑÀÇ Á¾·ù¸¦ ÁöÁ¤ÇÕ´Ï´Ù.

À§·Î °¡±â

ÄÁÆ®·Ñ »ó¼ö

´ÙÀ½ ¸ñ·Ï¿¡¼­´Â Excel 2003¿¡¼­ ƯÁ¤ ¸Þ´º ¸ðÀ½ ÄÁÆ®·Ñ¿¡ »ç¿ëÇÒ ±×·¡ÇÈ ÄÁÆ®·ÑÀÇ Á¾·ù¸¦ ÁöÁ¤ÇÏ´Â ´Ù¾çÇÑ ÄÁÆ®·Ñ »ó¼ö¸¦ º¸¿© ÁÝ´Ï´Ù.
  • MsoControlActiveX*
  • MsoControlAutoCompleteCombo***
  • MsoControlButton
  • MsoControlButtonDropdown
  • MsoControlButtonPopup
  • MsoControlComboBox
  • MsoControlCustom
  • MsoControlDropdown
  • MsoControlEdit
  • MsoControlExpandingGrid
  • MsoControlGauge
  • MsoControlGenericDropdown
  • MsoControlGraphicCombo
  • MsoControlGraphicDropdown
  • MsoControlGraphicPopup
  • MsoControlGrid
  • MsoControlLabel
  • MsoControlLabelEx***
  • MsoControlOCXDropDown
  • MsoControlPane **
  • MsoControlPopup
  • MsoControlSpinner***
  • MsoControlSplitButtonMRUPopup
  • MsoControlSplitButtonPopup
  • MsoControlSplitDropdown
  • MsoControlSplitExpandingGrid
  • MsoControlWorkPane**
* = Microsoft Excel 2000¿¡¼­ »õ·Î Ãß°¡µÈ ÄÁÆ®·Ñ »ó¼ö
** = Microsoft Excel 2002¿¡¼­ »õ·Î Ãß°¡µÈ ÄÁÆ®·Ñ »ó¼ö
*** = Microsoft Office Excel 2003¿¡¼­ »õ·Î Ãß°¡µÈ ÄÁÆ®·Ñ »ó¼ö

À§·Î °¡±â

¸Þ´º ¸ðÀ½

¸Þ´º ¸ðÀ½Àº ¸í·É ¸ðÀ½ÀÇ ÇÑ Á¾·ù·Î ¸Þ´º, ¸Þ´º Ç׸ñ ¹× ÇÏÀ§ ¸Þ´º¸¦ Æ÷ÇÔÇÏ´Â °³Ã¼ÀÔ´Ï´Ù.

Excel¿¡¼­ ¸Þ´º ¸ðÀ½ ¹× ¸Þ´º Ç׸ñÀ» °ü¸®ÇÏ´Â ¹æ¹ý¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ ³»¿ëÀ» º¸·Á¸é ´ÙÀ½°ú °°ÀÌ ÇϽʽÿÀ.
  1. Microsoft Visual Basic Editor¸¦ ½ÃÀÛÇÕ´Ï´Ù.
  2. µµ¿ò¸» ¸Þ´º¿¡¼­ Microsoft Visual Basic µµ¿ò¸»À» ´©¸¨´Ï´Ù.
  3. Office ±æÀâÀÌ »óÀÚ³ª µµ¿ò¸» ¸¶¹ý»ç »óÀÚ¿¡ ¸Þ´º¸¦ ÀÔ·ÂÇÑ ´ÙÀ½ °Ë»öÀ» ½ÃÀÛÇÕ´Ï´Ù.¸¦ ´©¸¨´Ï´Ù.
  4. Excel 2003 ¹× Excel 2002ÀÇ °æ¿ì ¸Þ´º ¸ðÀ½°ú ¸Þ´º Ç׸ñ Ãß°¡ ¹× °ü¸®¸¦ ´©¸£°í, Excel 2000ÀÇ °æ¿ì ¸Þ´º ¹× µµ±¸ ¸ðÀ½ Á¤º¸¸¦ ´©¸¨´Ï´Ù.
·±Å¸ÀÓ¿¡ ¸Þ´º ¸ðÀ½°ú ÇØ´ç ¸Þ´º ¸ðÀ½ÀÇ ÄÁÆ®·ÑÀ» ¸ðµÎ ¼öÁ¤ÇÒ ¼ö ÀÖ½À´Ï´Ù. ¸Þ´º ¸ðÀ½À» º¯°æÇÏ¸é ¸Þ´º ¸ðÀ½ÀÇ ¸ð¾çÀ̳ª À§Ä¡¿¡ ¿µÇâÀ» ÁÙ ¼ö ÀÖ½À´Ï´Ù. ÄÁÆ®·ÑÀÇ º¯°æ ³»¿ëÀº ÇØ´ç ÄÁÆ®·Ñ Á¾·ù¿¡ µû¶ó ´Þ¶óÁý´Ï´Ù. ´ÙÀ½ Ç¥¿¡¼­´Â ÀϹÝÀûÀÎ ÄÁÆ®·Ñ ¼Ó¼º°ú ÄÁÆ®·ÑÀÇ »óÅÂ, µ¿ÀÛ ¶Ç´Â ³»¿ëÀ» º¯°æÇϱâ À§ÇÑ ÀϹÝÀûÀÎ ¸Þ¼­µå¸¦ º¸¿© ÁÝ´Ï´Ù.
Ç¥ Ãà¼ÒÇ¥ È®´ë
¼Ó¼º ¶Ç´Â ¸Þ¼­µå¿ëµµ
AddCommandBars °³Ã¼ Ä÷º¼ÇÀÇ Add ¸Þ¼­µå¸¦ »ç¿ëÇÏ°í Menubar Àμö¿¡ TRUE °ªÀ» ÁöÁ¤ÇÏ¿© ¸Þ´º ¸ðÀ½À» Ãß°¡ÇÕ´Ï´Ù.
EnabledEnabled ¼Ó¼ºÀÌ TRUE °ªÀ¸·Î ¼³Á¤µÇ¾î ÀÖÀ¸¸é Visual Basic Äڵ带 »ç¿ëÇÏ¿© ÁöÁ¤µÈ ¸Þ´º ¸ðÀ½À» Ç¥½ÃÇÒ ¼ö ÀÖ½À´Ï´Ù. Enabled ¼Ó¼ºÀÌ FALSE °ªÀ¸·Î ¼³Á¤µÇ¾î ÀÖÀ¸¸é ÁöÁ¤µÈ ¸Þ´º ¸ðÀ½À» Ç¥½ÃÇÒ ¼ö ¾ø½À´Ï´Ù. ±×·¯³ª ¸Þ´º ¸ðÀ½Àº »ç¿ë °¡´ÉÇÑ ¸í·É ¸ðÀ½ ¸ñ·Ï¿¡ ³ªÅ¸³³´Ï´Ù.
ProtectionƯÁ¤ »ç¿ëÀÚ ÀÛ¾÷À¸·ÎºÎÅÍ ¸Þ´º ¸ðÀ½À» º¸È£ÇÒ ¼ö ÀÖ°Ô ÇØÁÝ´Ï´Ù.
PositionÇÁ·Î±×·¥ âÀ» ±âÁØÀ¸·Î »õ ¸Þ´º ¸ðÀ½ÀÇ À§Ä¡¸¦ ÁöÁ¤ÇÕ´Ï´Ù. ÇÁ·Î±×·¥ âÀ» ±âÁØÀ¸·Î ÇÑ ¸Þ´º ¸ðÀ½ÀÇ À§Ä¡´Â MsoBarPosition »ó¼ö ¼Ó¼º Áß ÇϳªÀÏ ¼ö ÀÖ½À´Ï´Ù. ÀÌ·¯ÇÑ »ó¼ö ¼Ó¼ºÀ¸·Î´Â msoBarLeft, msoBarTop, msoBarRight, msoBarBottom, msoBarFloating, msoBarPopup(¹Ù·Î °¡±â ¸Þ´º¸¦ ¸¸µé ¶§ »ç¿ë) ¶Ç´Â msoBarMenuBar(Apple Macintosh Àü¿ë)°¡ ÀÖ½À´Ï´Ù.
VisibleÄÁÆ®·ÑÀÇ Ç¥½Ã/¼û±è ¿©ºÎ¸¦ ÁöÁ¤ÇÕ´Ï´Ù.

¸í·É ¸ðÀ½ ÄÁÆ®·ÑÀÇ ID ¹Ýȯ

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â È°¼º ¸Þ´º ¸ðÀ½ÀÇ ID¸¦ ¹ÝȯÇÕ´Ï´Ù.
Sub Id_Control ()
Dim myId as Object
   set myId = CommandBars("Worksheet Menu Bar").Controls("Tools")
   MsgBox myId.Caption & Chr(13) & MyId.Id
End Sub

È°¼º ¸Þ´º ¸ðÀ½ÀÇ À̸§ È®ÀÎ

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â È°¼º ¸Þ´º ¸ðÀ½ÀÇ À̸§À» ¹ÝȯÇÕ´Ï´Ù.
Sub MenuBars_GetName()
   MsgBox CommandBars.ActiveMenuBar.Name
End Sub

±âº» Á¦°ø ¶Ç´Â »ç¿ëÀÚ ÁöÁ¤ ¸Þ´º ¸ðÀ½ÀÇ È°¼º »óÅ ÀúÀå

OriginalMenuBar º¯¼ö¸¦ °ø¿ë º¯¼ö·Î ¼±¾ðÇÏ¿© ¼­ºê·çƾÀÌ Auto_Close ¼­ºê·çƾ µîÀÇ ´Ù¸¥ ¼­ºê·çƾ¿¡¼­ ÀÌ º¯¼ö¸¦ »ç¿ëÇÒ ¼ö ÀÖ°Ô ¸¸µé ¼ö ÀÖ½À´Ï´Ù. º¯¼ö¸¦ ÀÌ·¸°Ô ¼±¾ðÇÏ°í »ç¿ëÇÏ¸é »ç¿ëÀÚÀÇ ÀÌÀü ¸Þ´º ¸ðÀ½ÀÌ ¿ø·¡ »óÅ·Π´Ù½Ã ¼³Á¤µË´Ï´Ù. ´ÙÀ½ ¿¹Á¦ ¸ÅÅ©·Î´Â ¸Þ´º ¸ðÀ½À» ´Ù½Ã ¼³Á¤ÇÕ´Ï´Ù.
Public OriginalMenuBar as Object

Sub MenuBars_Capture()
   Set OriginalMenuBar = CommandBars.ActiveMenuBar
End Sub

»ç¿ëÀÚ ÁöÁ¤ ¸í·É ¸ðÀ½ ¸¸µé±â

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â My Command Bar¶ó´Â »ç¿ëÀÚ ÁöÁ¤ ¸í·É ¸ðÀ½À» ¸¸µì´Ï´Ù. 
Sub MenuBar_Create() Application.CommandBars.Add Name:="My command bar" End Sub

»ç¿ëÀÚ ÁöÁ¤ ¸í·É ¸ðÀ½À» ¸¸µé ¶§ Temporary:=True Àμö¸¦ »ç¿ëÇÒ ¼öµµ ÀÖ½À´Ï´Ù. Temporary:=True Àμö¸¦ »ç¿ëÇϸé ExcelÀ» Á¾·áÇÒ ¶§ ¸í·É ¸ðÀ½ÀÌ ÀÚµ¿À¸·Î ´Ù½Ã ¼³Á¤µÉ ¼ö ÀÖ½À´Ï´Ù. ´ÙÀ½ Äڵ忡¼­´Â Temporary:=True Àμö¸¦ »ç¿ëÇÏ¿© »ç¿ëÀÚ ÁöÁ¤ ¸í·É ¸ðÀ½À» ¸¸µì´Ï´Ù.
Sub MenuBar_Create()
Application.CommandBars.Add Name:="My command bar", Temporary:=True
End Sub

»ç¿ëÀÚ ÁöÁ¤ ¸í·É ¸ðÀ½ Ç¥½Ã

´ÙÀ½ ¿¹Á¦¿¡¼­´Â »ç¿ëÀÚ ÁöÁ¤ My Custom Bar ¸Þ´º ¸ðÀ½À» ¸¸µé¾î Ç¥½ÃÇÑ ´ÙÀ½ ±âº» Á¦°ø ¸Þ´º ¸ðÀ½À» ÀÌ ¸Þ´º ¸ðÀ½À¸·Î ¹Ù²ß´Ï´Ù. 
Sub MenuBar_Show()
Dim myNewBar As Object
   Set myNewBar = CommandBars.Add(Name:="Custom1", Position:=msoBarFloating)
   ' You must first enable your custom menu bar before you make it visible.
   ' Enabling a menu bar adds it to the list of available menu bars on
   ' the Customize dialog box.
' Setting the menubar property to True replaces the built-in menu bar.
   myNewBar.Enabled = True
   myNewBar.Visible = True
End Sub

»ç¿ëÀÚ ÁöÁ¤ ¸í·É ¸ðÀ½ »èÁ¦

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â Custom 1À̶ó´Â »ç¿ëÀÚ ÁöÁ¤ ¸Þ´º ¸ðÀ½À» »èÁ¦ÇÕ´Ï´Ù. 
Sub MenuBar_Delete()
   CommandBars("Custom1").Delete
End Sub

¸í·É ¸ðÀ½ ¼û±â±â

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â »ç¿ë °¡´ÉÇÑ ¸Þ´º ¸ðÀ½ ¸ñ·Ï¿¡¼­ ±âº» Á¦°ø Chart ¸Þ´º ¸ðÀ½À» Á¦°ÅÇÕ´Ï´Ù. 
Sub MenuBar_Display()
   CommandBars("Chart").Enabled = False
End Sub

¸í·É ¸ðÀ½ Ç¥½Ã

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â »ç¿ë °¡´ÉÇÑ ¸Þ´º ¸ðÀ½ ¸ñ·Ï¿¡ ±âº» Á¦°ø Chart ¸Þ´º ¸ðÀ½À» Ãß°¡ÇÕ´Ï´Ù.
Sub MenuBar_Display()
   CommandBars("Chart").Enabled = True
End Sub

±âº» Á¦°ø ¸í·É ¸ðÀ½ º¹¿ø

¸Þ´º ¸ðÀ½À» º¹¿øÇÏ¸é ¸Þ´º¿Í ¸Þ´º Ç׸ñ ¸ðµÎÀÇ ±âº» ÄÁÆ®·ÑÀÌ ´Ù½Ã ¼³Á¤µË´Ï´Ù. ´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â ±âº» Á¦°ø Chart ¸Þ´º ¸ðÀ½À» º¹¿øÇÕ´Ï´Ù. 
Sub MenuBar_Restore()
   CommandBars("Chart").Reset
End Sub
Âü°í?±âº» Á¦°ø ¸Þ´º ¸ðÀ½¸¸ ´Ù½Ã ¼³Á¤ÇÒ ¼ö ÀÖ°í »ç¿ëÀÚ ÁöÁ¤ ¸Þ´º ¸ðÀ½Àº ´Ù½Ã ¼³Á¤ÇÒ ¼ö ¾ø½À´Ï´Ù.

À§·Î °¡±â

¸Þ´º

¸Þ´º ¸ðÀ½À» º¹¿øÇÏ¸é ¸Þ´º¿Í ¸Þ´º Ç׸ñ ¸ðµÎÀÇ ±âº» ÄÁÆ®·ÑÀÌ ´Ù½Ã ¼³Á¤µË´Ï´Ù. ´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â ±âº» Á¦°ø Chart ¸Þ´º ¸ðÀ½À» º¹¿øÇÕ´Ï´Ù.

Sub MenuBar_Restore()
   CommandBars("Chart").Reset
End Sub
Âü°í?±âº» Á¦°ø ¸Þ´º ¸ðÀ½¸¸ ´Ù½Ã ¼³Á¤ÇÒ ¼ö ÀÖ°í »ç¿ëÀÚ ÁöÁ¤ ¸Þ´º ¸ðÀ½Àº ´Ù½Ã ¼³Á¤ÇÒ ¼ö ¾ø½À´Ï´Ù.

¸í·É ¸ðÀ½¿¡ »ç¿ëÀÚ ÁöÁ¤ ¸Þ´º ÄÁÆ®·Ñ Ãß°¡

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â ÇÁ·Î±×·¡¹Ö ¹æ½ÄÀ¸·Î Ãß°¡ÇÑ ¸Þ´º À̸§À» Worksheet ¸Þ´º ¸ðÀ½¿¡ Ãß°¡ÇÕ´Ï´Ù. ¿¹¸¦ µé¾î, ÀÌ Äڵ忡¼­´Â New Menu¶ó´Â ¸Þ´º À̸§À» Worksheet ¸Þ´º ¸ðÀ½¿¡ Ãß°¡ÇÕ´Ï´Ù.

Âü°í?ÀÌ ¸Þ´º¿¡ ¿øÇÏ´Â À̸§À» ÁöÁ¤ÇÒ ¼ö ÀÖ½À´Ï´Ù.
Sub Menu_Create()
Dim myMnu As Object
   Set myMnu = CommandBars("Worksheet menu bar").Controls. _
      Add(Type:=msoControlPopup, before:=3)
   With myMnu
   ' The "&" denotes a shortcut key assignment (Alt+M in this case).
      .Caption = "New &Menu"
   End With
End Sub

¸í·É ¸ðÀ½ÀÇ ¸Þ´º ÄÁÆ®·Ñ ºñÈ°¼ºÈ­

ºñÈ°¼ºÈ­µÈ ¸Þ´º ÄÁÆ®·ÑÀº ¸í·É ¸ðÀ½¿¡ Èñ¹ÌÇÏ°Ô ³ªÅ¸³ª¸ç »ç¿ëÇÒ ¼ö ¾ø½À´Ï´Ù. ´ÙÀ½ ¿¹Á¦¿¡¼­´Â New Menu ¸Þ´º¸¦ ºñÈ°¼ºÈ­ÇÕ´Ï´Ù. 
Sub Menu_Disable()
   CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = False
End Sub

¸í·É ¸ðÀ½ÀÇ ¸Þ´º ÄÁÆ®·Ñ È°¼ºÈ­

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â "¸í·É ¸ðÀ½ÀÇ ¸Þ´º ÄÁÆ®·Ñ ºñÈ°¼ºÈ­" Àý¿¡¼­ ºñÈ°¼ºÈ­ÇÑ New Menu ¸Þ´º¸¦ È°¼ºÈ­ÇÕ´Ï´Ù. 
Sub Menu_Disable()
   CommandBars("Worksheet menu bar").Controls("New &Menu").Enabled = True
End Sub

¸í·É ¸ðÀ½ÀÇ ¸Þ´º ÄÁÆ®·Ñ »èÁ¦

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â "¸í·É ¸ðÀ½¿¡ »ç¿ëÀÚ ÁöÁ¤ ¸Þ´º ÄÁÆ®·Ñ Ãß°¡" Àý¿¡¼­ ¸¸µç New Menu ¸Þ´º¸¦ Worksheet ¸Þ´º ¸ðÀ½¿¡¼­ »èÁ¦ÇÕ´Ï´Ù.
Sub Menu_Delete()
   CommandBars("Worksheet menu bar").Controls("New &Menu").Delete
End Sub

¸í·É ¸ðÀ½ÀÇ ¸Þ´º ÄÁÆ®·Ñ º¹¿ø

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â ±âº» Á¦°ø Chart ¸Þ´º ¸ðÀ½À» Worksheet ¸Þ´º ¸ðÀ½¿¡ º¹¿øÇÕ´Ï´Ù. 
Sub Menu_Restore()
Dim myMnu As Object
   Set myMnu = CommandBars("Chart")
   myMnu.Reset
End Sub

À§·Î °¡±â

¸í·É

¸í·ÉÀ» ¼öÁ¤ÇÒ ¼ö ÀÖ´Â ¹üÀ§´Â ÄÁÆ®·Ñ Á¾·ù¿¡ µû¶ó ´Ù¸¨´Ï´Ù. ÀϹÝÀûÀ¸·Î ´ÜÃß´Â È°¼ºÈ­Çϰųª ¼û±æ ¼ö¸¸ ÀÖ½À´Ï´Ù. ÀԷ¶õ, µå·Ó´Ù¿î ¸ñ·Ï »óÀÚ ¹× ÄÞº¸ »óÀÚÀÇ °æ¿ì ¸ñ·Ï¿¡¼­ Ç׸ñÀ» Ãß°¡Çϰųª »èÁ¦ÇÒ ¼ö ÀÖÀ¸¹Ç·Î º¸´Ù À¶Å뼺ÀÌ ÀÖ½À´Ï´Ù. ¶ÇÇÑ ¸ñ·Ï¿¡¼­ ¼±ÅÃÇÑ Ç׸ñÀÇ °ªÀ» º¸°í ¼öÇàµÇ´Â ÀÛ¾÷À» È®ÀÎÇÒ ¼ö ÀÖ½À´Ï´Ù. ¸ðµç ÄÁÆ®·ÑÀÇ µ¿ÀÛÀ» ±âº» Á¦°ø ÇÔ¼ö³ª »ç¿ëÀÚ ÁöÁ¤ ÇÔ¼ö·Î º¯°æÇÒ ¼ö ÀÖ½À´Ï´Ù.

´ÙÀ½ Ç¥¿¡¼­´Â ÀϹÝÀûÀÎ ÄÁÆ®·Ñ ¼Ó¼º°ú ÄÁÆ®·ÑÀÇ »óÅÂ, µ¿ÀÛ ¶Ç´Â ³»¿ëÀ» º¯°æÇϱâ À§ÇÑ ¸Þ¼­µå¸¦ º¸¿© ÁÝ´Ï´Ù.
Ç¥ Ãà¼ÒÇ¥ È®´ë
¼Ó¼º ¶Ç´Â ¸Þ¼­µå¿ëµµ
Add¸í·É ¸ðÀ½¿¡ ¸í·ÉÀ» Ãß°¡ÇÕ´Ï´Ù.
AddItemµå·Ó´Ù¿î ¸ñ·Ï »óÀÚ³ª ÄÞº¸ »óÀÚÀÇ µå·Ó´Ù¿î ¸ñ·Ï ºÎºÐ¿¡ Ç׸ñÀ» Ãß°¡ÇÕ´Ï´Ù.
Style´ÜÃß Ç¥¸é¿¡ ¾ÆÀÌÄÜÀ» Ç¥½ÃÇÒÁö ¶Ç´Â ĸ¼ÇÀ» Ç¥½ÃÇÒÁö¸¦ ÁöÁ¤ÇÕ´Ï´Ù.
OnAction»ç¿ëÀÚ°¡ ÄÁÆ®·ÑÀÇ °ªÀ» º¯°æÇÒ ¶§ ½ÇÇàÇÒ ÇÁ·Î½ÃÀú¸¦ ÁöÁ¤ÇÕ´Ï´Ù.
VisibleÄÁÆ®·ÑÀÇ Ç¥½Ã/¼û±è ¿©ºÎ¸¦ ÁöÁ¤ÇÕ´Ï´Ù.

Excel 2003 ¹× Excel 2002ÀÇ ¸Þ´º¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ ³»¿ëÀ» º¸·Á¸é ´ÙÀ½°ú °°ÀÌ ÇϽʽÿÀ.
  1. Visual Basic Script Editor¸¦ ½ÃÀÛÇÕ´Ï´Ù.
  2. µµ¿ò¸» ¸Þ´º¿¡¼­ Microsoft Visual Basic µµ¿ò¸»À» ´©¸¨´Ï´Ù.
  3. °Ë»ö »óÀÚ¿¡ ¸Þ´º¸¦ ÀÔ·ÂÇÑ ´ÙÀ½ Enter Å°¸¦ ´©¸¨´Ï´Ù.
  4. ¸Þ´º ¸ðÀ½°ú ¸Þ´º Ç׸ñ Ãß°¡ ¹× °ü¸®¸¦ ´©¸¨´Ï´Ù.

¸Þ´º ÄÁÆ®·Ñ¿¡ ±¸ºÐÁÙ Ãß°¡

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â Insert ¸Þ´ºÀÇ Worksheet ¸í·É À§¿¡ ±¸ºÐÁÙÀ» Ãß°¡ÇÕ´Ï´Ù. 
Sub menuItem_AddSeparator()
   CommandBars("Worksheet menu bar").Controls("Insert") _
   .Controls("Worksheet").BeginGroup = True
End Sub
Âü°í?±¸ºÐÁÙÀ» Á¦°ÅÇÏ·Á¸é BeginGroup ¼Ó¼ºÀ» False·Î ¼³Á¤ÇÕ´Ï´Ù.

¸Þ´º¿¡ »ç¿ëÀÚ ÁöÁ¤ ¸í·É ÄÁÆ®·Ñ ¸¸µé±â

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â Worksheet ¸Þ´º ¸ðÀ½ÀÇ Tools ¸Þ´º¿¡ Custom1À̶ó´Â »õ ¸í·ÉÀ» ¸¸µé°í, »ç¿ëÀÚ°¡ Custom1À» ´©¸£¸é Code_Custom1 ¸ÅÅ©·Î¸¦ ½ÇÇàÇÕ´Ï´Ù. 
Sub menuItem_Create()
   With CommandBars("Worksheet menu bar").Controls("Tools")
      .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "Custom1"
      .Controls("Custom1").OnAction = "Code_Custom1"
   End With
End Sub

¸í·É ÄÁÆ®·Ñ ¿·¿¡ È®ÀΠǥ½Ã Ãß°¡

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â Custom1 ¸í·ÉÀÌ ¼±ÅõÇÁö ¾ÊÀº °æ¿ì ÇØ´ç ¸í·É ¿·¿¡ È®ÀΠǥ½Ã¸¦ Ãß°¡ÇÏ°í Custom1 ¸í·ÉÀÌ ¼±ÅÃµÈ °æ¿ì È®ÀΠǥ½Ã¸¦ Á¦°ÅÇÕ´Ï´Ù. 
Sub menuItem_checkMark()
Dim myPopup as Object

   Set myPopup = CommandBars("Worksheet menu bar").Controls("Tools")
   If myPopup.Controls("Custom1").State = msoButtonDown Then
      ' Remove check mark next to menu item.
      myPopup.Controls("Custom1").State = msoButtonUp
      MsgBox "Custom1 is now unchecked"
      Else
        ' Add check mark next to menu item.
         myPopup.Controls("Custom1").State = msoButtonDown
         MsgBox "Custom1 is now checked"
    End If
End Sub

¸í·É ¸ðÀ½ÀÇ ¸í·É ÄÁÆ®·Ñ ºñÈ°¼ºÈ­

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â "¸Þ´º¿¡ »ç¿ëÀÚ ÁöÁ¤ ¸í·É ÄÁÆ®·Ñ ¸¸µé±â" Àý¿¡¼­ Tools ¸Þ´º¿¡ ¸¸µç Custom1 ¸í·ÉÀ» ºñÈ°¼ºÈ­ÇÕ´Ï´Ù. 
Sub MenuItem_Disable()
Dim myCmd as Object
   Set myCmd = CommandBars("Worksheet menu bar").Controls("Tools")
   myCmd.Controls("Custom1").Enabled = False
End Sub

¸í·É ¸ðÀ½ÀÇ ¸í·É ÄÁÆ®·Ñ È°¼ºÈ­

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â "¸í·É ¸ðÀ½ÀÇ ¸í·É ÄÁÆ®·Ñ ºñÈ°¼ºÈ­" Àý¿¡¼­ ºñÈ°¼ºÈ­ÇÑ Custom1 ¸í·ÉÀ» È°¼ºÈ­ÇÕ´Ï´Ù.
Sub MenuItem_Enable()
Dim myCmd as Object
   Set myCmd = CommandBars("Worksheet menu bar").Controls("Tools")
   myCmd.Controls("Custom1").Enabled = True
End Sub

¸Þ´ºÀÇ ¸í·É ÄÁÆ®·Ñ »èÁ¦

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â File ¸Þ´ºÀÇ Save ¸í·ÉÀ» »èÁ¦ÇÕ´Ï´Ù. 
Sub menuItem_Delete()
Dim myCmd As Object
   Set myCmd = CommandBars("Worksheet menu bar").Controls("File")
   myCmd.Controls("Save").Delete
End Sub

¸Þ´ºÀÇ ±âº» Á¦°ø ¸í·É ÄÁÆ®·Ñ º¹¿ø

¸Þ´ºÀÇ ¸í·É ÄÁÆ®·ÑÀ» º¹¿øÇÏ·Á¸é ÇØ´ç ÄÁÆ®·ÑÀÇ ID ¹øÈ£¸¦ ¾Ë°í ÀÖ¾î¾ß ÇÕ´Ï´Ù. ID ¹øÈ£¸¦ È®ÀÎÇÏ·Á¸é "¸í·É ¸ðÀ½ ÄÁÆ®·ÑÀÇ ID ¹Ýȯ" ÀýÀ» ÂüÁ¶ÇϽʽÿÀ. ´ÙÀ½ ¿¹Á¦¿¡¼­´Â "¸Þ´ºÀÇ ¸í·É ÄÁÆ®·Ñ »èÁ¦" Àý¿¡¼­ »èÁ¦ÇÑ Save ¸í·ÉÀ» º¹¿øÇÕ´Ï´Ù. 
Sub menuItem_Restore()
Dim myCmd As Object
   Set myCmd = CommandBars("Worksheet menu bar").Controls("File")
   ' Id 3 refers to the Save menu item control.
   myCmd.Controls.Add Type:=msoControlButton, ID:=3, Before:=5
End Sub

À§·Î °¡±â

ÇÏÀ§ ¸Þ´º

ÇÏÀ§ ¸Þ´º´Â ¸í·ÉÀ» ´©¸¦ ¶§ ºÎ¸ð ¸Þ´ºÀÇ ¿·¿¡ ³ªÅ¸³³´Ï´Ù. ÇÏÀ§ ¸Þ´º ÄÁÆ®·Ñ¿¡ ÇØ´çÇÏ´Â ¸í·ÉÀÇ ¸í·É À̸§ ¿À¸¥ÂÊ ³¡¿¡´Â ÀÛÀº °ËÀº»ö È­»ìÇ¥°¡ Ç¥½ÃµË´Ï´Ù.

ÇÏÀ§ ¸Þ´º Ãß°¡

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â Worksheet ¸Þ´º ¸ðÀ½ÀÇ Tools ¸Þ´º¿¡ NewSub¶ó´Â »õ ÇÏÀ§ ¸Þ´º¸¦ Ãß°¡ÇÕ´Ï´Ù. 
Sub SubMenu_Create()
Dim newSub as Object
   Set newSub = CommandBars("Worksheet menu bar").Controls("Tools")
   With newSub
      .Controls.Add(Type:=msoControlPopup, Before:=1).Caption="NewSub"
   End With
End Sub

ÇÏÀ§ ¸Þ´º¿¡ ¸í·É Ãß°¡

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â NewSub ÇÏÀ§ ¸Þ´º¿¡ SubItem1À̶ó´Â »õ ¸í·ÉÀ» Ãß°¡ÇÏ°í, »ç¿ëÀÚ°¡ SubItem1À» ´©¸£¸é Code_SubItem1 ¸ÅÅ©·Î¸¦ ½ÇÇàÇÕ´Ï´Ù. 
Sub SubMenu_AddItem()
Dim newSubItem as Object
   Set newSubItem = CommandBars("Worksheet menu bar") _
   .Controls("Tools").Controls("NewSub")
   With newSubItem
      .Controls.Add(Type:=msoControlButton, Before:=1).Caption = "SubItem1"
      .Controls("SubItem1").OnAction = "Code_SubItem1"
   End With
End Sub

ÇÏÀ§ ¸Þ´ºÀÇ ¸í·É ÄÁÆ®·Ñ ºñÈ°¼ºÈ­

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â "ÇÏÀ§ ¸Þ´º¿¡ ¸í·É Ãß°¡" Àý¿¡¼­ ¸¸µç µ¿ÀÏÇÑ SubItem ¸í·ÉÀ» ºñÈ°¼ºÈ­ÇÕ´Ï´Ù. 

Sub SubMenu_DisableItem()
   CommandBars("Worksheet menu bar").Controls("Tools") _
   .Controls("NewSub").Controls("SubItem1").Enabled = False
End Sub


´ÙÀ½ ¿¹Á¦¿¡¼­´Â µ¿ÀÏÇÑ SubItem ¸í·ÉÀ» È°¼ºÈ­ÇÕ´Ï´Ù. 
Sub SubMenu_DisableItem()
   CommandBars("Worksheet menu bar").Controls("Tools") _
   .Controls("NewSub").Controls("SubItem1").Enabled = True
End Sub

ÇÏÀ§ ¸Þ´ºÀÇ ¸í·É »èÁ¦

´ÙÀ½ ¿¹Á¦¿¡¼­´Â "ÇÏÀ§ ¸Þ´º¿¡ ¸í·É Ãß°¡" Àý¿¡¼­ NewSub ÇÏÀ§ ¸Þ´º¿¡ ¸¸µç SubItem1 ¸í·ÉÀ» »èÁ¦ÇÕ´Ï´Ù. 
Sub SubMenu_DeleteItem()
   CommandBars("Worksheet menu bar").Controls("Tools") _
   .Controls("NewSub").Controls("SubItem1").Delete
End Sub

ÇÏÀ§ ¸Þ´º ÄÁÆ®·Ñ ºñÈ°¼ºÈ­

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â "ÇÏÀ§ ¸Þ´º Ãß°¡" Àý¿¡¼­ Tools ¸Þ´º¿¡ ¸¸µç NewSub ÇÏÀ§ ¸Þ´º¸¦ ºñÈ°¼ºÈ­ÇÕ´Ï´Ù. 
Sub SubMenu_DisableSub()
   CommandBars("Worksheet menu bar").Controls("Tools") _
   .Controls("NewSub").Enabled = False
End Sub
Âü°í?ºñÈ°¼ºÈ­µÈ ÄÁÆ®·ÑÀ» È°¼ºÈ­ÇÏ·Á¸é Enabled ¼Ó¼ºÀ» True·Î ¼³Á¤ÇÕ´Ï´Ù.

ÇÏÀ§ ¸Þ´º ÄÁÆ®·Ñ »èÁ¦

´ÙÀ½ ÄÚµå ¿¹Á¦¿¡¼­´Â "ÇÏÀ§ ¸Þ´º Ãß°¡" Àý¿¡¼­ Tools ¸Þ´º¿¡ ¸¸µç NewSub ÇÏÀ§ ¸Þ´º¸¦ »èÁ¦ÇÕ´Ï´Ù. 
Sub SubMenu_DeleteSub()
   CommandBars("Worksheet menu bar").Controls("Tools") _
   .Controls("NewSub").Delete
End Sub

À§·Î °¡±â

¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½

¹Ù·Î °¡±â ¸Þ´º´Â »ç¿ëÀÚ°¡ °³Ã¼¸¦ ¸¶¿ì½º ¿À¸¥ÂÊ ´ÜÃß·Î ´©¸¦ ¶§ ³ªÅ¸³ª´Â ºÎµ¿ ¸í·É ¸ðÀ½ÀÔ´Ï´Ù. ¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½¿¡ Æ÷ÇԵǴ ÄÁÆ®·ÑÀº ¸í·É ¸ðÀ½¿¡ Æ÷ÇԵǴ ÄÁÆ®·Ñ°ú Á¾·ù ¹× µ¿ÀÛÀÌ µ¿ÀÏÇÕ´Ï´Ù. ´ëºÎºÐÀÇ ÇÁ·Î±×·¥¿¡¼­´Â ÇÁ·Î±×·¥ÀÇ ÀÎÅÍÆäÀ̽º¿¡¼­ ¹Ù·Î °¡±â ¸Þ´º¸¦ ¸¸µé°Å³ª ¼öÁ¤ÇÒ ¼ö ¾ø½À´Ï´Ù. µû¶ó¼­ ·±Å¸ÀÓ¿¡ ¹Ù·Î °¡±â ¸Þ´º¸¦ ¸¸µé°í ¼öÁ¤ÇØ¾ß ÇÕ´Ï´Ù.

Excel 2002 ¹× Excel 2003ÀÇ ¹Ù·Î °¡±â ¸Þ´º¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ ³»¿ëÀ» º¸·Á¸é ´ÙÀ½°ú °°ÀÌ ÇϽʽÿÀ.
  1. Visual Basic Script Editor¸¦ ½ÃÀÛÇÕ´Ï´Ù.
  2. µµ¿ò¸» ¸Þ´º¿¡¼­ Microsoft Visual Basic µµ¿ò¸»À» ´©¸¨´Ï´Ù.
  3. °Ë»ö »óÀÚ¿¡ ¹Ù·Î °¡±â¸¦ ÀÔ·ÂÇÑ ´ÙÀ½ Enter Å°¸¦ ´©¸¨´Ï´Ù.
  4. ¹Ù·Î °¡±â ¸Þ´º Ãß°¡ ¹× Ç¥½Ã¸¦ ´©¸¨´Ï´Ù.

»õ ¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½ ¸¸µé±â

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â myShortcutBar¶ó´Â »õ ¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½À» ¸¸µì´Ï´Ù.

Sub Shortcut_Create()
Dim myShtCtBar as Object
   Set myShtCtBar = CommandBars.Add(Name:="myShortcutBar", _
   Position:=msoBarPopup)
   ¡® This displays the shortcut menu bar.
   ¡® 200, 200 refers to the screen position in pixels as x and y coordinates.
   myShtCtBar.ShowPopup 200,200
End Sub
Âü°í?ÀÌ ¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½Àº ÄÁÆ®·Ñ(¸Þ´º Ç׸ñ ¶Ç´Â ÇÏÀ§ ¸Þ´º)ÀÌ Ãß°¡µÇÁö ¾Ê¾ÒÀ¸¹Ç·Î ºó »óÅ·Π³ªÅ¸³³´Ï´Ù.

À§·Î °¡±â

¹Ù·Î °¡±â ¸Þ´º

¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½Àº ƯÁ¤ Excel °³Ã¼¸¦ ¸¶¿ì½º ¿À¸¥ÂÊ ´ÜÃß·Î ´©¸¦ ¶§ ³ªÅ¸³³´Ï´Ù. Excel¿¡´Â ´Ù¾çÇÑ ¸Þ´º¸¦ »ç¿ëÇÒ ¼ö ÀÖ´Â ¿©·¯ °¡Áö ¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½ÀÌ ÀÖ½À´Ï´Ù. »ç¿ëÀÚ ÁöÁ¤ ¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½À» ¸¸µé°í ±âº» Á¦°ø ¸Þ´º ¸ðÀ½À» »ç¿ëÀÚ ÁöÁ¤ÇÒ ¼öµµ ÀÖ½À´Ï´Ù.

¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½¿¡ ¸í·É ¸¸µé±â

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â myShortcutBar ¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½¿¡ Item1À̶ó´Â »õ ¸Þ´º ¸í·ÉÀ» ¸¸µé°í, »ç¿ëÀÚ°¡ Item1À» ´©¸£¸é Code_Item1 ¸ÅÅ©·Î¸¦ ½ÇÇàÇÕ´Ï´Ù. 
Sub Shortcut_AddItem()
Dim myBar as Object
   Set myBar = CommandBars("myShortcutBar")
   With myBar
      .Controls.Add (Type:=msoControlButton, before:=1).Caption = "Item1"
      .Controls("Item1").OnAction = "Code_Item1"
   End With
   myBar.ShowPopup 200,200
End Sub

¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½ÀÇ ¸í·É ÄÁÆ®·Ñ ºñÈ°¼ºÈ­

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â "¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½¿¡ ¸í·É ¸¸µé±â" Àý¿¡¼­ ¸¸µç Item1 ¸í·ÉÀ» ºñÈ°¼ºÈ­ÇÕ´Ï´Ù. 
Sub Shortcut_DisableItem()
   Set myBar = CommandBars("myShortcutBar")
   myBar.Controls("Item1").Enabled = False
   myBar.ShowPopup 200,200
End Sub
Âü°í?ºñÈ°¼ºÈ­µÈ Ç׸ñÀ» È°¼ºÈ­ÇÏ·Á¸é Enabled ¼Ó¼ºÀ» True·Î ¼³Á¤ÇÕ´Ï´Ù.

¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½ÀÇ ¸í·É »èÁ¦

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â myShortcutBar ¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½ÀÇ Item1À̶ó´Â ¸Þ´º ¸í·ÉÀ» »èÁ¦ÇÕ´Ï´Ù. 
Sub Shortcut_DeleteItem()
   Set myBar = CommandBars("myShortcutBar")
   myBar.Controls("Item1").Delete
   myBar.ShowPopup 200,200
End Sub

¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½ »èÁ¦

¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½À» »èÁ¦Çϸé ÇØ´ç Ç׸ñÀÌ ¸ðµÎ Á¦°ÅµË´Ï´Ù. »èÁ¦µÈ »ç¿ëÀÚ ÁöÁ¤ ¸Þ´º ¸ðÀ½Àº º¹¿øÇÒ ¼ö ¾ø½À´Ï´Ù. »èÁ¦µÈ »ç¿ëÀÚ ÁöÁ¤ ¸Þ´º ¸ðÀ½À» º¹¿øÇÏ·Á¸é ÇØ´ç ¸Þ´º ¸ðÀ½°ú ¸Þ´º Ç׸ñ ¹× ÇÏÀ§ ¸Þ´º¸¦ ¸ðµÎ ´Ù½Ã ¸¸µé¾î¾ß ÇÕ´Ï´Ù.

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â "¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½¿¡ ¸í·É ¸¸µé±â" Àý¿¡¼­ ¸¸µç myShortCutBar ¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½À» »èÁ¦ÇÕ´Ï´Ù. 
Sub Shortcut_DeleteShortCutBar()
   CommandBars("MyShortCutBar").Delete
End Sub

±âº» Á¦°ø ¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½ÀÇ ¸í·É º¹¿ø

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â ¿öÅ©½ÃÆ® Cell ¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½ÀÇ ±âº» ¸í·ÉÀ» º¹¿øÇÕ´Ï´Ù.
Sub Shortcut_RestoreItem()
   CommandBars("Cell").Reset
End Sub

À§·Î °¡±â

¹Ù·Î °¡±â ¸Þ´ºÀÇ ÇÏÀ§ ¸Þ´º

¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½¿¡ ÇÏÀ§ ¸Þ´º¸¦ ¸¸µé ¼ö ÀÖ½À´Ï´Ù. ÇÏÀ§ ¸Þ´º´Â ¸í·É ÄÁÆ®·ÑÀ» ´©¸¦ ¶§ ºÎ¸ð ¸Þ´ºÀÇ ¿·¿¡ ³ªÅ¸³³´Ï´Ù. ÇÏÀ§ ¸Þ´º ÄÁÆ®·Ñ¿¡ ÇØ´çÇÏ´Â ¸í·ÉÀÇ À̸§ ¿À¸¥ÂÊ¿¡´Â ÀÛÀº °ËÀº»ö È­»ìÇ¥°¡ Ç¥½ÃµË´Ï´Ù.

¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½¿¡ »õ ÇÏÀ§ ¸Þ´º ¸¸µé±â

´ÙÀ½ ¿¹Á¦¿¡¼­´Â ¿öÅ©½ÃÆ® Cell ¹Ù·Î °¡±â ¸Þ´º¿¡ NewSub¶ó´Â »õ ÇÏÀ§ ¸Þ´º¸¦ Ãß°¡ÇÕ´Ï´Ù. 
Sub ShortcutSub_Create()
   CommandBars("Cell").Controls.Add(Type:=msoControlPopup, before:=1) _
   .Caption = "NewSub"
    ' This displays the shortcut menu bar.
    ' 200, 200 refers to the screen position in pixels as x and y coordinates.
   CommandBars("Cell").ShowPopup 200, 200
End Sub
Âü°í?ÀÌ ÇÏÀ§ ¸Þ´º´Â ¸Þ´º Ç׸ñÀÌ Ãß°¡µÇÁö ¾Ê¾ÒÀ¸¹Ç·Î ºó »óÅ·Π³ªÅ¸³³´Ï´Ù.

¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½¿¡ ÀÖ´Â ÇÏÀ§ ¸Þ´º¿¡ ¸í·É ÄÁÆ®·Ñ ¸¸µé±â

´ÙÀ½ ¸ÅÅ©·Î´Â Cell ¹Ù·Î °¡±â ¸Þ´º¿¡ ¸¸µç NewSub ÇÏÀ§ ¸Þ´º¿¡ SubItem1 ¸í·ÉÀ» Ãß°¡ÇÏ°í, »ç¿ëÀÚ°¡ SubItem1À» ´©¸£¸é Code_SubItem1 ¸ÅÅ©·Î¸¦ ½ÇÇàÇÕ´Ï´Ù. 
Sub ShortcutSub_AddItem()
Dim newSubItem as Object
   Set newSubItem = CommandBars("Cell").Controls("NewSub¡±)
   With newSubItem
      .Controls.Add(Type:=msoControlButton, before:=1).Caption = "subItem1"
      ' This will run the subItem1_Code macro when subItem1 is clicked.
      .Controls("subItem1").OnAction = "Code_subItem1"
   End With
   ' This displays the Cell shortcut menu bar.
   ' 200, 200 refers to the screen position in pixels as x and y coordinates
   CommandBars("Cell").ShowPopup 200, 200
End Sub

¹Ù·Î °¡±â ¸Þ´ºÀÇ ÇÏÀ§ ¸Þ´º Ç׸ñ ÄÁÆ®·Ñ ºñÈ°¼ºÈ­

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â NewSub ÇÏÀ§ ¸Þ´ºÀÇ SubItem1 ¸í·ÉÀ» ºñÈ°¼ºÈ­ÇÕ´Ï´Ù. 
Sub ShortcutSub_DisableItem()
   CommandBars("Cell").Controls("NewSub") _
   .Controls("subItem1").Enabled = False
   ' This displays the Cell shortcut menu bar.
   ' 200, 200 refers to the screen position in pixels as x and y coordinates.
   CommandBars("Cell").ShowPopup 200, 200
End Sub
Âü°í?ºñÈ°¼ºÈ­µÈ Ç׸ñÀ» È°¼ºÈ­ÇÏ·Á¸é Enabled ¼Ó¼ºÀ» True·Î ¼³Á¤ÇÕ´Ï´Ù.

¹Ù·Î °¡±â ¸Þ´ºÀÇ ÇÏÀ§ ¸Þ´º Ç׸ñ ÄÁÆ®·Ñ »èÁ¦

´ÙÀ½ ¿¹Á¦¿¡¼­´Â NewSub ÇÏÀ§ ¸Þ´ºÀÇ SubItem1 ¸í·ÉÀ» »èÁ¦ÇÕ´Ï´Ù. 
Sub ShortcutSub_DeleteItem()
   CommandBars("Cell").Controls("NewSub").Controls("subItem1").Delete
   ' This displays the Cell shortcut menu bar.
   ' 200, 200 refers to the screen position in pixels as x and y coordinates.
   CommandBars("Cell").ShowPopup 200, 200
End Sub

¹Ù·Î °¡±â ¸Þ´ºÀÇ ÇÏÀ§ ¸Þ´º ÄÁÆ®·Ñ ºñÈ°¼ºÈ­

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â Cell ¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½ÀÇ NewSub ÇÏÀ§ ¸Þ´º¸¦ ºñÈ°¼ºÈ­ÇÕ´Ï´Ù. 
Sub ShortcutSub_DisableSub()
   CommandBars("Cell").Controls("NewSub").Enabled = False
   ' This displays the Cell shortcut menu bar.
   ' 200, 200 refers to the screen position in pixels as x and y coordinates.
   CommandBars("Cell").ShowPopup 200, 200
End Sub
Âü°í?ºñÈ°¼ºÈ­µÈ Ç׸ñÀ» È°¼ºÈ­ÇÏ·Á¸é Enabled ¼Ó¼ºÀ» True·Î ¼³Á¤ÇÕ´Ï´Ù.

¹Ù·Î °¡±â ¸Þ´ºÀÇ ÇÏÀ§ ¸Þ´º ÄÁÆ®·Ñ »èÁ¦

´ÙÀ½ ¿¹Á¦ Äڵ忡¼­´Â Cell ¹Ù·Î °¡±â ¸Þ´º ¸ðÀ½¿¡ ¸¸µç NewSub ÇÏÀ§ ¸Þ´º¸¦ »èÁ¦ÇÕ´Ï´Ù. 
Sub ShortcutSub_DeleteSub()
   CommandBars("Cell").Controls("NewSub").Delete
   ' This displays the Cell shortcut menu bar.
   ' 200, 200 refers to the screen position in pixels as x and y coordinates.
   CommandBars("Cell").ShowPopup 200, 200
End Sub

À§·Î °¡±â

Ãß°¡ Á¤º¸ ã±â

´ÙÀ½ ¸®¼Ò½º¿¡¼­´Â Excel¿¡¼­ ¸Þ´º ¹× ¸Þ´º ¸ðÀ½À» »ç¿ëÀÚ ÁöÁ¤ÇÏ´Â ¹æ¹ý¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ ³»¿ëÀ» Á¦°øÇÕ´Ï´Ù.

°³Ã¼ ã¾Æº¸±â

°³Ã¼ ã¾Æº¸±â¿¡´Â ƯÁ¤ ¸í·É¿¡ ´ëÇÑ ¸ðµç ¼Ó¼º ¹× ¸Þ¼­µåÀÇ Àüü ¸ñ·ÏÀÌ Æ÷ÇԵǾî ÀÖ½À´Ï´Ù. ÀÌ Á¤º¸¸¦ ã¾Æº¸·Á¸é Alt+F11À» ´­·¯ Visual Basic Editor·Î ÀüȯÇÏ°í, º¸±â ¸Þ´ºÀÇ °³Ã¼ ã¾Æº¸±â(¶Ç´Â F2 Å°)¸¦ ´©¸£°í, °Ë»ö »óÀÚ¿¡ ÄÁÆ®·Ñ À̸§À» ÀÔ·ÂÇÑ ´ÙÀ½ Enter Å°¸¦ ´©¸£°Å³ª °Ë»öÀ» ´©¸¨´Ï´Ù.

Microsoft ±â¼ú ÀÚ·á

Microsoft ±â¼ú ÀÚ·á¿¡´Â Microsoft °í°´±â¼úÁö¿øºÎ Áö¿ø ´ã´çÀÚ¸¦ À§ÇÑ Microsoft Á¦Ç° Á¤º¸°¡ Æ÷ÇԵǾî ÀÖ½À´Ï´Ù. Microsoft °í°´µµ Microsoft ±â¼ú ÀڷḦ »ç¿ëÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÌ Æ÷°ýÀûÀÎ µ¥ÀÌÅͺ£À̽º¿¡´Â Microsoft Á¦Ç°¿¡ ´ëÇÑ ±â¼ú Á¤º¸, ¹®¼­È­µÈ ¼öÁ¤ ÇÁ·Î±×·¥ ¸ñ·Ï, ¼³¸í¼­ ¿À·ù, ±â¼ú Áö¿ø¿¡ ´ëÇÑ Áú¹®°ú ´ë´ä µîÀÌ Æ÷ÇÔµÈ ÀÚ¼¼ÇÑ ¹®¼­°¡ µé¾î ÀÖ½À´Ï´Ù.

Microsoft ±â¼ú ÀÚ·á¿¡ ¿¬°áÇÏ·Á¸é ´ÙÀ½ Microsoft À¥ »çÀÌÆ®¸¦ ¹æ¹®ÇÑ ´ÙÀ½ ÆäÀÌÁö¿¡ ³ªÅ¸³ª´Â Áö½Ã¸¦ µû¸£½Ê½Ã¿À.
http://support.microsoft.com (http://support.microsoft.com/)




Microsoft Á¦Ç° °ü·Ã ±â¼ú Àü¹®°¡µé°ú ¿Â¶óÀÎÀ¸·Î Á¤º¸¸¦ ±³È¯ÇϽ÷Á¸é Microsoft ´º½º ±×·ì (http://support.microsoft.com/newsgroups/default.aspx) ¿¡ Âü¿©ÇϽñ⠹ٶø´Ï´Ù.
À§·Î °¡±â
º» ¹®¼­ÀÇ Á¤º¸´Â ´ÙÀ½ÀÇ Á¦Ç°¿¡ Àû¿ëµË´Ï´Ù.
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
  • Microsoft Excel 2000 Standard Edition
À§·Î °¡±â
Å°¿öµå:?
kbhowtomaster KB830502
À§·Î °¡±â