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

   Á¶È¸ 7682   Ãßõ 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 3058/5653
2015-12   1381615   ¹é¸Þ°¡
2014-05   4837491   Á¤ÀºÁØ1
04-11   890   ȸ¿ø
2015-04   3608   ¼Õ°æÈ­
2018-09   4623   LSSAH
2021-02   3225   yollman
2018-09   6807   ±èÈ¿¼ö
2018-09   2618   Smile
2011-08   5957   ¹æoÈ¿o¹®
2018-09   3525   s±èÁ¾È­z
2022-09   1616   ±èÁ¦¿¬
2019-11   2241   ÇÁ·Î½Ã¾Æ
2014-01   5142   ¹«¾Æ
2021-02   2182   ÀÌÀ±ÁÖ
2021-03   3498   ³Ä¿ËÀÌ
2019-12   3041   ¼ÒÀ½°øÀå
2019-12   3138   witniss
2011-11   5356   ¼­¹ö°øºÎ
2019-12   3264   ¹öÆÈ·ÎÀ®
2016-07   4846   °øµ¹ÀÌ¿¡¿ä
06-12   1076   dateno1
2014-02   6235   ³ªÆÄÀÌ°­½ÂÈÆ