用VBA做一个代码,可以在选中E2单元格时弹出一个日历控件,选择日期后日历控件就自动隐藏,同时E2单元格显示刚才选中的日期值。 先在工作表中添加一个日历控件,然后点下面工作表标签名字,按鼠标右键,从弹出的快捷菜单中选“查看代码”,然后把下面代码粘贴进去,回到excel窗口就能使用了。 Private Sub Calendar1_Click() Range(e2) = Calendar1.Value '让E2单元格显示日历控件的值 Calendar1.Visible = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = $E$2 Then Calendar1.Visible = True Else Calendar1.Visible = False End If End Sub