XL2000: ¸ñ·Ï »óÀÚ³ª ÄÞº¸ »óÀÚ¿¡ ¸ðµç Ç׸ñ Á¦°Å ¹æ¹ý

±â¼ú ÀÚ·á: 213721 - ÀÌ ¹®¼­°¡ Àû¿ëµÇ´Â Á¦Ç° º¸±â.
¸ðµÎ È®´ë | ¸ðµÎ Ãà¼Ò

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

¿ä¾à

¸ñ·Ï »óÀÚ³ª ÄÞº¸ »óÀÚ¿¡ ÄÁÆ®·Ñ¿¡ »ç¿ëÀÚ Á¤ÀÇ Æû¿¡ ÀÖ´Â ¸ðµç Ç׸ñÀ» Á¦°ÅÇÏ´Â µ¥ »ç¿ëÇÒ ¼ö ÀÖ´Â ´ÜÀÏ ¹æ¹ýÀÌ ¾ø½À´Ï´Ù. Ç׸ñÀ» Á¦°ÅÇÏ´Â µ¥ »ç¿ëÇÒ ¸Þ¼­µå¸¦ ¿öÅ©½ÃÆ®¿¡ ¸ñ·Ï »óÀÚ³ª ÄÞº¸ »óÀÚ¿¡ ÄÁÆ®·ÑÀÌ ¹ÙÀεùµÇ¾î ÀÖ´ÂÁö ¿©ºÎ¿¡ ´Þ¶óÁý´Ï´Ù. ÀÌ ¹®¼­¿¡¼­´Â ¹ÙÀεùµÈ »ùÇà ÄÁÆ®·Ñ¿¡¼­ Ç׸ñ Á¦°Å ¿¹°¡ Æ÷ÇÔµÇ¾î ¿öÅ©½ÃÆ® ¿¹Á¦ Áï ¾Ê´Â Á¦¾î ¹× ¿öÅ©½ÃÆ®¿¡ ¹ÙÀεùµÈ.

Ãß°¡ Á¤º¸

MicrosoftÀ» ¹èÁ¦Çϸç Á¦ÇѵÇÁö ¾ÊÀº ¹¬½ÃÀûµÈ º¸Áõ (»óǰ¼º ¹× ƯÁ¤ ¸ñÀû¿¡ÀÇ ÀûÇÕ¼º¿¡ ´ëÇÑ ¹¬½ÃÀûÀÎ, ¸ñÀûÀ¸·Î¸¸ ÇÁ·Î±×·¡¹Ö ¿¹Á¦¸¦ Á¦°øÇÕ´Ï´Ù. ÀÌ ¹®¼­¿¡¼­´Â ÇÁ·Î½ÃÀú¸¦ ÀÛ¼ºÇÏ°í µð¹ö±ëÇÏ´Â µ¥ »ç¿ëµÇ´Â µµ±¸ ¹× ¿©±â¼­ ¼³¸íÇÏ´Â ÇÁ·Î±×·¡¹Ö ¾ð¾î¿¡ Àͼ÷ÇÑ »ç¿ëÀÚ¸¦ ´ë»óÀ¸·Î ÇÕ´Ï´Ù. Microsoft ±â¼ú Áö¿ø ´ã´çÀڴ ƯÁ¤ ÀýÂ÷¿¡ ´ëÇÑ ±â´ÉÀ» ¼³¸íÇÒ ¼ö ÀÖÁö¸¸ Ãß°¡ ±â´ÉÀ» Á¦°øÇϰųª ƯÁ¤ ¿ä±¸ »çÇ׿¡ ¸Âµµ·Ï ÇÁ·Î½ÃÀú¸¦ ±¸¼ºÇÏÁö´Â ÀÌ ¿¹Á¦¸¦ ¼öÁ¤ÇÏÁö ¾Ê½À´Ï´Ù.
ÇÁ·Î±×·¡¹Ö °æÇèÀÌ Á¦ÇѵǾî ÀÖÀ¸¸é Microsoft ÀÎÁõ ÆÄÆ®³Ê ¹®ÀÇÇϰųª Microsoft ÀÚ¹® ¼­ºñ½º ÇÒ ¼ö ÀÖ½À´Ï´Ù. ÀÚ¼¼ÇÑ ³»¿ëÀº ´ÙÀ½ Microsoft À¥ »çÀÌÆ®¸¦ ¹æ¹®ÇϽʽÿÀ.

Microsoft ÆÄÆ®³Ê - https://partner.microsoft.com/global/30000104 ÀÎÁõ

Microsoft ±Ç°í ¼­ºñ½º - http://support.microsoft.com/gp/advisoryservice

»ç¿ëÇÒ ¼ö ÀÖ´Â Áö¿ø ¿É¼Ç ¹× Microsoft ¿¬¶ôÇÏ´Â ¹æ¹ý¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ ³»¿ëÀº ´ÙÀ½ Microsoft À¥ »çÀÌÆ®¸¦ ¹æ¹®ÇϽʽÿÀ: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

¸ñ·Ï »óÀÚ³ª ÄÞº¸ »óÀÚ¿¡ ¿öÅ©½ÃÆ®¿¡ ¹Ù¿îµå ¿©ºÎ Á¦¾î

¿öÅ©½ÃÆ®¿¡ ¹ÙÀεùµÈ ListBox ÄÁÆ®·ÑÀÌ Æ÷ÇÔµÈ »ç¿ëÀÚ Á¤ÀÇ Æû ¿¹Á¦ ºôµå ¹× ´ÙÀ½ ÄÁÆ®·Ñ¿¡¼­ Ç׸ñÀ» Á¦°ÅÇÏ·Á¸é ´ÙÀ½°ú °°ÀÌ ÇϽʽÿÀ.
  1. ´Ý±â ¹× ¿­·Á ÀÖ´Â ¸ðµç ÅëÇÕ ¹®¼­¸¦ ÀúÀåÇϰí ÅëÇÕ ¹®¼­¸¦ »õ·Î ¸¸µì´Ï´Ù.
  2. ´ÙÀ½ °ªÀ» Sheet1ÀÇ ÀÔ·ÂÇÕ´Ï´Ù:
           A1: Alpha
           A2: Bravo
           A3: Charlie
           A4: Delta
           A5: Echo
    					
  3. Alt + F11 ۸¦ ´­·¯ VBA ÆíÁý±â¸¦ ½ÃÀÛÇϽʽÿÀ.
  4. ¼Ó¼º âÀÌ º¸ÀÌÁö ¾ÊÀ¸¸é º¸±â ¸Þ´º¿¡¼­ ¼Ó¼º À» Ŭ¸¯ÇÕ´Ï´Ù (¶Ç´Â F4 ۸¦ ´©¸¨´Ï´Ù).
  5. ÇÁ·ÎÁ§Æ® Ž»ö±â âÀÌ Ç¥½ÃµÇÁö ¾ÊÀ¸¸é º¸±â ¸Þ´º¿¡¼­ ÇÁ·ÎÁ§Æ® Ž»ö±â ¸¦ Ŭ¸¯ÇϽʽÿÀ.
  6. »ðÀÔ ¸Þ´º¿¡¼­ »ç¿ëÀÚ Á¤ÀÇ Æû À» Ŭ¸¯ÇϽʽÿÀ.
  7. UserFormÀ» ListBox ÄÁÆ®·ÑÀ» ±×¸³´Ï´Ù.
  8. F4 ۸¦ ´­·¯ ¼Ó¼º âÀ¸·Î ÀüȯÇϽʽÿÀ.
  9. ListBox ÄÁÆ®·ÑÀÇ RowSource ¼Ó¼ºÀ» ´ÙÀ½ °ªÀ¸·Î º¯°æÇϽʽÿÀ.
    Sheet1! A1: A5
  10. UserFormÀ»¸í·É ´ÜÃß ÄÁÆ®·ÑÀ» ±×¸³´Ï´Ù.
  11. CommandButton¿¡ ´ëÇÑ ÄÚµå âÀ» ¿­·Á¸é ¸í·É ´ÜÃß µÎ ¹ø Ŭ¸¯ÇϽʽÿÀ.
  12. ¸ðµâ¿¡¼­ CommandButton Click À̺¥Æ®¿¡ ´ÙÀ½ Äڵ带 ÀÔ·ÂÇÕ´Ï´Ù:
    Private Sub CommandButton1_Click()
        ListBox1.RowSource = ""
    End Sub
    					
  13. »ç¿ëÀÚ Á¤ÀÇ Æû À» ½ÇÇàÇϽʽÿÀ.

    UserForm À» À§ÇØ Ãß°¡µÈ ¸ñ·Ï »óÀÚ´Â Sheet1¿¡¼­ ÀÔ·ÂÇÑ °ªÀ¸·Î ä¿öÁý´Ï´Ù.
  14. ¸í·É ´ÜÃß ¸¦ Ŭ¸¯ÇϽʽÿÀ.
¸ðµç Ç׸ñÀ» ListBox1¿¡¼­ Á¦°ÅµË´Ï´Ù.

¸ñ·Ï »óÀÚ³ª ¿öÅ©½ÃÆ®¿¡ ¹Ù¿îµå Is Not ÄÞº¸ »óÀÚ¿¡

UserForm À» ·ÎµåµÇ¸é °ªÀÇ ¹è¿­À» ä¿ï ListBox ÄÁÆ®·ÑÀÌ Æ÷ÇÔµÈ »ç¿ëÀÚ Á¤ÀÇ Æû ¿¹Á¦ ºôµå ¹× ÄÁÆ®·Ñ¿¡¼­ Ç׸ñÀ» Á¦°ÅÇÏ·Á¸é ´ÙÀ½ ÀÌ ´Ü°è¸¦ ¼öÇàÇϽʽÿÀ.
  1. ´Ý±â ¹× ¿­·Á ÀÖ´Â ¸ðµç ÅëÇÕ ¹®¼­¸¦ ÀúÀåÇϰí ÅëÇÕ ¹®¼­¸¦ »õ·Î ¸¸µì´Ï´Ù.
  2. Alt + F11 ۸¦ ´­·¯ VBA ÆíÁý±â¸¦ ½ÃÀÛÇϽʽÿÀ.
  3. ¼Ó¼º âÀÌ º¸ÀÌÁö ¾ÊÀ¸¸é º¸±â ¸Þ´º¿¡¼­ ¼Ó¼º À» Ŭ¸¯ÇÕ´Ï´Ù (¶Ç´Â F4 ۸¦ ´©¸¨´Ï´Ù).
  4. »ðÀÔ ¸Þ´º¿¡¼­ »ç¿ëÀÚ Á¤ÀÇ Æû À» Ŭ¸¯ÇϽʽÿÀ.
  5. »ç¿ëÀÚ Á¤ÀÇ Æû¿¡ ´ëÇÑ ÄÚµå âÀ» ¿­·Á¸é UserFormÀ» µÎ ¹ø Ŭ¸¯ÇϽʽÿÀ.
  6. ¸ðµâ¿¡¼­ UserForm À» Initialize À̺¥Æ®¿¡ ´ëÇÑ ´ÙÀ½ Äڵ带 ÀÔ·ÂÇÕ´Ï´Ù:
    Private Sub UserForm_Initialize()
        Dim MyArray As Variant
        Dim i As Integer
    
        'Initialize array with values to populate ListBox.
        MyArray = Array("Alpha", "Bravo", "Charlie", "Delta","Echo")
    
        For i = LBound(MyArray) To Ubound(MyArray)
    
            'Add a value from MyArray to ListBox1.
            UserForm1.ListBox1.AddItem MyArray(i)
    
        Next
    End Sub
    						
    »ç¿ëÀÚ Á¤ÀÇ Æû À» ·ÎµåÇÒ ¶§ ÀÌ ÀýÂ÷´Â ListBox1 ä¿ó´Ï´Ù.
  7. UserFormÀ» ListBox ÄÁÆ®·ÑÀ» ±×¸³´Ï´Ù.
  8. UserFormÀ»¸í·É ´ÜÃß ÄÁÆ®·ÑÀ» ±×¸³´Ï´Ù.
  9. CommandButton¿¡ ´ëÇÑ ÄÚµå âÀ» ¿­·Á¸é ¸í·É ´ÜÃß µÎ ¹ø Ŭ¸¯ÇϽʽÿÀ.
  10. ¸ðµâ¿¡¼­ ´ÙÀ½ Äڵ忡 ´ëÇÑ CommandButton ÀÔ·ÂÇÕ´Ï´Ù Click À̺¥Æ®:
    Private Sub CommandButton1_Click()
        Dim i As Integer
    
        For i = 1 To ListBox1.ListCount
    
            'Remove an item from the ListBox.
            ListBox1.RemoveItem 0
    
        Next i
    End Sub
    						
    ÀÌ Visual Basic ÇÁ·Î½ÃÀú¸¦ ListBox1 º¸³½ Ç׸ñÀ» ¸ðµÎ Á¦°ÅÇÕ´Ï´Ù.
  11. »ç¿ëÀÚ Á¤ÀÇ Æû À» ½ÇÇàÇϽʽÿÀ.
  12. ¸í·É ´ÜÃß ¸¦ Ŭ¸¯ÇϽʽÿÀ.
¸ðµç Ç׸ñÀ» ListBox1¿¡¼­ Á¦°ÅµË´Ï´Ù.

ÂüÁ¶

Visual Basic ÆíÁý±â¿¡¼­ ListBox ÄÁÆ®·ÑÀ» »ç¿ëÇÏ´Â ¹æ¹ý¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ ³»¿ëÀº µµ¿ò¸» ¸Þ´º¿¡¼­ Microsoft Visual Basic µµ¿ò¸» À», ListBox ÄÁÆ®·Ñ À» Office ±æÀâÀ̳ª µµ¿ò¸» ¸¶¹ý»ç¿¡¼­ ÀÔ·ÂÇÑ ´ÙÀ½ Ç׸ñÀ» º¸·Á¸é °Ë»ö À» ´©¸¨´Ï´Ù.

Visual Basic ÆíÁý±â¿¡¼­ RowSource ¼Ó¼ºÀ» »ç¿ëÇÏ´Â ¹æ¹ý¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ ³»¿ëÀº µµ¿ò¸» ¸Þ´º¿¡¼­ Microsoft Visual Basic µµ¿ò¸» À», Office ±æÀâÀ̳ª µµ¿ò¸» ¸¶¹ý»ç¿¡¼­ Rowsource ¼Ó¼º À» ÀÔ·ÂÇÑ ´ÙÀ½ Ç׸ñÀ» °Ë»ö À» Ŭ¸¯ÇϽʽÿÀ.

Visual Basic ÆíÁý±â¿¡¼­ RemoveItem ¸Þ¼­µå¸¦ »ç¿ëÇÏ´Â ¹æ¹ý¿¡ ´ëÇÑ ÀÚ¼¼ÇÑ ³»¿ëÀº µµ¿ò¸» ¸Þ´º¿¡¼­ Microsoft Visual Basic µµ¿ò¸» À», removeitem ¸Þ¼­µå ¸¦ Office ±æÀâÀ̳ª µµ¿ò¸» ¸¶¹ý»ç¿¡¼­ ÀÔ·ÂÇÑ ´ÙÀ½ Ç׸ñÀ» º¸·Á¸é °Ë»ö À» ´©¸¨´Ï´Ù.

¼Ó¼º

±â¼ú ÀÚ·á: 213721 - ¸¶Áö¸· °ËÅä: 2006³â 11¿ù 23ÀÏ ¸ñ¿äÀÏ - ¼öÁ¤: 3.5
º» ¹®¼­ÀÇ Á¤º¸´Â ´ÙÀ½ÀÇ Á¦Ç°¿¡ Àû¿ëµË´Ï´Ù.
  • Microsoft Excel 2000 Standard Edition
Ű¿öµå:?
kbmt kbhowto kbprogramming kbui KB213721 KbMtko
±â°è ¹ø¿ªµÈ ¹®¼­
Áß¿ä: º» ¹®¼­´Â Àü¹® ¹ø¿ª°¡°¡ ¹ø¿ªÇÑ °ÍÀÌ ¾Æ´Ï¶ó Microsoft ±â°è ¹ø¿ª ¼ÒÇÁÆ®¿þ¾î·Î ¹ø¿ªÇÑ °ÍÀÔ´Ï´Ù. Microsoft´Â ¹ø¿ª°¡°¡ ¹ø¿ªÇÑ ¹®¼­ ¹× ±â°è ¹ø¿ªµÈ ¹®¼­¸¦ ¸ðµÎ Á¦°øÇϹǷΠMicrosoft ±â¼ú ÀÚ·á¿¡ ÀÖ´Â ¸ðµç ¹®¼­¸¦ Çѱ۷ΠÁ¢ÇÒ ¼ö ÀÖ½À´Ï´Ù. ±×·¯³ª ±â°è ¹ø¿ª ¹®¼­°¡ Ç×»ó ¿Ïº®ÇÑ °ÍÀº ¾Æ´Õ´Ï´Ù. µû¶ó¼­ ±â°è ¹ø¿ª ¹®¼­¿¡´Â ¸¶Ä¡ ¿Ü±¹ÀÎÀÌ Çѱ¹¾î·Î ¸»ÇÒ ¶§ ½Ç¼ö¸¦ ÇÏ´Â °Íó·³ ¾îÈÖ, ±¸¹® ¶Ç´Â ¹®¹ý¿¡ ¿À·ù°¡ ÀÖÀ» ¼ö ÀÖ½À´Ï´Ù. Microsoft´Â ³»¿ë»óÀÇ ¿À¿ª ¶Ç´Â Microsoft °í°´ÀÌ ÀÌ·¯ÇÑ ¿À¿ªÀ» »ç¿ëÇÔÀ¸·Î½á ¹ß»ýÇÏ´Â ºÎ Á¤È®¼º, ¿À·ù ¶Ç´Â ¼ÕÇØ¿¡ ´ëÇØ Ã¥ÀÓÀ» ÁöÁö ¾Ê½À´Ï´Ù. Microsoft´Â ÀÌ·¯ÇÑ ¹®Á¦¸¦ ÇØ°áÇϱâ À§ÇØ ±â°è ¹ø¿ª ¼ÒÇÁÆ®¿þ¾î¸¦ ÀÚÁÖ ¾÷µ¥ÀÌÆ®Çϰí ÀÖ½À´Ï´Ù.

Çǵå¹é º¸³»±â