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

   Á¶È¸ 7759   Ãßõ 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 4025/5682
2014-05   4953475   Á¤ÀºÁØ1
2015-12   1489957   ¹é¸Þ°¡
2018-03   6519   rÀ̽¿ør
2011-09   6519   ¹æoÈ¿o¹®
2015-03   6519   °ø°£»ç¶û
2016-10   6519   Àü¼³¼ÓÀǹ̡¦
2005-05   6519   ÀÌÁØÈ£
2011-04   6519   ¿¹°ü½Å±Ô½Ä
2016-04   6520   Lucyed
2013-09   6520   ÀÌ¿µ±Ô
2011-08   6520   homoludens
2005-09   6520   Á¤¼ø±Ý
2011-06   6520   NiteFlite9
2011-10   6520   ¿©ÁÖÀÌ»óµ·
2017-04   6520   ½Å¿ì¼·
2013-09   6520   victor
2005-01   6521   ½Å¹Îö
2020-08   6521   ÀÌÁöÆ÷Åä
2008-08   6521   ÃÖ¿ìâ
2005-03   6521   ±è¼®¼ø
2020-01   6521   ¸®Ä«¶ó¹Ù
2006-04   6521   ±è°Ç¿ì