如何excel各单元格中设置可隐藏的日历表

在工作表中输入日期可以使用日期时间控件（Microsoft Date and Time Picker Control 6.0，简称DTP控件）。

在工作表中单击菜单“视图”→“工具栏”→“控件工具箱”，选择“其他控件”中的DTP控件如图 1所示，在工作表中添加一个DTP控件。

在设计模式下双击DTP控件写入下面的代码：

#001  Private Sub Worksheet_SelectionChange(ByVal Target As Range)

#002      With Me.DTPicker1

#003          If Target.Count = 1 And Target.Column = 2 And (Not Target.Row = 1) Or Target.MergeCells Then

#004              .Visible = True

#005              .Top = Selection.Top

#006              .Left = Selection.Left

#007              .Height = Selection.Height

#008              .Width = Selection.Width

#009              If Target.Cells(1, 1) <> "" Then

#010                  .Value = Target.Cells(1, 1).Value

#011              Else

#012                  .Value = Date

#013              End If

#014          Else

#015              .Visible = False

#016          End If

#017      End With

#018  End Sub

#019  Private Sub DTPicker1_CloseUp()

#020      ActiveCell.Value = Me.DTPicker1.Value

#021      Me.DTPicker1.Visible = False

#022  End Sub

#023  Private Sub Worksheet_Change(ByVal Target As Range)

#024      If Target.Count = 1 And Target.Column = 2 Or Target.MergeCells Then

#025          If Target.Cells(1, 1).Value = "" Then

#026              DTPicker1.Visible = False

#027          End If

#028      End If

#029  End Sub

代码解析：

第1行到第18行代码工作表的SelectionChange事件，当选择工作表的B列第2行以下的单个单元格时显示日期控件供用户选择日期。

其中第3行代码设置显示日期控件的触发条件。只有当用户选择B列第2行以下单元格且只能选择单个单元格时才显示日期控件，因为本例B列中存在合并单元格，所以需要加上Or Target.MergeCells这个条件，否则单击合并单元格不显示日期控件。

第4行到第8行代码显示日期控件并设置日期控件的大小等于所选单元格的大小。

第9行到第13行代码，如果单元格已经输入了日期，将单元格中的日期赋给日期控件，否则将当前日期赋给日期控件。因为本例B列中存在合并单元格，而合并区域的值在该区域左上角的单元格中指定，所以用Target.Cells(1, 1) 指定合并单元格的值，否则代码会出错。

第15行代码如果选择的是其他列则隐藏日期控件。

第19行到第22行代码日期控件的CloseUp事件，将日期控件的值赋给活动单元格后隐藏日期控件。

第23行到第29行代码工作表的Change事件，如果删除了B列单元格的日期则隐藏日期控件。

实际应用时请将前面像这样“#029”的行号去掉。

因为你没有实例，所以给个参考你东西你。如果有问题可以Hi我

打开excel表格，选中需要输入日期的单元格

点击鼠标右键，在d出的选项中点击“设置单元格格式”选项。

即可d出“设置单元格格式”对话框，选择“日期”并将类型选择为“*2012/3/14”或者其他格式。

点击确定后，在选中的单元格中输入日期。

即可正常显示为日期格式。

---