返回目录:excel表格制作
在单元格中写入=NOW()
就可
1、在开发工具e69da5e887aae799bee5baa6e79fa5e98193338栏选择插入-其他控件,打开其他控件选择框。
2、在选择框中选择calendar control8.0,确定。
3、在适当的位置绘制日历,并将高度和宽度适当调整。这时的日历控件还比较原始,不会点击日期后自动隐藏日历并在单元格内填入日期,这时就需要添加自己的代码。
4、在设计模式下双击日历。
点击设计模式,当图表颜色变深后就是设计模式,打开代码编辑器。
在光标处输入下方的代码:
ActiveCell = Calendar1.Value Me.Calendar1.Visible = FalseEnd Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Or Target.Column = 2 Then
'此处的1和2为你要显示日历的列序号
Me.Calendar1.Left = Target.Left Me.Calendar1.Top = Target.To If Target.Value <> "" Then Me.Calendar1.Value = Target.Value Else Me.Calendar1.Value = Now( End I Me.Calendar1.Visible = TruElse Me.Calendar1.Visible = FalseEnd If
5、关闭代码编辑器,将EXCEL保存为启用宏的工作薄。
6、再次打开该工作薄,点击第一列或者第二列,就可以弹出日历选择器,选择日期后,在单元格内会插入日期,日历选择器消失。注意这是在非编辑模式下才可以实现的。
7、EXCEL除了这个日历控件外还有一个另一个比较简单的日历选择器Microsoft date and time picker control(SP6)。
8、插入该控件后,在非设计模式下即可点击弹出日期选择界面。如下:
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
具体步骤如下所示:
1、打开电脑zd,进入Excel这个软件中,选择上面的菜单栏中的开发工具,在下方选择插入,选择红色选项。
2、点击上内方的图标之后,就会看到以下画面,在这里选择容红色选项。
3、点击上面的选项之后,日期就已经插入了,可以选择日期。