例1、 Private Sub Calendar1_Click() ActiveCell = Calendar1'给当前活动的单元格赋以日历日期，相当于初始化 Calendar1.Visible = False'单击日历控件时候，隐藏日历控件 [a2].Select'A2单元格被激活，目的是转移$A$1到其他单元格让触发更灵敏 End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then Calendar1.Visible = True'把单元格地址作为事件发生的参数，引用单元格的Address属性。 End Sub 例如，单元格被选中之后跳出日历控件： 如何把日历控件选中的日期填到单元格呢，比如填到C1单元格？ Cells(1, 3) = Calendar1.Value，把这段代码加到过程中就可以了，但是呢，激活的控件始终是可见的，我们在设置click事件里面设置Calendar1.visible=false 这样单击控件后日期填如到C1后，Calendar1被隐藏。 总结一下：单元格被选中，Calendar1控件被激活，执行Click，单元格C1被赋值，Calendar1被隐藏。 本文来源：https://www.wddqw.com/doc/c4fa8dc2bb4cf7ec4afed0ca.html