? ? 近幾天需要做一個(gè)VBA的宏，以方便在excel中選擇格式化后日期，要求添加日歷控件，并按照格式化進(jìn)行輸出，由于是第一次接觸VBA，因此查詢了一些資料，下面對(duì)自己所做的過程進(jìn)行一下總結(jié)：

? ? ?1、首先新建一個(gè)excel文檔。

? ? ?2、對(duì)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中的設(shè)計(jì)模式點(diǎn)掉保存以后點(diǎn)擊即可滿足效果。

轉(zhuǎn)載于:https://www.cnblogs.com/mlj001/p/4509912.html

總結(jié)

以上是生活随笔為你收集整理的VBA 添加日历控件的操作的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。