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

[µo°Ý] Äæ¦ì¶K¤W°ÝÃD

¦^´_ 9# bridetobe
  1. Private Sub CommandButton2_Click()
  2. Rng = Range([A3:G3], [A3:G3].End(xlDown)).Value  '¸ê®ÆŪ¤J°}¦C
  3. With Sheets("¦s³f¸ê®Æ")
  4. d = InputBox("¿é¤J¤é´Á(¨Ò2014/7/1):", , Format(Application.Max(.[A:A]) + 1, "yyyy/m/d"))  '¹w³]¬°³Ì¤j¤é´Á¥[1
  5. If d = "" Then Exit Sub  '¨ú®ø¿é¤J
  6. Set A = .Cells(.Rows.Count, 1).End(xlUp).Offset(1)  '§ä¨ì¸ê®Æ§Àªº¤U¤@¦CAÄæ¦ì¸m
  7. A.Offset(, 1).Resize(UBound(Rng), 7) = Rng  '±N¸ê®Æ¼g¤J¤u§@ªí
  8. A.Resize(UBound(Rng), 1) = d   'AÄæ¼g¤J¤é´Á
  9. End With
  10. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD