ขอความช่วยเหลือนะครับ เรื่องการสร้าง Game Over

[bee2130]

ขอความช่วยเหลือนะครับ พอดีว่าลูกศิษย์จะแข่งขันสร้างเกมระดับประถม แต่ครูที่ปรึกษาประสบอุบัติเหตุ จึงไม่สามารถทำต่อได้ ติดขัดเรื่องการใช้โปรแกรมอยู่หลายขั้นตอนเหมือนกัน แต่ก็พอคลำทางไปถูกบ้าง เรื่องการใส่เวลาให้กับเกมนี่สิครับไปไม่ถูกเลย คือประมาณว่า กดเล่นเกม แล้วเริ่มจับเวลา เมื่อหมดเวลา ให้ปรากฎคำว่า Game Over ต้องเชื่อมโยงยังไง พอมีวิธีไหนที่ง่ายๆไหมครับ ขอความกรุณาอธิบายให้หน่อยนะครับ (ผมส่งตัวอย่างไฟล์ที่ลูกศิษย์ฝึกทำไว้ มาด้วยครับ)

เกมปริศนา.xls

[snasui]

ดูกระทู้นี้ครับ โจทย์เดียวกันเลยครับ viewtopic.php?f=3&t=584

[bee2130]

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

[snasui]

ส่งไฟล์ตัวอย่างมาด้วยครับ อธิบายด้วยว่าเกมส์จบต้องคลิกอะไรหรือไม่อย่างไร จะได้นำเงื่อนไขนั้นมาปรับ Code ครับ

[bee2130]

คืออยากให้เวลาหยุดตรงที่ตอบคำถามถูกทุกช่องแล้ว และกดเล่นใหม่โดยที่เคลียร์ช่องให้เหมือนกับก่อนเล่นได้ไหมครับ ขอบคุณครับ

[snasui]

ผมปรับ Code ให้แล้ว ดูตามไฟล์แนบครับ

Code: Select all

Sub Reset()
Dim Count As Range, r As Range
Set Count = Worksheets("เกมตัวเลขคิดสนุก").[E15]
Set r = Worksheets("เกมตัวเลขคิดสนุก").Range("E10:G12")
Count.Value = Count.Value - TimeValue("00:00:01")
    If Count <= 0 Then
        MsgBox "หมดเวลา"
        DisableTimer
        Exit Sub
    End If
    If Application.Count(r) = 9 Then
        DisableTimer
        Exit Sub
    End If
Call Timer
End Sub

Sub StartGame()
Worksheets("เกมตัวเลขคิดสนุก").Range("F10:F11,G10,E11:E12,G12").ClearContents
Worksheets("เกมตัวเลขคิดสนุก").Select
Worksheets("เกมตัวเลขคิดสนุก").[E15].Value = TimeValue("00:03:00")
Call Timer
End Sub

[bee2130]

ขอบพระคุณเป็นอย่างสูงครับ