- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-4-21 10:03 ½s¿è
¦U¦ì¤j¤j¡A·í¶}½L«á¡Aexcel¨S¦³¥ô¦ó°Ê§@¡A¶i¤J¥¨¶°¤º«ö°õ¦æ¡A¸õ¥X"¦¹±M®×ªº¥¨¶°¤w³Q¼È¤î"ªº®Ø®Ø¡A³o¬O¥X²{¤F ...
n8975067 µoªí©ó 2013-4-19 12:27 - Sub updateFollow()
- Dim Rng As Range
-
- With Sheet2
- Set Rng = .Range("A" & .Range("A" & .Rows.Count).End(xlUp).Row + 1)
- Rng = Sheet1.[c2]
- Rng.Offset(, 1) = Sheet1.[d2]
- Rng.Offset(, 2) = Sheet1.[e2]
- Rng.Offset(, 3) = Sheet1.[f2]
- Rng.Offset(, 4) = Sheet1.[g2]
- Rng.Offset(, 5) = Sheet1.[h2]
- Rng.Offset(, 6) = Sheet1.[i2]
- Rng.Offset(, 7) = Sheet1.[j2]
- Rng.Offset(, 8) = Sheet1.[k2]
- Rng.Offset(, 9) = Sheet1.[l2]
- End With
-
- Application.OnTime Now + 300 / 86400#, "[color=Red]ThisWorkbook.[/color]updateFollow" ' ¨C¤¤ÀÄÁ©I¥s ¤@¦¸
- ' Application.OnTime Now + 60 / 86400#, "[color=Red]ThisWorkbook.[/color]updateFollow" ' ¨C¤@¤ÀÄÁ©I¥s ¤@¦¸
- End Sub
½Æ»s¥N½X Application.OnTime Now + 300 / 86400#, "UpdateFollow" µ{¦¡½X¦b°õ¦æ®É¡AµLªk¦Û°Ê§ä¨ì updateFollow¡A
©Ò¥H½Ð¦b¥¦ªº«e±©ú½T«ü©w¦¹²[¦¡¼Ò²Õ¬O©ñ¸m¦b¦ó¤è¡H
Ä´¦p¡G Application.OnTime Now + 300 / 86400#, "ThisWorkbook.updateFollow" ¡A§í©Î¬O
Application.OnTime Now + 300 / 86400#, "Module1.updateFollow" |
|