以下是Excel通过安装控件,实现表格下拉选择日期的一些步骤:
知识准备工作:先了解下如何安装控件,这一部分很重要,excel选择可用宏
/article/6181c3e0ad4144152ef1533f.html
如果没有日历控件:MicrosoftDate and Time Picker Control(SP6)
先下载MSCOMCT2
链接:/s/1CGV1MBJyBjlqTd7_QFXHqQ
提取码:mv6z
管理员运行cmd,已将解压内容(内容中有操作文档)置于该目录下 C:\ WINDOWS \ SYSWOW64
执行 regsvr32 mscomctl.ocx
32位在C:\ WINDOWS \system32下执行
其他问题解决:
安装之后发现邮件控件邮件无法获取属性,出现错误等可下载如下文件,并直接执行,关闭excel后可再使用
链接:/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 0930.Value = Date '默认值获取当前日期.Visible = True.Width = Target.Width + 15.Left = Target.Left.Top = Target.Top.Height = Target.HeightElse.Visible = FalseEnd IfEnd WithEnd Sub
如有帮助请点推荐!