UserForm中的日期在列搜索中格式不正确

Question

我是VBA的新手，没有编程背景，所以这可能是一个简单的问题。

我使用简单的Excel数据表并创建了UserForm以简化输入新信息的过程。日期是字段之一。然后，我在UserForm文本框中输入日期，它将日期转换为所需的格式（yyyy-mm-dd）并填充单元格。

问题是，尽管日期和日期的格式看起来相同，但是在“表”列中搜索时，它看起来像是另一种输入项，没有包含在自动组和子组中。我希望将其分组为年，月，组，例如手动输入的日期。

用于调整输入日期格式的代码：

Private Sub TB_Gavimo_data_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TB_Gavimo_data.Text <> "" Then
    If IsDate(TB_Gavimo_data.Text) Then
        TB_Gavimo_data.Text = Format(TB_Gavimo_data.Text, "yyyy-mm-dd")
    Else
        MsgBox "Įveskite teisingą datos formatą"
        Cancel = True
    End If
End If

用于从UserForm文本框中填充单元格的代码

Private Sub Save_Click()

  Worksheets("Registracija").Range("F3") = TB_Gavimo_data

  Unload Me

End Sub