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

   Á¶È¸ 7881   Ãßõ 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 4537/5707
2015-12   1669624   ¹é¸Þ°¡
2014-05   5134671   Á¤ÀºÁØ1
2016-05   7872   song05
2004-09   7873   ½ÅÀǽÄ
2010-01   7873   Hilm
2013-04   7873   ¹Ì¼ö¸Ç
2013-07   7873   ÀÌÄ¡·Î¿î
2005-05   7874   ±èºÎ°â
2010-01   7874   ¹æoÈ¿o¹®
2006-04   7874   ±èÈñÁø
2013-08   7874   ±èÀ翵9
2004-02   7874   ÀÌÁ¾¹Î
2010-10   7874   ¹æoÈ¿o¹®
2014-08   7874   ¾Æ¸§´Ù¿î³ëÀ»
2010-05   7874   Sico
2013-07   7874   Å©¸®¹Ì
2008-11   7875   ¹Úµ¿¼±
2016-04   7875   petabyte
2004-05   7875   ±è±â¹ü
2011-04   7875   °¡ºü·Î±¸³ª
2014-01   7875   ±èÈ¿¼ö
2015-09   7875   AplPEC