c_c_lai

¦^´_ 20# slip
¸Õ¸Õ¬Ý³o¬O¤£¬O§Aªº·N«ä¡G

1. Sub Test1()
   
2.   '  °²³]§A­n½Æ»s A2:E2 ªº§Y®É¸ê°T¨ìM14:Q14 (µ¥5­ÓÄæ¦ì) ªº¦ì¸m¤W
   
3.    Sheets("Sheet1").[M14].Resize(, 5) = Sheets("Sheet1").[A2:E2].Value
   
4. End Sub

½Æ»s¥N½X

¦pªG³o¬O§A­nªº¡A§A´N¥i¥H¼W¥[¤@«ö¶s¡A±N¨ä«ü©w¥¨¶°«ü¦V Test1¡C

slip

¦^´_ 21# c_c_lai

c_c_lai ¤j¤j ±z¦n,

¤§«e§Úªí¹F,»y·N¤£°÷©ú½T,§ï¶i³¯­z¦p¤U

A2 ~ D2¬°DDE¨ç¼Æ  E2¬°B2-A2ªº­È

±q²Ä3¦C¶}©l,A3,B3,C3,D3¬O¦³»Ý­n®É, §Y®É¥Î¤â°Ê¤è¦¡copy A2,B2,C2,D2ªºDDE­È(¶Ècopy­È,DDE¨ç¼Æ¤£»Ý­n)
¨Ã¦P®É,F3,G3³]©wªº¬Û´î¹Bºâ¤]¦P®É­pºâ¥X¨Ó

¨Ì¦¹Ãþ±À
²Ä4¦C,²Ä5¦C,²Ä6¦C.......³£¬O¦³»Ý­n®É¥Î¤â°Ê¤è¦¡copy A2,B2,C2,D2ªºDDE­È,¦P®É¬Û´î¹Bºâªº¼Æ­È¤]­pºâ¥X¨Ó

¦A½ÐÀ°¦£¥[¤J³]©w,EÄæ,FÄæ,GÄ椤,¼Æ¦r¬°­t¼Æ®É§e²{¬õ¦â¦rÅé

¦A¦¸·PÁ c_c_lai ¤j¤jªºÀ°¦£
ÁÂÁÂ

c_c_lai

¦^´_ 22# slip
¸Õ¸Õ¬Ý¡I

1. Sub duplicate_Click()
   
2.     Dim nextRows As Single
   
3.    
   
4.     With Sheets("Sheet1")
   
5.         nextRows = .Range("A" & Rows.Count).End(xlUp).Row + 1
   
6.         .Range("A" & nextRows & ":AH" & .UsedRange.Rows.Count).ClearContents
   
7.    
   
8.         .Range("A" & nextRows & ":E" & nextRows).Value = Sheets("Sheet1").[A2:E2].Value                ' A-E
   
9.         .Range("I" & nextRows & ":AH" & nextRows).Value = Sheets("Sheet1").[I2:AH2].Value              ' I-AH
   
10.         .Cells(nextRows, 6).Formula = "=C" & nextRows & "-P" & nextRows                                ' F
    
11.         If .Cells(nextRows, 6).Value < 0 Then .Cells(nextRows, 6).Font.Color = 1
    
12.         .Cells(nextRows, 7).Formula = "=D" & nextRows & IIf(nextRows = 3, "", "-D" & nextRows - 1)     ' G
    
13.         If .Cells(nextRows, 7).Value < 0 Then .Cells(nextRows, 7).Font.Color = 1
    
14.         .Cells(nextRows, 8).Formula = "=E" & nextRows & IIf(nextRows = 3, "", "-E" & nextRows - 1)     ' H
    
15.         If .Cells(nextRows, 8).Value < 0 Then .Cells(nextRows, 8).Font.Color = 1
    
16.     End With
    
17. End Sub

½Æ»s¥N½X

¤U¸ü (25.15 KB)

2012-5-18 20:44

slip

¦^´_ 23# c_c_lai
c_c_lai ¤j¤j ±z¦n;

¤µ¤Ñ¶}½L«á,¥Î±zµ¹§Úªºµ{¦¡(¦pªþ¥óÀÉ)

¥u¯à°õ¦æ¤@¦¸
§Ú¦b¤£©T©wªº®É¶¡,
·í»Ý­n®É,§Ú´N¤â°ÊÂI¿ï"¤u¨ã--¥¨¶°--¥¨¶°--°õ¦æ"
³o¼Ë´N·|copy¥X²{·sªº¤@¦C...§Ú­nªº¸ê®Æ

¬O³o¼Ëªº¨Ï¥Î¶Ü??§Ú²qÀ³¸Ó¤£¬O...<__>
½Ð¤j¤j«ü¾É
ÁÂÁÂ

c_c_lai

¦^´_ 24# slip
¦]¬°§AµLªk¤U¸ü#23ªºªþ¥ó¡A©Ò¥HµLªk±oª¾Excel¤Wªº¼W«Ø«ö¶sªº§@¥Î¡A§A¥i¥H«ö·Ó¥H¤U¹Ï¥Ü¾Þ§@¡G

¤U¸ü (105.88 KB)

2012-5-21 15:00

·í§A­nÂ^¨ú¸ê®Æ®É¥u­n«ö¨º«ö¶s¤£¬O«Ü¬Ù¨Æ¶Ü¡H

slip

¦^´_ 25# c_c_lai
c_c_lai  ¦Ñ®v:

¤w­×§ï¦¨¥\
·P®¦+ÁÂÁÂ

patrick

«ö¨ì  ¦Ê¤À¤ñ §a
¨ú®ø ¦Ê¤À¤ñ¤è¦¡Åã¥Ü¡A´N¤£·|Åܦ¨100­¿¤F¡C

pigchen

·PÁª©¥DµL¨p´£¨Ñ