excel 日历控件 Private Sub Calendar1_AfterUpdate() Sheet1.Cells(2, 5) = Calendar1.Value End Sub