在 Excel 2003 中,是否可以从下拉日历的单元格中输入日期,而不是手动输入?
答案1
是否可以从下拉日历的单元格中输入日期?
对于 Excel 2003,请使用以下内容。
在 Excel 2003 中添加日历下拉框
插入 > 对象,向下滚动并单击“Microsoft Calendar Control”。
右键单击工作表选项卡并查看代码。
粘贴以下代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub 'Change this to your range of dates If Not Intersect(Target, Range("A1:A100")) Is Nothing Then Calendar1.Top = Target.Top + Target.Height Calendar1.Left = Target.Left + Target.Width / 2 - Calendar1.Width / 2 Calendar1.Visible = True Calendar1.Value = Now ElseIf Calendar1.Visible Then Calendar1.Visible = False End If End Sub Private Sub Calendar1_Click() ActiveCell.Value = (Calendar1.Value) ActiveCell.NumberFormat = "dd mmm yy" End Sub
请注意,代码中的日期范围设置为 A1:A100,保留语法并进行更改以适应。
关闭 VB 编辑器。
退出设计模式。
当您单击 a1:A100 时,您将获得一个默认为今天日期的日历。
单击某个日期,该日期就会输入到活动单元格中。
答案2
有方法数:
添加带有下拉日历的表单字段可以更舒适,但适合手动进行的有限细胞计数。
- 使能够开发人员Excel 中的选项卡
- 选择“插入”>“其他”(右下角图标)>“Microsoft 日期和时间选择器控件 6.0”
- 将控件放在工作表上
- 使用开发人员选项卡,显示控件的属性表
- 放链接单元格财产到你的细胞
- 使用开发人员标签,关闭设计模式
添加通用日期/时间下拉选择器使用起来可能稍微不太直观,但不需要对日期单元格进行任何进一步的特殊处理
- 你可以得到那个插件(嗯,对于excel-2003您需要找到类似的东西)或创建具有类似功能的自己的(需要软件开发经验)。方法是通过 Excel 插件。