Изменение формата даты в VBA-Excel

Question

Я работал над макросом, который изменяет даты с ДД-ММ-ГГ на ДД-ММ-ГГГГ, и я хотел бы услышать, возможно ли создать повторяемый макрос, который проверяет столбец даты, и если он находит любые даты ДД-ММ-ГГ, они автоматически меняют их на ДД-ММ-ГГГГ

Answer 1

Попробуйте .NumberFormat:

Sub format_date()

Dim date_column As Range

With ActiveSheet

    With .Cells

    Set date_column = .Find(What:="date", LookIn:=xlFormulas, _
    LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
    MatchCase:=True, SearchFormat:=False)

    End With

    If date_column Is Nothing Then
        MsgBox "Cant find date column", vbCritical
        Exit Sub
    End If

    With date_column.EntireColumn

    .NumberFormat = "mm/dd/yyyy;@"

    End With

End With

End Sub