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中的設計模式點掉保存以后點擊即可滿足效果。