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

DDE°O¿ý¨C¤ÀÄÁ¸ê®Æ

DDE°O¿ý¨C¤ÀÄÁ¸ê®Æ

¦U¦ì¤j¤j¡A§Ú·Q­n°O¿ýdde¨C¤ÀÄÁÅܧ󪺸ê®Æ¡A»Ý­n³Â·Ð¦U¦ì¤j¤jªº«ü¾É¡A·P®¦·P®¦¡C

°ÝÃD.rar (11.92 KB)

¦^´_ 1# jimmy121212
  1. Option Explicit
  2. 'Àɮ׶}±Ò®É ¦Û°Ê°õ¦æªºµ{¦¡    '½Ð½Æ»s¨ìThisWorkbook ªº¼Ò²Õ
  3. Private Sub Workbook_Open()                  'ThisWorkbook ªº¹w³]¨Æ¥ó   
  4.     Dim E As Range
  5.     With Sheets("SHEET1").Range("C3:C303")   'With : ¨C¤ÀÄÁªº½d³ò [Àx¦s®æ]ª«¥ó¤¤
  6.         .Offset(, 1).Resize(, 3) = ""        '²M²z¥ý«e¸ê®Æ
  7.         For Each E In .Cells                 '¨C¤ÀÄÁªº½d³ò¤º³B²z®É¶¡
  8.             If E >= Time Then Application.OnTime E, "ThisWorkbook.EX"
  9.             '[Àx¦s®æ] ®É¶¡¤j©óµ¥©ó ²{¦b®É¶¡
  10.             'OnTime ¤èªk ¦w±Æ¤@­Óµ{§Ç¦b±N¨Óªº¯S©w®É¶¡°õ¦æ (¬J¥i¬°¬Y­Ó¤é´Áªº«ü©w®É¶¡¡A¤]¥i¬°«ü©wªº®É¶¡¤§«á)¡C
  11.         Next
  12.     End With
  13. End Sub
  14. Sub Ex()   '°O¿ýdde¨C¤ÀÄÁÅܧ󪺸ê®Æ  '½Ð½Æ»s¨ìThisWorkbook ªº¼Ò²Õ
  15.     Dim Rng As Range, F As Range
  16.     With Sheets("SHEET1")
  17.         Set Rng = .Range("D2:F2")                           '­n°O¿ýªº¸ê®Æ½d³ò
  18.         ' ¨C¤ÀÄÁªº½d³ò ¤¤ ´M§ä ²{¦bªº®É¶¡
  19.         Set F = .Range("C3:C303").Find(Format(Time, "hh:mm"), LookIn:=xlValues)
  20.         'Not F Is Nothing :§ä¨ì«á¦b ,[²{¦bªº®É¶¡],Offset(0, 1): ¥k²¾¤@Äæ  Resize(1, 3): ÂX¥R1¦C3Ä檺½d³ò = ­n°O¿ýªº¸ê®Æ
  21.         If Not F Is Nothing Then F.Offset(0, 1).Resize(1, 3) = Rng.Value        '
  22.     End With
  23. End Sub
½Æ»s¥N½X

TOP

¯u·Q¤U¸ü!!

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD