Excel Forum

Code: Select all

Option Explicit

Dim CountTime As Date

Sub Timer()
    Dim N As Integer
    CountTime = Now + TimeValue("00:00:01")
    Application.OnTime EarliestTime:=CountTime, Procedure:="Reset", Schedule:=True
    With Sheet1
            .Range("A1").Value = CountTime
            For N = 1 To 30  ' จำนวนโต๊ะปรับตามเซลล์ที่จะจับเวลา เช่น เปลี่ยน จาก 30 เป็น  100 (ยังไม่แค่นี้...ต้องลากเซลล์ที่ 30 คัดลอกสูตรลงไปถึง 100 ด้วยเพื่อให้แสดงผลเหมือนกัน)
            If .Range("B" & N + 2).Value = "OK" And .Range("D" & N + 2).Value = Empty _
                Then .Range("D" & N + 2).Value = Time()
            If .Range("B" & N + 2).Value = "NO" And .Range("D" & N + 2).Value <> Empty _
                Then .Range("D" & N + 2).Value = Empty
            If .Range("E" & Trim(Str(N + 2))).Value < Time Then
                MsgBox "โต๊ะ " & .Range("A" & N + 2).Value & " หมดเวลา" ' ตรงนี้คือข้อความที่จะแสดงว่าหมดเวลาขึ้นอย่างไร ปรับได้
                .Range("C" & N + 2).Value = Empty
            End If
        Next N
    End With
End Sub

Sub Reset()
    Call Timer
End Sub

Sub DisableTimer()
    On Error Resume Next
    Application.OnTime EarliestTime:=CountTime, Procedure:="Reset", Schedule:=False
End Sub