Excel日歷控件實現下拉選取日期含VB代碼實現

以下是Excel2016通過安裝控件，實現表格下拉選擇日期的一些步驟：

知識准備工作：先了解下如何安裝控件，這一部分很重要，excel選擇可用宏
https://jingyan.baidu.com/article/6181c3e0ad4144152ef1533f.html

如果沒有日歷控件：Microsoft Date and Time Picker Control（SP6）

先下載MSCOMCT2

鏈接：https://pan.baidu.com/s/1CGV1MBJyBjlqTd7_QFXHqQ
提取碼：mv6z

管理員運行cmd，已將解壓內容（內容中有操作文檔）置於該目錄下 C：\ WINDOWS \ SYSWOW64
執行 regsvr32 mscomctl.ocx

32位在 C：\ WINDOWS \system32下執行

其他問題解決：

安裝之后發現郵件控件郵件無法獲取屬性，出現錯誤等可下載如下文件，並直接執行，關閉excel后可再使用

鏈接：https://pan.baidu.com/s/1wz-0xax9EBax5iEm4ZvsOA
提取碼：xu45

如下是VB代碼實現

Option Explicit
Private Sub DTPicker1_Change()
ActiveCell.Value = DTPicker1.Value
DTPicker1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Me.DTPicker1
If Target.Column >= 3 And Target.Column <= 4 And Target.Row >= 3 And Target.Count = 1 Then    '確定作用范圍，行和列 ADD BY xiexinxinclimb 20180930
.Value = Date   '默認值獲取當前日期
.Visible = True
.Width = Target.Width + 15
.Left = Target.Left
.Top = Target.Top
.Height = Target.Height
Else
.Visible = False
End If
End With
End Sub　

如有幫助請點推薦！