使用VBA可以將日期格式從20140129更改爲01/29/2014嗎？

Question

我只是想弄清楚在一個巨大的電子表格上更改日期格式的最簡單方法，但最大的問題似乎是年月和星期幾轉換。我需要它是mm/dd/yyyy，但目前它是yyyymmdd。謝謝你的幫助。

Answer 1

我可以使用VBA將日期格式從20140129更改爲01/29/2014嗎？

您的意思是這樣的？

Sub Test() 
    Dim temp As String 
    Dim D As String, M As String, Y As String 

    temp = "20140129" 

    Y = Left(temp, 4) 
    M = Mid(temp, 5, 2) 
    D = Right(temp, 2) 

    '~~> This will give you 01/29/2014 
    Debug.Print Format(DateSerial(Val(Y), Val(M), Val(D)), "mm/dd/yyyy") 
End Sub 

編輯從評論

跟進。

使用此代碼（TRIED AND TESTED）。我假設的日期（如字符串）存儲在柱A從A1起中說Sheet1

Sub Test() 
    Dim temp As String 
    Dim D As String, M As String, Y As String 
    Dim ws As Worksheet 
    Dim lRow As Long, i As Long 

    '~~> Change this to the relevant worksheet 
    Set ws = ThisWorkbook.Sheets("Sheet2") 

    With ws 
     lRow = .Range("A" & .Rows.Count).End(xlUp).Row 

     For i = 1 To lRow 
      temp = CStr(.Range("A" & i).Value) 

      Y = Left(temp, 4) 
      M = Mid(temp, 5, 2) 
      D = Right(temp, 2) 

      .Range("A" & i).NumberFormat = "mm/dd/yyyy" 

      '~~> This will give you 01/29/2014 
      .Range("A" & i).Formula = Format(DateSerial(Val(Y), Val(M), Val(D)), "mm/dd/yyyy") 
     Next i 


    End With 
End Sub 

截圖