Jak przekonwertować ciąg na datę w vba (z przykładami)

Możesz użyć funkcji CDate w VBA, aby przekonwertować ciąg tekstowy na datę.

Oto dwa popularne sposoby wykorzystania tej funkcji w praktyce:

Metoda 1: Konwertuj ciąg na datę przy użyciu formatu domyślnego (MM/DD/RRRR)

 Sub ConvertStringToDate()

    Dim i As Integer

    For i = 2 To 8
        Range(" B " & i) = CDate(Range(" A " & i))
    Next i
    
End Sub

To konkretne makro skonwertuje każdy ciąg z zakresu A2:A8 na datę z domyślnym formatem daty MM/DD/RRRR.

Na przykład ciąg tekstowy z datą 15.04.2023 zostanie przekonwertowany na datę 15.04.2023.

Metoda 2: Konwertuj ciąg na datę przy użyciu formatu niestandardowego

 Sub ConvertStringToDate()

    Dim i As Integer

    For i = 2 To 8
        Range(" B " & i) = Format(CDate(Range(" A " & i)), " MM.DD.YYYY ")
    Next i
    
End Sub

To konkretne makro skonwertuje każdy ciąg z zakresu A2:A8 na datę w formacie MM.DD.RRRR.

Na przykład ciąg tekstowy z datą 15.04.2023 zostanie przekonwertowany na datę 15.04.2023.

Poniższe przykłady pokazują, jak w praktyce zastosować każdą metodę z następującą kolumną ciągów w programie Excel:

Przykład 1: Konwertuj ciąg na datę przy użyciu formatu domyślnego

Możemy użyć poniższego makra, aby przekonwertować każdy ciąg znaków w kolumnie A na datę w domyślnym formacie MM/DD/RRRR:

 Sub ConvertStringToDate()

    Dim i As Integer

    For i = 2 To 8
        Range(" B " & i) = CDate(Range(" A " & i))
    Next i
    
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Należy zauważyć, że kolumna B konwertuje każdy ciąg znaków w kolumnie A na datę z domyślnym formatem daty MM/DD/RRRR.

Przykład 2: Konwertuj ciąg na datę przy użyciu formatu niestandardowego

Możemy użyć poniższego makra, aby przekonwertować każdy ciąg znaków w kolumnie A na datę o niestandardowym formacie MM.DD.RRRR:

 Sub ConvertStringToDate()

    Dim i As Integer

    For i = 2 To 8
        Range(" B " & i) = Format(CDate(Range(" A " & i)), " MM.DD.YYYY ")
    Next i
    
End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Należy pamiętać, że kolumna B konwertuje każdy ciąg znaków w kolumnie A na datę w niestandardowym formacie MM.DD.RRRR.

Możesz skorzystać z funkcji VBA Format , aby wyświetlić daty w wybranym przez siebie formacie.

Uwaga : Pełną dokumentację funkcji CDate języka VBA można znaleźć tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

Jak przekonwertować ciąg na int w VBA
Jak przekonwertować ciąg na długi w VBA
Jak przekonwertować ciąg na podwójny w VBA