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

½Ð±Ð¨C¤ÀÄÁ¸ê®Æ¤U¸üªº°ÝÃD

½Ð±Ð¨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

¦pªþ¥ó~~¦³³Òª©¥D

°O¿ý2.rar (21.95 KB)

TOP

¦^´_ 2# laieven
´ú¸Õ Sub ­p¿ý2() ,¨S¦³§A»¡ªº¸ê®Æ­«½Æ°ÝÃD,§A¬O§_ÁÙ¦³¨ä¥Lµ{¦¡¦³¨Ï¥Î¨ì Sub ­p¿ý2().
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ laieven ©ó 2015-6-19 18:37 ½s¿è

¦^´_ 3# GBKEE


1.¦P®É¶¡§Ú¦³¥t¤@­Ó¨C1¬í»¼¦^¤@¦¸~~¥b¤p®ÉIJµo¤@¦¸ªºvba¦brun
³o·|¦³¼vÅT¶Ü?

2.¥t¥~§Ú¦³Æ[¹î¨ì¤@­Ó©Ç©Çªº²{¹³~~´N¬Oa1Àx¦s®æ§Ú³]©w¬°time~~¥L¦b¸õ°Êªº®É­Ô´N¬O¦³ÂI¶w¶wªº!!¸õ°Ê¤@¬íªº³t«×¤£¤j¤@¼Ë!!§Ú·Q³o¤j·§¬O¾É­P¥L°O¿ý·|­«½Æªº­ì¦]¤§¤@§a!


·PÁª©¥Dªº¨ó§U~~¤U§«ô¤@¶}½L~~§Ú·|´ú¸Õ¤@¤U¥u¶}°O¿ý2()¨Ó¶]¬Ý¬Ý¦³¨S¦³°ÝÃD!!
·P®¦!!

TOP

¦^´_ 4# laieven
¤§«e§Ú¦b¹ê°ÈÆN¥Î´ú¸Õªº®É­Ô¡A¦pªG¤@¥x¹q¸£¦P®É°õ¦æ
¬ÛÃþ¦ü³nÅ骺¹B§@¡C½T¹ê·|µo¥Í°¸Â_©Êªº©µ¿ð©ÎªÌ¬O²×¤îµ{¦¡¡C
«Øij§A¦b°õ¦æ®É¶È¶È³æ¤@¹B§@¸Õ¸Õ¬Ý¡C

TOP

¦^´_ 5# c_c_lai


    ·PÁ¼ö¤ß¦^´_
¦P®É°õ¦æ2­Ó³oÃþªºVBAªº«o·|¦³¤¬¬Û¤zÂZªº°ÝÃD
¥i¯à¬O§Ú¼g±o¤£¦n§a!

·|¦A¤ÏÂЦh°µ´ú¸Õ!

TOP

        ÀR«ä¦Û¦b : ¤f»¡¦n¸Ü¡B¤ß·Q¦n·N¡B¨­¦æ¦n¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD