调用日历控件快速输入当月日期

1.
调用日历控件快速输入当月日期

我们输入数据的时候，往往会要大量输入当月的日期，调用日历控件会非常方便。

假设要在B列输入日期，ALT+F11进入宏编辑，设置代码如下

Private Sub Calendar1_Click()

ActiveCell = Format(Calendar1.Value, "yyyy-mm-dd") '设置日期格式,此工作可以直接通过设置B列单元格格式一次性完成

Calendar1.Visible = False '单击日历控件后隐藏

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Column = 2 Then
'B列为日期输入列

Calendar1.Left = Target.Left + Target.Width '设置日历控件弹出位置

Calendar1.Top = Target.Top + Target.Height '同上

Calendar1.Value = Date '设置默认日期为系统日期

Calendar1.Visible = True '使日历控件可见

Else

Calendar1.Visible = False '单击其他列时隐藏日历控件

End If

End Sub

这样，光标停留在在输入日期的单元格，就会出现一个日期窗体，直接点日期即可选定，免去逐字输入了。

老师，做个工作表例子上来吧，这样看不明，宏不是太熟