Excel Forum

Code: Select all

Private Sub Worksheet_Activate()
    Call Worksheet_Calculate
End Sub

Private Sub Worksheet_Calculate()
    Dim n As Integer
    With Sheets("Sheet1")
        For n = 1 To 10
            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
        Do
            T = Second(Time())
            DoEvents
        Loop While Second(Time()) = T
        .Range("A1").Value = Time()
    End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Call Worksheet_Calculate
End Sub