VBA 添加日历控件的操作

    近几天需要做一个VBA的宏，以方便在excel中选择格式化后日期，要求添加日历控件，并按照格式化进行输出，由于是第一次接触VBA，因此查询了一些资料，下面对自己所做的过程进行一下总结：

     1、首先新建一个excel文档。

     2、对excel文档添加添加日历控件，具体过程如下图：

插入其他控件中的日历控件，如下图：

添加完后如下图所示：

双击控件即可编写代码，代码如下

Private Sub Calendar1_Click()

　　　ActiveCell = Calendar1.Value
        Calendar1.Visible = False
End Sub

Private Sub app_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 3 Then
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If

End Sub

把上面excel中的设计模式点掉保存以后点击即可满足效果。