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

   Á¶È¸ 8024   Ãßõ 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 4567/5745
2014-05   5331752   Á¤ÀºÁØ1
2015-12   1847283   ¹é¸Þ°¡
2014-01   8020   ±èÈ¿¼ö
2010-05   8020   Sico
2018-04   8020   Dedge
2004-07   8020   ±èöȯ
2011-02   8020   ±èżº
2004-01   8020   ±è¹®±â
2014-04   8020   Á¶¸í¼ö
2004-07   8021   ÀåÁø¿ì
2004-05   8021   ±è¹Îö
2012-05   8021   ¹æoÈ¿o¹®
2009-11   8021   ¹æoÈ¿o¹®
2006-04   8021   ȲÇýÁø
2010-01   8021   sjydevil
2010-03   8021   ÀÌÄ¡·Î¿î
2004-01   8021   ÀÌÀÏ¿µ
2010-01   8021   ±¼´Ù¸®±³
2011-05   8022   ±è°Ç¿ì
2004-04   8022   ½ÅÀ¯È£
2010-05   8022   ¹Ì³à¿ÍÈ®°í¡¦
2004-04   8022   ¹ÚÂùÀÏ