Excel日曆控制項實現下拉選取日期含VB代碼實現

標籤：cli   net   window   div   dao   無法   部分   表格   操作   

以下是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 ExplicitPrivate Sub DTPicker1_Change()ActiveCell.Value = DTPicker1.ValueDTPicker1.Visible = FalseEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)With Me.DTPicker1If 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.HeightElse.Visible = FalseEnd IfEnd WithEnd Sub　

如有協助請點推薦！

Excel日曆控制項實現下拉選取日期含VB代碼實現