vba-用bva讓一個單元格顯示另一個單元格的修改日期，且能決定日期顯示的格式

用bva讓一個單元格顯示另一個單元格的修改日期，且能決定日期顯示的格式

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 4 Then
Cells(Target.Row, 6) = Now
End If
End If
End Sub
這是我在網上收的，日期的格式太詳細，我想只顯示月、日就可以了。右鍵單元格，設置單元格格式不行，能否在vba中就把日期的格式定義好。

最佳回答：

 Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 4 Then
    Cells(Target.Row, 6).NumberFormatLocal = "yyyy-m-d" '年月日
    'Cells(Target.Row, 6).NumberFormatLocal = "m-d" '月日
    Cells(Target.Row, 6) = Now
End If
End If
End Sub