返回目录:设置问题
需要用VBA,以Excel2007为例,方法如下;
1、打开Excel,点击“开发工具”选项卡,在“控件”组别,找到e799bee5baa6e997aee7ad94e78988e69d83362并点击“插入”,在下拉列表中,点选右下角的“其它控件”,如下图:
2、在弹出的“其他控件”对话框,拖动滚动条到下方,鼠标左键选择“日历控件12.0”,点击“确定”
3、回到工作表,用鼠标左键拖动出来一个日历控件,调整大小和位置,如下图:
4、鼠标左键在“日历控件”上双击,调出VBA编辑器,把下面这段代码复制粘贴到里面
Private Sub Calendar1_Click()
ActiveCell = Format(Calendar1.Value, "yyyy-mm-dd")
Me.Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Row > 1 Then
With Me.Calendar1
.Visible = True
.Top = Target.Top + Target.Height
.Left = Target.Left + Target.Width
.Value = Date
End With
Else
Me.Calendar1.Visible = False
End If
Else
Me.Calendar1.Visible = False
End If
End Sub
其中“ If Target.Column = 1 Then
If Target.Row > 1 Then“为点击第一列即A列除第一行外弹出日历控件,可根据需要进行更改,然后关闭VBA代码编辑器回到工作表
5、鼠标左键点击A2即弹出”日历控件“,根据需要在”控件“上点击要输入的日期即可
准备工具/材料:装有windows 10的电脑一zd台,Microsoft Office 家庭和学生版 2006 excel软件。
1、首先打开一个空白excel表单。
2、然后单击工具栏中的公式回,然后单击插入函数。
3、然后在弹出式单元格中选择“今天”功能,然后点按“好”。
4、可以看出,今天的日期已经出现在单元格中,并且该功能将随着计算机日期的改变而改变,实时答显示当天的日期。
可用数据有效性实现。
步骤:
选定单元格,点菜单“数据”——“有效性”,点“设置”标签,在“允许”中选择“序列”,在“来源”中输入日期存放区域,确定。
插入控百件Calendar
Private Sub Calendar2_Click()
Range("C3") = Calendar2.Value '点击度c3单元格问显答示日历控件回的值答
Calendar2.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$3" Then
Calendar2.Visible = True
Else
Calendar2.Visible = False
End If
End Sub