เรื่อง vba ครับ excel 2007 อยากจะหยุดการทำงานของ Ontime

[jittaboy]

สวัสดีครับ

พอดีผมอยากจะ หยุดการทำงานของ Application.Ontime พอมีวิธีหยุดไหมครับ หรือ kill process นั้นเลย
ผมให้ฟังชันนี้ แทน Time_Tick event เพราะใน excell ไม่มี(หรือว่ามีหรือป่าวผมไม่รู้ครับ รบกวนผู้รู้ตอบครับ) สรุปคือผมใช้ฟังชันนี้ในการ ให้ตัว sheet มีการตรวจสอบ ค่าทุก1 วินาที ครับ
ใน vb 6 ผมใช้ Timer ครับ แต่ใน excel ใช้อะไรแทนครับ ผมก็เลยใช้ Application.ontime แต่ ปัญหาคือ จะหยุดการทำงานหรือ cancel โปรเสส นี้ยังงัยครับ


ขอบคุณครับ ^__^

[snasui]

ช่วยแนบตัวอย่าง Code ของ Ontime ที่เขียนไว้แล้วมาด้วยครับ

[jittaboy]

ครับพี่ผมได้ทำการแนบมาแล้วครับ ^__^

[jittaboy]

ดันๆครับ ยากจังครับ จะมีคนมาช่วยตอบไหมหนอ

[snasui]

ผมไม่เห็นไฟล์แนบหรือ Code ที่เขียนมาแล้วครับจึงยังไม่ได้ตอบเพิ่ม

[jittaboy]

ผมอยาเขียนประมาณนี้ครับพี่ แต่พอลองโค้ดแล้ว แค่หยุด การทำงานยังหยุดไม่ได้เลยครับ ^__^ ขอบคุณครับพี่

Sub OnLoadRefesh()
Application.OnTime Now + TimeValue("00:00:01"), "OnLoadRefesh"
Call CountDownTime
End Sub

Sub CountDownTime
ช่วงนี้ก็จะทำการลดเวลาลงครับ
End Sub

[snasui]

ลองดูตัวอย่าง การใช้ Ontime ตามด้านล่างครับ

Code: Select all

Public Start As Double

Sub StartTimeQuery()
    Start = Now + TimeValue("00:00:01")
    Application.OnTime EarliestTime:=Start, _
        Procedure:="XYZ", Schedule:=True
End Sub

Sub StopTimeQuery()
    On Error Resume Next
    Application.OnTime EarliestTime:=Start, _
            Procedure:="XYZ", Schedule:=False
End Sub

ตัวอย่างการวาง Code ให้เป็น Code เพื่อสะดวกในการอ่านสามารถดูได้ที่กระทู้นี้ครับ viewtopic.php?f=3&t=1187