- ©«¤l
- 4
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 6
- ÂI¦W
- 0
- §@·~¨t²Î
- windows
- ³nÅ骩¥»
- 7
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-2-27
- ³Ì«áµn¿ý
- 2014-8-31
|
¥»©«³Ì«á¥Ñ peellau ©ó 2014-3-4 16:39 ½s¿è
¦^´_ 3# owen06
owen06 ±z¦n §Ú¦³¹Á¸Õ§â±zªºµ{¦¡½X¶K¤W¥h
THISWORKBOOK:
Private Sub Workbook_Open()
Call "§ó·s"
End Sub
MODULE1:
Sub §ó·s()
T1 = Now + TimeSerial(0, 0, 1)
Range("l2:l20000").QueryTable.Refresh BackgroundQuery:=False
Application.OnTime T1, "§ó·s"
End Sub
¦ý·|¥X²{À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~@@ ¤£ª¾¹D³o¬O¤°»ò°ÝÃD ¹Á¸Õ¥Î©_¥L¤èªk¤]·|³o¼Ë
°»¿ù¬O«ü¦V³o¦æ Range("l2:l20000").QueryTable.Refresh BackgroundQuery:=False |
|