如何将用户输入的字符串日期转换为Excel格式

Question

如果用户输入jan-1-2018或January-1-2018，我将如何编写vba将其转换为01/01/2018？

Answer 1

如果a1单元格为“ jan-1-2018”，请这样做

Sub test()
    Dim m As Date, d As String

    m = DateValue(Range("a1"))
    d = Format(m, "mm/dd/yyyy")
    MsgBox d
End Sub

Answer 2

文本到列，固定宽度，下一步，MDY，完成。

在VBA中，

Option Explicit

Sub Macro4()
    With Worksheets("sheet1").Columns(1)
        .TextToColumns Destination:=.Cells(1), DataType:=xlFixedWidth, FieldInfo:=Array(0, 3)
        .NumberFormat = "m/d/yyyy"
    End With
End Sub