Snasui Excel Forum

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