zipall吧 关注:155贴子:7,036
  • 1回复贴,共1

日历控件用法示例

取消只看楼主收藏回复

插入日历控件,右击工作表标签粘贴代码,即可实现在指定区域弹出日历控件.
单击日历控件即可将所选日期写入活动单元格






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


回复
1楼2015-06-11 09:35
    图片不动的话请单击.


    收起回复
    2楼2015-06-11 09:36