如何在 VBA 中引入正确的日期格式？

Question

所以，我正在尝试自动化 VBA 中的一些日期。我分别获得日期、月份和年份，并将所有三个连接到 VBA 中的一个单元格中。但是通过这种方法，我得到了“未格式化”的日期，并且无法在几个月内过滤它们。 Excel 将它们视为“文本”

在附加的屏幕截图中，您可以看到底部 4 个单元格，我实际上是通过按 F2 并输入来刷新的。这会将它们更新为日期格式，并且过滤器将它们视为“日期”

如何实现自动化，以便仅在 VBA 中以这种格式放置它们？

代码如下

    'for each row run a formula to concatenate G+F+H for DD/MM/YYYY
    For Cnt = 2 To Cnt2
    
        If Cells(Cnt, 7).Value > 12 Then
            Cells(Cnt, 9).Value = Cells(Cnt, 7).Value & "." & Cells(Cnt, 6).Value & "." & Cells(Cnt, 8).Value
        Else
            Cells(Cnt, 9).Value = Cells(Cnt, 6).Value & "." & Cells(Cnt, 7).Value & "." & Cells(Cnt, 8).Value
            
        End If
            
    Next Cnt
    
    'delete F G H columns
    Columns("F:H").Select
    Selection.EntireColumn.Delete
    
    Columns("F:F").Select
    Selection.NumberFormat = "d/m/yy"

Answer 1

尝试使用此代码，请根据需要配置所有内容

祝你好运

'Copy all code
'This is the configurable part
    Private Const _
    MyFormat = "dd.mm.yyyy", _
    MySheet = "Test", _
    MyFirstRangeCell = "F1"
'This is the configurable part

   'This dont need move anything
Function MyFormatDay(d_ As String, m_ As String, y_ As String) As String
    MyFormatDay = Format(DateSerial(y_, m_, d_), MyFormat)
End Function

'this dont need to move so much, maybe nothing
Sub GetDates()
    Sheets(MySheet).Select
    Range(MyFirstRangeCell).Select
    Do While ActiveCell <> ""
    ActiveCell.Offset(0, 3) = MyFormatDay(ActiveCell, ActiveCell.Offset(0, 1),    ActiveCell.Offset(0, 2))
    ActiveCell.Offset(1, 0).Select
    Loop


End Sub


'Copy all code

Answer 2

使用DateSerial 而不是串联：

Cells(Cnt, 9).Value = DateSerial(Cells(Cnt, 8).Value, Cells(Cnt, 6).Value, Cells(Cnt, 7).Value)