Userform Проверка даты и времени

Question

Привет, у меня есть пользовательская форма, которая просматривает столбец A для значения, как правило, что-то вроде 14/11/2018 17:00:01.если я на самом деле ввожу правильное значение, мой код выдает ошибку, которую я ввел, если вы введете неправильное значение.Где я ошибся?

Private Sub TimeBox_AfterUpdate()

    If WorksheetFunction.CountIf(Sheet4.Range("A:A"), Me.TimeBox.Value) = 0 Then
        MsgBox "Time not found"
        Me.TimeBox.Value = ""
        Exit Sub
    End If
End Sub

Answer 1

Вы можете использовать этот код вместо своего

Private Sub TimeBox_AfterUpdate()
Dim m, lr As Long
Dim cell As Range
s = Me.TimeBox.Text

lr = Sheets("Sheet4").Range("A" & Rows.Count).End(xlUp).Row

   For Each cell In Sheets("Sheet4").Range("A1:A" & lr)

   If cell.Text = s Then
   m = m + 1
   End If
   Next cell

   If m = 0 Then
   MsgBox "Time not found"
   Else
   MsgBox m
   End If

End Sub