รบกวนช่วยเรื่องกดปุ่มstartนับเวลาถอยหลังให้หน่อย

[sooksun2009]

Code: Select all

Sub StartTimer()
Application.OnTime Now + TimeValue("00:00:01"), "nexttick"
End Sub
Sub nexttick()
If Sheet1.Range("AJ5") = 0 Then Exit Sub
Sheet1.Range("AJ5").Value = Sheet1.Range("AJ5").Value = TimeValue("00:00:01")
StartTimer
End Sub
Sub stoptimer()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "nexttick", , False
End Sub

[sooksun2009]

คือให้กดปุ่มสตาร์ทแล้วนับถอยหลัง ตรง Countdown

[sooksun2009]

ผมรันแล้วมันขึ้น False

[snasui]

พยายามเขียนให้มีหางเสียงเสียหน่อยอ่านแล้วจะได้ไม่เหมือนมาสั่งครับ

Code ควรเป็นตามด้านล่างครับ

Code: Select all

Sub StartTimer()
    Application.OnTime Now + TimeValue("00:00:01"), "nexttick"
End Sub

Sub nexttick()
    If Sheet1.Range("AJ2") = 0 Then Exit Sub
        Sheet1.Range("AJ2").Value = Sheet1.Range("AJ2").Value - TimeValue("00:00:01")
    StartTimer
End Sub

Sub stoptimer()
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:01"), "nexttick", , False
End Sub

นอกจากนี้การจัด Format ค่าในเซลล์ AJ2 ควรเป็น h:mm:ss ไม่ใช่ h:mm จะได้เห็นว่าวินาทีเปลี่ยนแปลงไปอย่างไร ไม่เช่นนั้นอาจจะเข้าใจว่า Code ไม่ทำงานเพราะไมเ่ห็นการเปลียนแปลงในเซลล์

[sooksun2009]

ก่อนอื่นต้องขอโทษด้วยครับ พอดีรีบพิมพ์ เลยตกหางเสียง
Count Down ได้แล้วครับ ขอบคุณครับ