根据日期输入隐藏行

Question

我有一个工作表Data24h，其中填充了按日期排序的数据。

我想为用户创建仅显示特定日期的数据的功能。

所以我创建了一个UserForm，用户在textbox1 中输入一个日期，然后我希望程序隐藏不包含在日期间隔中的每一行。

隐藏功能似乎起作用，但条件不起作用。如果我将今天的日期作为 YYMMDD 作为输入，它仍将显示所有日期。

我是一般编程的新手，尤其是 VBA，如果问题有点含糊，我很可能是代码看起来像 #!!#@。

Private Sub CommandButton1_Click()
    Datum = TextBox1.Value
    Sheets("Data24h").Select
    BeginRow = "" 
    EndRow = 100 
    ChkCol = 3 

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Value >= Datum Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        Else
            Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        End If
    Next RowCnt

    Columns("A").Select 
    Unload Me 
    Återställ1.Show 
End Sub

所以我尝试使用 Autofilter 但仍然无法管理。现在我在“最后一个”自动筛选行中收到错误 1004。据我了解，我收到此错误是因为自动过滤器认为范围为空？

编辑：我做到了！自动过滤器解决了它！我只是错过了 := 在字段中。感谢大家的努力。

Private Sub CommandButton1_Click()

Dim Datum As Date
Dim Datum_l As Long

Sheets("Data24h").Select

Datum = CDate(Me.TextBox1.Value)

With Data24h
    AutoFilterMode = False
    Selection.Range("A2:A100").AutoFilter
    Selection.Range("A2:A100").AutoFilter Field = 1, Criteria1:=">=" & Datum

End With

Answer 1

首先为基准变量添加一个声明 (Dim Datum As Date)
Next 将日期改写为 Datum = CDate(TextBox1.Value)

这只是为了让您入门。它可以更好地比较文本框中的值和单元格中的值（假设单元格中的值是真实日期）

Answer 2

试试这个代码，我添加了CDate() 函数来将数据转换为类型化的日期可能会缓解这个问题，但你可能需要检查人们可以输入到您的文本框中的输入值。

Private Sub CommandButton1_Click()
    Dim Datum As Date, _
        BeginRow As Integer, _
        EndRow As Double, _
        ChkCol As Integer, _
        Ws As Worksheet

    Set Ws = Sheets("Data24h")
    Datum = CDate(Me.TextBox1.Value)
    BeginRow = 1
    EndRow = Ws.Range(Rows.Count).End(xlUp).Row
    ChkCol = 3

    For RowCnt = BeginRow To EndRow
        If CDate(Ws.Cells(RowCnt, ChkCol).Value) >= Datum Then
            Ws.Rows(RowCnt).EntireRow.Hidden = True
        Else
            Ws.Rows(RowCnt).EntireRow.Hidden = False
        End If
    Next RowCnt

    'Columns("A").Select
    Unload Me
    Återställ1.Show
End Sub