时间戳

首页 > 解决方案 > 用户表单检查日期和时间

excel - 用户表单检查日期和时间

问题描述

嗨，我有一个用户表单，它通过 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

标签： excelvbauserform

解决方案

您可以使用此代码代替您的代码

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

推荐阅读