excel中如何设置下拉选择日期

Posted 2023-04-25

参考技术A 打开文件表格之后，比如选择需要"设置下拉的"单元格之后，在数据里面有个数据有效性选项之后，设置中“允许”，选择“序列”，选中“提供下拉箭头”，来源中输入需要选择的内容，比如2020-1-3,2020-2-5内容与内容之间用英文逗号分隔，单击“确定”。就可以了！如果还有问题不明白，请留言追加询问，谢谢！我会尽快回复！

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　

如有帮助请点推荐！