如果插入的值為日期，我需要將日期格式更改為(dd-mmm-yy)，但它不起作用！
當前結果格式為dd-mm-yy，預期為dd-mmm-yy. 我試過下面的代碼。與往常一樣，任何幫助將不勝感激。
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("E:F")) Is Nothing Then 'Change Date format to dd-mmm-yy
If Not IsDate(Target.value) = False Then
Target.NumberFormat = "dd-mmm-yy"
End If
End If
End Sub
uj5u.com熱心網友回復：
如果您一次更改多個單元格，您可能需要回圈。請注意，更改數字格式不會更改基礎值。如果您使用的是text-that-looks-like-a-date，則更改數字格式將無濟于事。您需要先將其轉換為日期（可能使用CDate或DateValue）。
Dim rng As Range
Set rng = Intersect(Target, Columns("E:F"))
If Not rng Is Nothing Then
Dim cell As Range
For Each cell In rng
If IsDate(cell.Value) Then
cell.NumberFormat = "dd-mmm-yy"
End If
Next
End If
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/391302.html