Hsieh

¦^´_ 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

bridetobe

¦^´_ 10# GBKEE

¯uªº«D±`ÁÂÁÂ!
¼g¤JÄæ¦ì¥i¥H¨Ï¥Î¤F
µ²ªGŪ¥XÅܦ¨µLªk¨Ï¥Î??

bridetobe

¦^´_ 11# Hsieh


¤]ÁÂÁª©¤j~~

§A­Ì¨â­Óªº¤èªk³£¥i¥H

§Ú¤@ª½¿°¦b³Ì°ò¦ªº¼gªk
¤@ª½·Q¤£¨ì¸Ó«ç»ò¥Î

¯uªº«D±`ÁÂÁ¨â¦ì

GBKEE

µ²ªGŪ¥XÅܦ¨µLªk¨Ï¥Î??
bridetobe µoªí©ó 2014/8/7 11:28

1. Private Sub CommandButton2_Click()
   
2.    Range("A59").Select
   
3.     Selection.CurrentRegion.Select
   
4.     Selection.Copy
   
5.     Sheets("Sheet4").Select
   
6.     With Sheet4
   
7.         ActiveSheet.Paste
   
8.         'Range("A1:G2").Select   '³o¸Ì¥X¿ù
   
9.         '³oCommandButton2¬O"¾Þ§@"¤u§@ªí[ª«¥ó¼Ò²Õ]ªºµ{§Ç
   
10.         'Range("A1:G2").Select¬O"¾Þ§@"¤u§@ªíªºRange.Select,¤£¬OActiveSheetªºRange.Select
    
11.         
    
12.         '¦pCommandButton2_Click()µ{¦¡½X½Æ»s¦b¤@¯ë¼Ò²Õ
    
13.         '³oRange¬OActiveSheetªºRange
    
14.     .Range("A1:G2").Select  '«e­±ªº. ªí¬°With Sheet4ªºª«¥ó,ÄÝ©Ê..
    
15.     Application.CutCopyMode = False
    
16.     Selection.ClearContents
    
17.     Range("A4").Select
    
18.     Selection.CurrentRegion.Select
    
19.     Selection.Copy        
    
20. End With
    
21. End Sub

½Æ»s¥N½X