我想將列A或范圍A從日期格式轉換為文本格式顯示MM M YYYY。
下面是作業表的布局：
Sub CONVERT_DATE()
Application.ScreenUpdating = False
應用程式.DisplayAlerts = False
Workbooks.Open ("MyWorkbook.xlsx")
作業簿（"MyWorkbook.xlsx"）.激活
Dim ws As 作業表
Set ws = Workbooks("MyWorkbook.xlsx").Sheet("MyWorkSheet")
Dim wsLastRowAs Long
wsLastRow = ws.Range("A" & Rows.Count).End（xlUp）.Row
'將日期轉換為mmm yyyy格式的文本顯示。
ws.Range("A2:A" & wsLastRow).Text = Format(ws. Range("A2:A" & wsLastRow).Text, "mmm yyyy")
Workbooks("MyWorkbook.xlsx").Close SaveChanges:=True。
Application.ScreenUpdating = True.
應用程式.DisplayAlerts = TrueEnd Sub
有人能發現這個問題嗎？
多謝！
uj5u.com熱心網友回復：
使用NumberFormat而不是試圖設定Text
sub CONVERT_DATE()
Application.ScreenUpdating = False
應用程式.DisplayAlerts = False
Workbooks.Open ("MyWorkbook.xlsx")
作業簿（"MyWorkbook.xlsx"）.激活
Dim ws As 作業表
Set ws = Workbooks("MyWorkbook.xlsx").Sheet("MyWorkSheet")
Dim wsLastRowAs Long
wsLastRow = ws.Range("A" & Rows.Count).End（xlUp）.Row
'轉換日期為文本顯示，格式為mm yyyy。
' 修改這一行。
ws.Range("A2:A" & wsLastRow).NumberFormat = "mmm yyyy"
Workbooks("MyWorkbook.xlsx").Close SaveChanges:=True。
Application.ScreenUpdating = True.
應用程式.DisplayAlerts = TrueEnd Sub
uj5u.com熱心網友回復：
替代這一行
ws.Range("A2:A" & wsLastRow).Text = Format(ws. Range("A2:A" & wsLastRow).Text, "mmm yyyy")
使用NumberFormat來改變范圍的格式
ws.Range("A2:A" & wsLastRow).NumberFormat = "mmm yyyy"。
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/323595.html
標籤：