打开Excel (我的版本是2013),点击 “开发工具”,点击“插入”,插入activeX 控件:monthview控件(可以点击小扳手查询,没有 dtpicker控件了,可能是64位版本的缘故),在表格中画个矩形,双击 monthview控件,输入以下代码:
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
ActiveCell = MonthView1.Value
MonthView1.Visible = False
End Sub
这是MonthView控件的点击事件。
再添加表格事件(selectionchange):
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MonthView1.Visible = False
If ActiveCell.Column = 4 Then '指定在第4栏输入日期,可修改
MonthView1.Left = ActiveCell.Left + ActiveCell.Width + 3 '指定控件位置
MonthView1.Top = ActiveCell.Top + ActiveCell.Height + 3 '指定控件位置
MonthView1.Visible = True
Else
MonthView1.Visible = False
End If
End Sub
保存后即可。
输入
=TODAY()
工具:office excel
步骤:
1、打开office excel,在工具栏空白处右击选择控件工具箱。
2、在选择控件工具箱点击如图位置。
3、选择DTP控件。
4、拖动鼠标产生一个DTP控件。调整控件的大小。
5、退出设计模式。就可以通过鼠标点击选择日期了。
插入日历控件很简单,到开放工具-插入菜单里,下面一组的ActiveX控件最后一个点开后到里面找日历控件,一般在最后一个。
但是插入后,如果要想通过点击来直接输入日期,这个是需要写一段简单的代码的。
软件版本:Office2007
方法如下:
1.插入日历控件后,保持设计模式,右键点击控件,选择属性:
2.在LinkedCell中输入要随着日历控件日期变化的单元格:
3.退出设计模式,点击日历控件日期,单元格相应地变成了点击的日期: