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

EXCEL§ì¨ú¸ê®Æ°ÝÃD

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

TOP

¦^´_ 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ªºÀ°¦£
ÁÂÁÂ

DDE...¤â°Êcopy.rar (66.95 KB)

slip

TOP

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

TOP

¦^´_ 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«ü¾É
ÁÂÁÂ

´Á.rar (20.89 KB)

slip

TOP

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

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

TOP

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

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

TOP

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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD