Page 1 of 1

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

Posted: Mon Aug 27, 2012 11:21 am
by jittaboy
สวัสดีครับ

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


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

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

Posted: Mon Aug 27, 2012 3:11 pm
by snasui
:D ช่วยแนบตัวอย่าง Code ของ Ontime ที่เขียนไว้แล้วมาด้วยครับ

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

Posted: Wed Aug 29, 2012 1:19 pm
by jittaboy
ครับพี่ผมได้ทำการแนบมาแล้วครับ ^__^

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

Posted: Thu Aug 30, 2012 1:48 pm
by jittaboy
ดันๆครับ ยากจังครับ จะมีคนมาช่วยตอบไหมหนอ

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

Posted: Thu Aug 30, 2012 5:18 pm
by snasui
:D ผมไม่เห็นไฟล์แนบหรือ Code ที่เขียนมาแล้วครับจึงยังไม่ได้ตอบเพิ่ม :mrgreen:

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

Posted: Wed Sep 05, 2012 1:37 pm
by jittaboy
ผมอยาเขียนประมาณนี้ครับพี่ แต่พอลองโค้ดแล้ว แค่หยุด การทำงานยังหยุดไม่ได้เลยครับ ^__^ ขอบคุณครับพี่

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

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

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

Posted: Wed Sep 05, 2012 1:59 pm
by snasui
:D ลองดูตัวอย่าง การใช้ 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