VBA查找＆amp;更换更改日期为我们格式

Question

当我通过VBA查找并替换时，它将我的日期更改为我们的格式。因此，我有一列日期，但是它们都以我想删除的文本为前缀（例如发票日期：dd/mm/yyyy）。当我使用CTRL + F并手动替换时，一切都很棒。删除文本，日期保留为原始格式dd/mm/yyyy。但是，如果使用VBA进行此操作时，如果一天小于12（即一年的月份），则将日期更改为mm/dd/yyyy。我已经尝试了多种不同的方法来转换它，但是它们似乎都有相同的问题。这是我的最新失败...

Sub DateConvert()

    Sheets("Sheet1").Select

    Dim strValue As String
    Dim RowCount As Integer
    Dim x As Integer
    Dim DateValue As Date

    RowCount = WorksheetFunction.CountA(Range("C1", Range("C1").End(xlDown)))

    For x = 2 To RowCount
        'changes cell value to a string
        strValue = Cells(x, 3).Value
        'removes unwanted text
        Cells(x, 3).Replace _
        What:="Invoice Date:", Replacement:=""
        'changes to string to desired date format
        DateValue = Cells(x, 3).NumberFormat = "dd/mm/yyyy"
        
    Next x
       

End Sub

请有人在笔记本电脑或我离开窗户之前避免我的这种痛苦。 提前致谢

Answer 1

日期非常烦人。确保您使用正确日期的最佳选择是使用日期函数，然后根据需要格式化输出：

Sub DateConvert()
    
    Dim ws As Worksheet:    Set ws = ActiveWorkbook.Worksheets("Sheet1")
    Dim rData As Range:     Set rData = ws.Range("C2", ws.Cells(ws.Rows.Count, "C").End(xlUp))
    If rData.Row < 2 Then Exit Sub  'No data
    
    'Load range data into an array
    Dim aData() As Variant
    If rData.Cells.Count = 1 Then
        ReDim aData(1 To 1, 1 To 1)
        aData(1, 1) = rData.Value
    Else
        aData = rData.Value
    End If
    
    'Loop over array and perform conversion
    Dim aDateValues As Variant
    Dim i As Long
    For i = 1 To UBound(aData, 1)
        aDateValues = Split(Replace(aData(i, 1), "Invoice Date:", vbNullString), "/")   'Remove the extra text and pull the date values
        aData(i, 1) = DateSerial(aDateValues(2), aDateValues(1), aDateValues(0))        'Use DateSerial to guarantee correct date
    Next i
    
    'Output results to sheet with desired date format
    With rData
        .Value = aData
        .NumberFormat = "dd/mm/yyyy"
    End With
    
End Sub