ºñÁê¾óº£ÀÌÁ÷ ÀÍÈ÷°í ½Í½À´Ï´Ù.

   Á¶È¸ 7751   Ãßõ 0    

¿¢¼¿ÀÇ ¸ÅÅ©·Î¸¦ ÆíÁýÇÒ·Á°í Çϸé Microsoft Visual Basic âÀÌ ¿­¸®¸é¼­
¾Ë¾Æ¸Ô±â Èûµç ¾ð¾îµéÀÌ ³ª¿É´Ï´Ù.
ÀÌ·± ¾ð¾îµéÀ» ½±°Ô ¼³¸íÇØ Áִ åÀ» Ãßõ¹Þ°í ½Í½À´Ï´Ù.

Sub ¼º¸íÈ®ÀÎ()
   
    Dim dt As String
    Dim repeat As Integer
   
    With ActiveSheet.DropDowns(1)
        dt = .List(.ListIndex)
        .ListIndex = 0
    End With
   
    Set fnd = Range("¼º¸í").Find(dt, lookat:=xlWhole)
   
    Application.Calculation = xlManual
    For repeat = 0 To 84
        Range("Çʵå" & Format(1 + repeat)) = fnd.Offset(0, 0 + repeat)
    Next
    Application.Calculation = xlAutomatic
   
End Sub

¾Ï°Íµµ ¾Æ´Ñ °Í °°Àºµ¥ ´çÃé ¾Ë¾Æ¸ÔÀ» ¼ö°¡ ¾ø½À´Ï´Ù.
ÀÌ·± °ÍµéÀ» Â÷±ÙÂ÷±Ù µ¶ÇÐÇÒ ¼ö ÀÖ´Â ÁÁÀº Áöħ¼­ Çϳª ÃßõÇØÁֽñ⠹ٶø´Ï´Ù.
ªÀº±Û Àϼö·Ï ½ÅÁßÇÏ°Ô.
·¹¿À³× 2010-02
¿¢¼¿¿¡¼­ ÀÍÈ÷´Â ¸ÞÅ©·Î ÆíÁý¿ë ºñÁÖ¾ó º£ÀÌÁ÷Àº VBA¶ó°í Çؼ­ ºñÁÖ¾ó º£ÀÌÁ÷°ú´Â Á» ´Ù¸£°Ô ¹è¿ì¼Å¾ß ÇÕ´Ï´Ù.

ºñÁÖ¾ó º£ÀÌÁ÷°ú ºñ½ÁÇÏÁö¸¸ ½ÇÁ¦·Î ½á¸Ô´Â ºÎºÐÀÌ ´Ù¸£¹Ç·Î VBA¸¦ ¹è¿ì·Á°í VB¸¦ ¹è¿ì´Â °Ç Á» ±×·¸±º¿ä..

½ÃÁß¿¡ ¿ÀÇǽº ÇÁ·Î±×·¥(¿¢¼¿, ÆÄ¿öÆ÷ÀÎÆ® µî) ¼­Àû ÀÖ´Â °÷¿¡ °¡ º¸½Ã¸é VBA Ã¥ ÀÖÀ¸´Ï ±×°É·Î °øºÎÇÏ½Ã¸é µÉ °Ì´Ï´Ù.

Àü [¿¢¼¿ Á» ÇÏ´Â ¿¢¼¿ ¸ÅÅ©·Î & VBA ÀÚµ¿È­ ÇÁ·Î±×·¡¹Ö]À̶õ Ã¥À¸·Î ÀÍÇû½À´Ï´Ù.
À̱Ôâ 2010-02
°­ÃßÇÕ´Ï´Ù..

[¿¢¼¿ Á» ÇÏ´Â ¿¢¼¿ ¸ÅÅ©·Î & VBA ÀÚµ¿È­ ÇÁ·Î±×·¡¹Ö]À̶õ Ã¥...


QnA
Á¦¸ñPage 4022/5680
2015-12   1481701   ¹é¸Þ°¡
2014-05   4945005   Á¤ÀºÁØ1
2010-02   7073   ÇãÁøÇüALpha
2010-02   7080   À嵿ÈÆ
2010-02   8085   ZEBE
2010-02   7207   ÀϹÝÀ¯Àú
2010-02   10769   ¶°µ¹ÀÌ´Á´ë
2010-02   9384   ºí·ç¿µ»ó
2010-02   6632   µÎÆ÷¸®
2010-02   7261   ±è°Ç¿ì
2010-02   6513   ¹æoÈ¿o¹®
2010-02   9661   ȸ·ÎÀïÀÌ
2010-02   7752   Â÷Æò¼®
2010-02   10803   ÃÖ¸¶·ç
2010-02   6580   ¾Æ½Â¹«Àû
2010-02   9711   ¹Î»çÀå
2010-02   14113   FreeBSD
2010-02   7995   ¹Î»çÀå
2010-02   6625   ³ë¼ºÈ£
2010-02   7953   ¸í¼ºÈ£
2010-02   6194   ¸í¼ºÈ£
2010-02   7167   ¼Õ»ó¿í