excel关于自动生成日期的vba编程 请大家帮个忙（vba中如何自动生成日期）

1、在worksheet的selectionchange事件中，让日期控件随着对单元格的选择不同而移动。 If (Target.Row >= 4 And Target.Row <= 100) And Target.Column = 3 Then With DTPicker1 .Visible = True .Left = Target.Left .Top = Target.Top .Width = Target.Rows.Width .Height = Target.Height End With Else DTPicker1.Visible = False End If 2、在dtpicker1的closeup事件中对单元格赋值。