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

[µo°Ý] ¦p¦ó³]Stop«ü¥O

[µo°Ý] ¦p¦ó³]Stop«ü¥O

¤j®a¦n!
¥H¤U¥¨¶°¦p¦ó¼W³]Stop«ü¥O¡A·P®¦!
Option Explicit
Sub Ex()
    Dim Rng As Range, Rng1 As Range, i%
    If Time < TimeValue("09:00:00") Then
        Application.OnTime TimeValue("09:01:13"), "SHEET2.EX"
        Exit Sub
    ElseIf Time >= TimeValue("13:35:30") Then Exit Sub
    End If
    Set Rng = Sheets("SHEET2").Range("B309:Z309")
    Set Rng1 = Cells(Rows.Count, "A").End(xlUp)(2)
    Rng1 = Time
    Rng1(1, 2).Resize(1, Rng.Columns.Count) = Rng.Value
    Application.OnTime TimeSerial(Hour(Now), Minute(Now) + 1, 13), "SHEET3.EX"
End Sub
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

¦³³\¦h¤èªk«Ø¥ß°±¤î¾÷¨î
¦p¦b«e­±¥[1¦æ
if [a1]=1 then end
·í§A¦ba1¿é¤J1 ®Éµ{¦¡¦ÛµM²×¤î

TOP

oobird¶W¯Åª©¥D§A¦n!
ÁÂÁ§Aªº¦^ÂÐ
½Ð°Ý¥Î°±¤î¥¨¶°«ö¶s¸Ó¦p¦ó°µ?
·P®¦!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-27 10:41 ½s¿è

¦^´_ 3# wells330
¦P¦b¤@¤u§@ªíªºµ{¦¡½X
½Ð°Ý SHEET2.EX ÁÙ¬O SHEET3.EX
  1. Option Explicit
  2. Dim Stop_Msg As Boolean   '¹w³]­È¬O  False
  3. Sub Ex_Stop()  '¦b¤u§@ªí³]¥ß¤@ª«¥ó(«ö¶s,§Ö¨ú¹Ï¤ù..)±N¥¨¶°«ü¦V¦¹µ{§Ç
  4.     If Stop_Msg = False Then      '°±¤î Exµ{§Ç
  5.         Stop_Msg = True
  6.     Else                          '¦pExµ{§Ç°±¤î®É ¥i«ì´_ Exµ{§Ç°õ¦æ
  7.         Stop_Msg = False
  8.         Ex
  9.     End If
  10. End Sub
  11. Sub Ex()
  12.     Dim Rng As Range, Rng1 As Range, i%
  13.     If Stop_Msg Then Exit Sub         'Stop_Msg = True   °±¤î Exµ{§Ç
  14.     If Time < TimeValue("09:00:00") Then
  15.         Application.OnTime TimeValue("09:01:13"), "SHEET2.EX"   '½Ð°Ý SHEET2.EX ÁÙ¬O SHEET3.EX
  16.         Exit Sub
  17.     ElseIf Time >= TimeValue("13:35:30") Then Exit Sub
  18.     End If
  19.     Set Rng = Sheets("SHEET2").Range("B309:Z309")
  20.     Set Rng1 = Cells(Rows.Count, "A").End(xlUp)(2)
  21.     Rng1 = Time
  22.     Rng1(1, 2).Resize(1, Rng.Columns.Count) = Rng.Value
  23.     Application.OnTime TimeSerial(Hour(Now), Minute(Now) + 1, 13), "SHEET3.EX" '½Ð°Ý SHEET2.EX ÁÙ¬O SHEET3.EX
  24. End Sub
½Æ»s¥N½X

TOP

GBKEEª©¥D§A¦n!
¤£¦n·N«ä!¬OSHEET3.EX
ÁÂÁ§A!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

RE: ¦p¦ó³]Stop«ü¥O(¤w¸Ñ¨M)

GBKEEª©¥D§A¦n!
SHEET2.EX ÁÙ¬O SHEET3.EX³o»ò²³æ­×§ï¡AÁٻݭn³Â·Ðª©¥D¡A¯u¬O©êºp!
ÁÂÁ§A!:)
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 6# wells330
SHEET2.EX ÁÙ¬O SHEET3.EX ¥u¬O´£¿ô§Aªºµ§»~
"Application.OnTime TimeValue("09:01:13"), "SHEET2.EX"
Application.OnTime TimeSerial(Hour(Now), Minute(Now) + 1, 13), "SHEET3.EX""
§ï¦¨ ¦P¤@¤u§@ªíª«¥ó¤@­P´N¦n

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD