Excel excel2010怎么在几列中加入日期选择器

Question

如题所述

Answer 1

1、在某一单元格中插入日历控件
（1）选中要插入日历控件的单元格，设置单元格格式为日期型；
（2）点击工具栏，“插入—对象—日历控件”，
（3）用快捷方式alt+f11，双击插入控件的工作表名称，粘贴下面的代码，用来实现单击a1时弹出日历控件，单击日历控件后，将选中的日期值填入a1并隐藏控件。
private
sub
calendar1_click()
activecell
=
calendar1
calendar1.visible
=
false
[a2].select
end
sub
private
sub
worksheet_selectionchange(byval
target
as
range)
if
target.address
=
"$a$1"
then
calendar1.visible
=
true
end
sub

Answer 2

当前日期
选取一个zd单元格，并按“Ctrl+;”
当前时间
选取一个单元格，并按“版Ctrl+Shift+;”
当前日期和时间选取一个单元格，并按“Ctrl+;”，然后按空格键，最后按“Ctrl+Shift+;”
注意:当你使用权这个技巧插入日期和时间时，所插入的信息是静态的。要想自动更新信息，你必须使用TODAY和NOW函数。

Answer 3

1、在某一单元格中插百入日历控件
（1）选中要插入日历控件的单元格度，设置单元格格式为日期型；
（2）点击工具栏，“插问入—对象—日历控件”，
（3）用快捷答方式Alt+F11，双击插入控件的工作表名称，粘贴下面的代码，用来实专现单击A1时弹出日历控属件，单击日历控件后，将选中的日期值填入A1并隐藏控件。
Private
Sub
Calendar1_Click()
ActiveCell
=
Calendar1
Calendar1.Visible
=
False
[a2].Select
End
Sub
Private
Sub
Worksheet_SelectionChange(ByVal
Target
As
Range)
If
Target.Address
=
"$A$1"
Then
Calendar1.Visible
=
True
End
Sub