Excel日期输入选择器

    日期在Excel中录入的频率非常高。而且日期的录入其实也是非常讲究的。我们会见到各种各样的日期格式，而且这些格式有的是正确的格式，而有些却是伪日期。

    下面的示例是通过日期选择器来选择日期。下拉年月，点击日期即可录入日期，速度还是很快的。

    注：这里需要引用 Microsoft Calendar control 

作者：小林子-Office中国

Excel日期输入操作动画

 Excel日期录入详细VBA代码：               

        Private Sub Calendar1_Click()

            ActiveCell.Value = Calendar1.Value

        End Sub

        Private Sub Worksheet_SelectionChange(ByVal Target As Range)

            If Target.Column = 1 Then

                Calendar1.Visible = True

                Calendar1.Top = Target.Top

                Calendar1.Left = Target.Offset(0, 1).Left

            Else

                Calendar1.Visible = False

            End If

        End Sub