• 废话不多说,直接上代码。

    一、单个单元格插入日期

    在VBA编辑器中插入下面代码直接保存,然后在前台就可以用了。。。

    ---------------------------------代码区------------------------------------

    Private Sub Calendar1_Click()

    ActiveCell = Calendar1

    Calendar1.Visible = False

    [a2].Select

    End Sub