VBA 将日期文本更改为日期格式

Question

I have an exported excel with date formated this way 24.12.2019 , how can i use VBA and set a macro so that when i click on macro it becomes 2019-12-24 . I tried to find in stackoverflow for related post, but to unavail. Both are general text format and i want to keep it that way.

Answer 1

As you want to keep everything as text have a look at the following code and try to adjust it to your sheet.

Sub Tester()

    Dim rg As Range
    Set rg = Range("A1:A4")

    Dim sngCell As Range
    For Each sngCell In rg
        ' This will set the format of the cell to text
        sngCell.NumberFormat = "@"

        ' This will change the format of the date
        ' Be careful there is a lot of internal casting going on
        sngCell.Value = Format(sngCell.Value, "YYYY-MM-DD")
    Next

End Sub

And you could use this function to get the result as text

Function dtTxt(inpdte As String) As String
    dtTxt = Format(inpdte, "YYYY-MM-DD")
End Function

Answer 2

Try the following:

Sub Test()

Dim lr As Long
Dim rng As Range

With Sheet1 'Change according to your sheet's codename
    lr = .Cells(.Rows.Count, "A").End(xlUp).Row 'Change "A" to whichever column data is in
    Set rng = .Range("A1:A" & lr) 'Change accordingly again
    rng.TextToColumns Destination:=rng, DataType:=xlFixedWidth, FieldInfo:=Array(0, xlDMYFormat)
    rng.NumberFormat = "YYYY-MM-DD"
End With

End Sub

Answer 3

Try this:

DateText = "24.12.2019"
DateArr = Split(DateText, ".")
MsgBox DateArr(2) & "-" & DateArr(1) & "-" & DateArr(0)

If you want the output as date value:

DateValue(DateArr(2) & "-" & DateArr(1) & "-" & DateArr(0))