- ©«¤l
- 81
- ¥DÃD
- 31
- ºëµØ
- 0
- ¿n¤À
- 117
- ÂI¦W
- 0
- §@·~¨t²Î
- windows7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2013-8-3
- ³Ì«áµn¿ý
- 2024-4-30
|
½Ð±Ð¨C¤ÀÄÁ¸ê®Æ¤U¸üªº°ÝÃD
§Ú¼g¤F¤@¬qµ{¦¡~~¯à¨C¤ÀÄÁ¤U¸ü¸ê®Æ¨ì©T©wªº¦ì¸m
¦ý¤£¾å±o¬°¤°»ò~~½Æ»s¹L¥hªº¸ê®Æ³£·|«½Æ
¨Ò¦p»¡09:01~~«þ¨©¸ê®Æ¨ì²Ä¤@¦æ
¥L·|¤@¦¸«þ¨©2-3¦æ¸ê®Æ¨ì§Ú¦w±Æ¦nªº¦ì¸m~~®É¶¡Åã¥Ü³£¬O09:01~~¦pªþ¹Ï
¥H¤U¬O§Úªºµ{¦¡½X~~ÁٽЦU¦ì¨ó§U~~·PÁÂ
Sub p¿ý2()
Range("h1").Value = 0
Set X = ThisWorkbook.Sheets("DDE")
StartT = "08:44:50"
endt = "13:45:10"
Range("j1").Value = Time
If X.Range("h1") = 1 Then Exit Sub
Range("j1").Value = Time
If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then
Range("A8").End(xlDown).Offset(1, 0).Value = Range("A1")
Range("B8").End(xlDown).Offset(1, 0).Value = Range("B1")
Range("C8").End(xlDown).Offset(1, 0).Value = Range("C1")
End If
Application.OnTime Now + TimeValue("00:00:01"), "p¿ý2"
End Sub |
|