插入日历控件,右击工作表标签粘贴代码,即可实现在指定区域弹出日历控件.
单击日历控件即可将所选日期写入活动单元格
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set t = Application.Intersect(ActiveCell, Range("b2:b10,e2:e10")) '假设需要在b2:b10和e2:e10区域调用日历控件
If t Is Nothing Then '如果不在这个区域
Calendar1.Visible = False '隐藏日历控件
Exit Sub '退出程序
Else '否则
With t
Calendar1.Top = .Top '将日历控件与活动单元格顶部对齐
Calendar1.Left = .Left + .Width '日历控件左侧与活动单元格右侧对齐
Calendar1.Today '将日历控件日期置于当前系统日期
Calendar1.Visible = True '显示日历控件
End With
End If
End Sub
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value '单击日历控件时将其中的值写入活动单元格
End Sub
单击日历控件即可将所选日期写入活动单元格
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set t = Application.Intersect(ActiveCell, Range("b2:b10,e2:e10")) '假设需要在b2:b10和e2:e10区域调用日历控件
If t Is Nothing Then '如果不在这个区域
Calendar1.Visible = False '隐藏日历控件
Exit Sub '退出程序
Else '否则
With t
Calendar1.Top = .Top '将日历控件与活动单元格顶部对齐
Calendar1.Left = .Left + .Width '日历控件左侧与活动单元格右侧对齐
Calendar1.Today '将日历控件日期置于当前系统日期
Calendar1.Visible = True '显示日历控件
End With
End If
End Sub
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value '单击日历控件时将其中的值写入活动单元格
End Sub