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

Ãö©ó©T©w®É¶¡¬ö¿ýªº­×§ï

Ãö©ó©T©w®É¶¡¬ö¿ýªº­×§ï

©T©w®É¶¡.rar (168.33 KB)

½Ð±Ðª©¤W¤j¤j¡Aªþ¥ó¬O¤p§Ì­×§ïªº¤@­ÓVBA¡A¥D­n¥\¯à¬°°O¿ý»ù®æ¡A¸Ì­±¥i¥H³]©w´XÂI¶}©l©Mµ²§ô¡A¤]¥i³]©w¶¡¹j´X¬í¬ö¿ý»ù®æ¡A¦ý®É¶¡·|¶]±¼

¦pªþ¥ó©Ò¥Ü¡A¤p§Ì³]©w9:01¤À¶}©l¡A¤§«á¨C5¬í¬ö¿ý¤@¦¸»ù®æ¡A©Ò¥H¦b06¡B11¡B16¡B21¡B26¡B31¡B36¡B41¡B46¡B51¡B56¡B01...¥H¦¹Ãþ±Àªº®É¶¡·|°O¿ý»ù®æ¡A¦ý¦¹µ{¦¡ªº®É¶¡¨ì«á­±«o·|¶]±¼¡A©óªþ¥óA53ªº¦a¤è®É¶¡¶}©l¶]±¼¤F

½Ð±Ðª©¤W¤j¤j­n¦p¦ó±Nµ{¦¡­×§ï¦¨©T©w¦b06¡B11¡B16¡B21¡B26¡B31¡B36¡B41¡B46¡B51¡B56¡B01...¥H¦¹Ãþ±Àªº®É¶¡¬ö¿ý¡A¦Ó¤£­n¶]±¼©O??

¦^´_ 1# ÂŤÑÄR¦À
ªþ¤W¤@­Ó¤§«eÀ³¥Îªºµ{¦¡¡A§A¥J²Ó¬Ý¤@¤U¤º¤¤ªº³B²z
§Ú·Q¹ï§A·|¦³À°§Uªº¡C¦]¬°¨C­Ó¤H¹ï®É¶¡ªº³B²z§¡¦³¨ä­Ó¤H¤§³ß¦n¡A
©Ò¥H¦Û¦æ°Ñ¾\¥²¦³©ÒÀò¡C(¥Ø«e²´·ú­è¤â³N§¹¡A©y¦h½Õ¾i)
¤Î®É¬Ý½L¡BªÑ²¼¹Ïªí»P©ÔÅQ A.rar (41.12 KB)

TOP

¦^´_ 2# c_c_lai

C¤j­n¦h¦h¥ð®§¡A§Ú¥ý¦Û¤v¬ã¨s¬Ý¬Ý¦n¤F¡A·PÁÂC¤j

TOP

¦^´_ 2# c_c_lai


    C¤j§Ú­è­è¬Ý¤F½d¨Ò¡A¦n¹³¤]¬O¥Î¶¡¹j®É¶¡¤U¥h¼gªº¡A¦Ó¤£¬O¥Î©T©w®É¶¡¡A§Ú¦b¦Û¤v«ä¦Ò¬Ý¬Ý¦n¤F¡A¦h¦h¥ð®§

TOP

¦^´_ 2# c_c_lai


    «¢«¢¡AªGµM¾a§Ú¦Û¤vÁÙ¬O¤£¤Ó¦æ¡Aµ¥C¤j¦nÂI¦b¸ò§A½Ð±Ð

TOP

TM = Now
SND = 5 - (TM - 1) Mod 5
Application.OnTime TM + SND, "µ{¦¡"

TOP

¦^´_ 6# ­ã´£³¡ªL
·Ç¤j½Ð±Ð¤@¤U¡A¦¹µ{¦¡½X­n¥[¦b­þÃä©O??

TOP

Application.OnTime À³¸Ó¥u¦³¤@­Ó¤èªk¥i¥H·Ç

TOP

¦^´_ 8# jackyq

¥i¥H½ÐJ¤j©ú¥Ü¶Ü??

TOP

¦^´_ 5# ÂŤÑÄR¦À
  1. Sub mySchedule()
  2.     If TimeValue(Now) <= TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:30:00") Then Exit Sub

  3.     Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.RecordPrice"
  4. End Sub

  5. Sub RecordPrice()
  6.     Dim TimeRange As Variant

  7.     With Sheets("DDE")
  8.         Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), Second(Time)))    '  Àˬd "A" Äæ¦ì¹ïÀ³¤§®É¬q
  9.         
  10.         If Not TimeRange Is Nothing Then
  11.             TimeRange.Offset(, 1) = Time
  12.         End If
  13.     End With
  14.    
  15.     mySchedule
  16. End Sub
½Æ»s¥N½X
¥¼©R¦W.png
2016-9-14 16:35

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD