รบกวนท่านอาจารย์ ช่วยเรื่อง CODE VBA เรื่อง การการนับถอยหลัง แล้วเหลือ1นาทีก่อนหมดเวลาแล้วให้มีเสียงเตือน ครับ

[sooksun2009]

รบกวนท่านอาจารย์ ช่วยเรื่อง CODE VBA เรื่อง การการนับถอยหลัง ใช้งานได้แล้ว
แต่อยากเพิ่มเติมในเรื่องที่ เหลือ1นาทีก่อนหมดเวลาแล้วให้มีเสียงเตือน ครับ
ขอบคุณครับ

Code: Select all

Sub StartTimer1()
    Application.OnTime Now + TimeValue("00:00:01"), "nexttick1"
End Sub
Sub nexttick1()
    If Sheet1.Range("Z6") = 0 Then Exit Sub
        Sheet1.Range("Z6").Value = Sheet1.Range("Z6").Value - TimeValue("00:00:01")
    StartTimer1
Sub stopTimer1()
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:01"), "nexttick1", , False
End Sub

[snasui]

ตัวอย่าง Code ครับ If Sheet1.Range("z6").Value [color=#FF4000]<[/color] TimeValue("00:01:00") Then Beep

[sooksun2009]

ตัวอย่าง Code ครับ If Sheet1.Range("z6").Value [color=#FF4000]<[/color] TimeValue("00:01:00") Then Beep

ได้แล้วครับ ขอบคุณครับ แต่ขอถามเพิ่มเติมครับ ถ้าเราต้องเสียงอย่างอื่น แทนเสียง Beep ต้องทำยังครับ ขอบคุณครับ

[logic]

ลองดูตามลิ้งก์ครับ https://support.microsoft.com/en-us/kb/158140

[sooksun2009]

ลองดูตามลิ้งก์ครับ https://support.microsoft.com/en-us/kb/158140

ขอบคุณครับ

[sooksun2009]

ดูแล้วแต่ยังไม่ได้ครับ

[snasui]

โพสต์ Code ที่ลองทำเองแล้วมาถาม อธิบายมาให้ละเอียดว่าต้องการเสียงจากไหน อย่างไร เช่นนี้เป็นต้นครับ