怎样在excel表格中 插入日历 达到可选日期的效果

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了怎样在excel表格中 插入日历 达到可选日期的效果相关的知识,希望对你有一定的参考价值。

参考技术A 加分告诉你详细教程,包售后,还可以教你Excel做管理系统

前提是你的电脑里有日期控件,没有的话网上找一找,下载安装

选择视图--工具栏--控件工具箱;
单击控件工具箱工具栏上的“其他控件”(小榔头形状);
找到 "Microsoft Date And Time Piker Control 6.0 (SP4)",选中它;
在你所要用到的单元格内画出,大小要和单元格一样;
选中控件,右键单击选择菜单“设置控件格式”,在"属性"选项中选择“大小、位置均随单元格而变”,确定;
右键单击控件选择菜单“查看代码”,进入VBA后,键入以下代码:

Private Sub DTPicker1_Change()
Sheet1.Cells(1, 1) = CStr(DTPicker1)
End Sub

Private Sub DTPicker1_Click()
Sheet1.Cells(1, 1) = CStr(DTPicker1)
End Sub

返回到Excel,调整单元格大小使控件完全显示;

退出设计模式,OK。

Excel中进行插入日期选择器的操作技巧

参考技术A

   Excel 中经常需要使用到日期选择器为用户提供选日期的便捷,插入日期选择器具体该如何操作呢?今天,我就教大家在Excel中进行插入日期选择器的操作技巧。

  Excel中进行插入日期选择器的操作步骤

  在某一单元格中插入日历控件,

  选中要插入日历控件的单元格,设置单元格格式为日期型;

  点击工具栏,“插入—对象—日历控件”,

  用快捷方式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


Excel中进行插入日期选择器的操作步骤图1

  在开发工具栏选择插入-其他控件,打开其他控件选择框。


Excel中进行插入日期选择器的操作步骤2

  在选择框中选择calendar control8.0,确定。


Excel中进行插入日期选择器的操作步骤3

  在适当的位置绘制日历,并将高度和宽度适当调整。这时的日历控件还比较原始,不会点击日期后自动隐藏日历并在单元格内填入日期,这时就需要添加自己的代码。


Excel中进行插入日期选择器的操作步骤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


Excel中进行插入日期选择器的操作步骤5

  关闭代码编辑器,将EXCEL保存为启用宏的工作薄。


Excel中进行插入日期选择器的操作步骤6

  再次打开该工作薄,点击第一列或者第二列,就可以弹出日历选择器,选择日期后,在单元格内会插入日期,日历选择器消失。注意这是在非编辑模式下才可以实现的。


Excel中进行插入日期选择器的操作步骤7

  EXCEL除了这个日历控件外还有一个另一个比较简单的日历选择器Microsoft date and time picker control(SP6)。


Excel中进行插入日期选择器的操作步骤8

  插入该控件后,在非设计模式下即可点击弹出日期选择界面。如下:


Excel中进行插入日期选择器的操作步骤8
  EXCEL中如何控制每列数据的长度并避免重复录入

  1、用数据有效性定义数据长度。

  用鼠标选定你要输入的数据范围,点"数据"->"有效性"->"设置","有效性条件"设成"允许""文本长度""等于""5"(具体条件可根据你的需要改变)。

  还可以定义一些提示信息、出错警告信息和是否打开中文输入法等,定义好后点"确定"。

  2、用条件格式避免重复。

  选定A列,点"格式"->"条件格式",将条件设成“公式=COUNTIF($A:$A,$A1)>1”,点"格式"->"字体"->"颜色",选定红色后点两次"确定"。

以上是关于怎样在excel表格中 插入日历 达到可选日期的效果的主要内容,如果未能解决你的问题,请参考以下文章

Excel中进行插入日期选择器的操作技巧

如何在wps表格中插入日历表

EXCEL表里怎么添加日期选择器

excel里面是不是可以实现这个功能吗?即插入日历,然后通过点击日历上的日期,使得日期自动填入指定单元格

excel的单元格为空 日期型 插入到SQL数据库 为啥会出现默认时间1900-1-2

iphone下拉菜单怎么添加日历显示日期和星期?