Excel Forum

ลำดับที่3 ของการสนทนาใน หัวข้อนี้ครับ พอดีผมเห็นไฟล์แนบ ก็เลย ลองโหลดมา ลองดูครับ เลยงง กับการลดลงของเวลาครับ ถ้าคลิกครั้งแรกไม่เป็นรัยครับ ถ้าคลิกหยุด แล้วเล่นใหม่ ก็แสดงผลเหมือน ลดเวลาลง ครั้งละ 2,3,4......... ตามลำดับครับ ชื่อไฟล์ CountDown.xls ^__^

ผมมีข้อสงสัยครับ โค้ด CountDown01.xls ตัวที่นับถอยหลังอ่ะครับ พอผมกด stop แล้ว กด Start อีกครั้ง การนับถอยหลังเวลาทำไมมันไม่นับเท่าเดิมครับ กลับเป็นว่า จาก นับถอยหลังทีละ1 ครั้งต่อมาหลังกด stop แล้ว start อีกครั้ง กลับเป็นว่าลดลงครั้งละ 2 แล้วต่อมากระทำอีกลดลงครั้งละ 3 และ ลดลงครั้งละ4 เพิ่มขึ้นเร ...

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

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

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

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

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

สวัสดีครับ

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