ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¤£¦n·N«ä,¨D±Ð©ó¦U¤è°ª¤â...

¤£¦n·N«ä,¨D±Ð©ó¦U¤è°ª¤â...

¦U¦ìª©¤Í¤j®a¦n:
    ¤p§Ì¦³¤@­Ó°ÝÃD·Q½Ð±Ð¤j®a,©³¤U¬O¤T¬q "VBA¤pµ{¦¡",°Ê§@¬O
    ²Ä¤@¬qµ{¦¡¨ú±o3­Ó°Ñ¼Æ,µM«á Call ²Ä¤G¬qµ{¦¡°õ¦æ¨Ã±N°Ñ¼Æ¶Çµ¹²Ä¤T¬qµ{¦¡,
    °ÝÃD¥X¦b²Ä¤T¬qµ{¦¡ªº°Ñ¼Æ¨S¦³¶Ç¹F¨ì,ÁöµM²Ä¤T¬qµ{¦¡½T¹ê¦³°õ¦æ.
    ½Ð°Ý¦³°ª¤â¥i¥H¸Ñµª¶Ü??
   
    ÁÂÁ±z!!
   
   

Private Sub CommandButton1_Click()

¤½¥q¥N¸¹ = Cells(4, 2).Value
¦~«×¥N¸¹ = Cells(4, 8).Value
¤ë¥÷¥N¸¹ = Cells(5, 8).Value

Call Download2(¤½¥q¥N¸¹, ¦~«×¥N¸¹, ¤ë¥÷¥N¸¹)

End Sub


Sub Download2(¤½¥q¥N¸¹, ¦~«×¥N¸¹, ¤ë¥÷¥N¸¹)

    Sheets("EPSªí®æ").Select
    Range("Z1:BI2000").Select
    Selection.ClearContents                      '²MªÅ ¨¾¿mªí®æ¤¤ªº ªº°]³ø¸ê®Æ
    Sheets("¨¾¿mªí®æ").Select
    Range("Z1:BI2000").Select
    Selection.ClearContents                      '²MªÅ ¨¾¿mªí®æ¤¤ªº ªº°]³ø¸ê®Æ,
                                                 'µM«á,±q ¨¾¿mªí®æ¶}©l¤U¸ü·sªº°]³ø¸ê®Æ
                                                
    MsgBox (¦~«×¥N¸¹)
    MsgBox (¤ë¥÷¥N¸¹)
   
    Call Month(¦~«×¥N¸¹, ¤ë¥÷¥N¸¹)
End Sub
   

Sub Month(¦~«×¥N¸¹, ¤ë¥÷¥N¸¹)

   Sheets("EPSªí®æ").Select                                '¤Á´«¨ì EPSªí®æ
   'Download ªº²Ä¤@¤ë¥÷¦b AE1536 ¦æ,¬O 2019/10/1
   ' °ò·Ç¤ë¥÷ = Month(Range("A4"))                         '¨Ï¥Î©ó§PÂ_¤ë¤À¬O§_¬°1¤ë
   °ò·Ç¤ë¥÷ = Format("2030 / 1 / 1", "m")                  '¨Ï¥Î©ó§PÂ_¤ë¤À¬O§_¬°1¤ë

   ³Ì·s¤ë¥÷BZ2113 = Format(Range("BZ2113"), "m")           '°Ñ¼ÆEPSªí®æBZ2113  ¥N¤J "³Ì·s¤ë¥÷"
   
    MsgBox (¦~«×¥N¸¹)
    MsgBox (¤ë¥÷¥N¸¹)
End Sub    :)

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD