EXCEL如何单击单元格自定显示定格当前日期

：-）

各位大佬：黄色单元格，点下鼠标就自定生成当前日期且不再变化。例如在B2左击鼠标，则空白单元格变为5月16日。谢谢

yajq

双击单元格日期填充
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row >= 2 And Target.Row <= 4 And Target.Column >= 2 And Target.Column <= 5 Then
    Target.Value = Format(Now(), "yyyymmdd")
End If
End Sub

佳能lT搬砖着

' 当用户单击单元格时将当前日期插入单元格
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Target.Value = Format(Date, "mm/dd/yyyy")
End Sub

tanglf188

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Intersect(Target, Range("B2:E4")) Is Nothing Then Exit Sub
   
3.     If Target.Count > 1 Then Exit Sub
   
4.     If Len(Target.Value) > 0 Then Exit Sub
   
5.     Target.Value = Format(Now, "m月d日")
   
6. End Sub
   

复制代码

taller