這些可以用公式來處理,但這就需要轉換到另一格,
若用VBA處理彈性就大了,可以執行巨集一次性重新設定
或用 Worksheet_Change(ByVal Target As Range) 於資料輸入後將格式變更成你要的
Private Sub Worksheet_Change(ByVal Target As Range)
If IsDate(Target.Value) Then
If Target.Value = Int(Target.Value) Then
Target.NumberFormatLocal = "yyyy/mm/dd"
Else
Target.NumberFormatLocal = "yyyy/m/d h:mm"
End If
End If
End Sub