excel下拉日期选择框，如下图

Posted 2023-05-06

tags:

篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了excel下拉日期选择框，如下图相关的知识，希望对你有一定的参考价值。

怎么样在excel表格中的某一列一点就可以显示这个日历选择框。

1、思路是用3个单元格同时设置，分别用3个单元格分别设置年，月，日。

2、首先对“年”的单元格设置年份时间，可以根据需要设置，本例设置为2014~2018。

3、其次设置月份的数据，同上，将数据设置成1~12，这里只能设置成这12个数据。

4、最后就是设置日期了时间了，数据最多只需要从1~31。

5、最后展示效果图。

参考技术A

如果果是在工作表中引用，步骤如下：

先把设计模式打开

然后：控件工具箱 ---- 其他控件 ---- 选择Calendar Control---确定。

再把代码复制到你对应的表格中去

Private Sub Calendar1_Click()
    With Calendar1
        ActiveCell = .Value
        .Visible = False

    End With
End Sub
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Calendar1
        If Target.Column = 3 Then
            .Top = Target.Offset(0, 1).Top
            .Left = Target.Offset(0, 1).Left
            .Visible = True
        Else
            .Visible = False
        End If
    End With
End Sub

具体看附件吧

追问

找不到Calendar Control这个控件

追答

找不到的话，需要自己安装的，下载一个就好了，百度搜一下这个控件。

参考技术B

打开一个EXCEL工作簿，进入一个工作表中，按“视图－工具栏－控件工具箱”，会调出控件工具箱。
用鼠标点击工具箱中的“其他控件”按钮，会出现下面窗口，用滚动条向下拉动它，从中找到“日历控件11.0”，用鼠标选择它。(控件后面的版本号可能不同）
用鼠标选中它后，鼠标指针会变成一个十字形光标，然后在EXCEL窗口中按住鼠标左键拖出一个大小适中的“日历控件”。
如果你的电脑中找不到此控件，可从其他电脑上的 c:\\windwos\\system32\\mscal.ocx 位置拷贝mscal.ocx到你电脑上的相同位置粘贴。也可以从网上下载这个mscal.ocx文件。
如果电脑中存在mscal.ocx文件，而不能正常使用日历控件，就需要在系统的【开始】－【运行】中输入 regsvr32 mscal.OCX 进行注册。

点击任意一点出现日历控件的代码是：

Private Sub Calendar1_Click()
ActiveCell = Calendar1'给当前活动的单元格赋以日历日期，相当于初始化 Calendar1.Visible = False'单击日历控件时候，隐藏日历控件
[a2].Select'A2单元格被激活，目的是转移$A$1到其他单元格让触发更灵敏 End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then Calendar1.Visible = True'把单元格地址作为事件发生的参数，引用单元格的Address属性。
End Sub

追问

我用的是office07版本的，控件是不是不一样？

追答

您好，日历控件，在office2007中通用。