在Excel中插入日历控件

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(ByValTarget As Range)

If Target.Address = "$A$1" ThenCalendar1.Visible = True

End Sub

2、某一列全部设置为插入日历控件。

例如;在C列中,无论点击哪个单元格,就弹出日历控件,选择一个日期后,日期自动插入到单元格;除C列之外,点击其他单元格,不会弹出日历选择控件;

同上面(1)(2)步后,选择日历控件,双击鼠标,进入代码编辑模式,选择Worksheet和SelectionChange,输入代码:

Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value

Me.Calendar1.Visible = False

End Sub

Private Sub Worksheet_SelectionChange(ByValTarget As Range)

If Target.Column = 1 Then

Me.Calendar1.Visible = True

Else

Me.Calendar1.Visible = False

End If

End Sub

完成后,运行VBA代码,返回Excel操作窗口,即可实现。

Excel中单元格月历下拉选择实现方法

一、日历控件的使用方法

1、打开excel文件,以对sheet1的操作为例:点中要插入日期的单元格,

工具栏→插入→对象→选 日期空间11.0 →确定。

2、工具栏→工具→宏→Visual Basic 编辑器

在 ‘通用’加入如下代码:

Private Sub Calendar1_Click()

ActiveCell = Format(Calendar1.Value, "yyyy-mm-dd") '设置日期格式,此工作可以直接通过设置某列单元格格式一次性完成

Calendar1.Visible = False '单击日历控件后隐藏之

End Sub

Private Sub Worksheet_SelectionChange(ByValTarget As Range)

IfTarget.Column = 4 Then  'D列为日期输入列

Calendar1.Left = Target.Left + Target.Width '设置日历控件弹出后的位置

Calendar1.Top = Target.Top + Target.Height '同上

Calendar1.Value = Date '设置默认日期为系统日期

Calendar1.Visible = True '使日历控件可见

ElseIf Target.Column = 5 Then   'E列为日期输入列

Calendar1.Left = Target.Left + Target.Width

Calendar1.Top = Target.Top + Target.Height

Calendar1.Value = Date

Calendar1.Visible = True

ElseIfTarget.Column = 6 Then   'F列为日期输入列

Calendar1.Left = Target.Left + Target.Width

Calendar1.Top = Target.Top + Target.Height

Calendar1.Value = Date

Calendar1.Visible = True

Else

Calendar1.Visible = False '单击其他列时隐藏日历控件

End If

End Sub

保存。

3、设计好后,还可以对日期列进行“设置单元格格式”

4、不足之处

a、要实用该宏,首先要在EXCEL→工具→宏→安全性→选中(在打开文件的时候允许宏)或低,才可以使用该日期控件;

b、在使用宏控件的时候,excel中鼠标右键的粘贴功能将失效,需要借助 EXCEL→编辑→office剪贴板的功能才能完成单元格复制粘贴的功能;

c、也可以在打开文件的时候禁用宏,这样就可以正常使用粘贴功能了。

Excel 2007中日历控件使用(文字)相关推荐

  1. Excel 2007中日历控件使用

    今天做Excel表格的时候,在表格中需要嵌入日历丰富表格的内容.结合网上找到的一些方法,把具体实现步骤整理了一下,加上一些我自己使用到的VB代码,自己留个脚印,以后也会用得上.本文档指导在Excel ...

  2. Excel 2010 安装日历控件 注册

    第一步:先安装日历控件 从别的电脑拷贝:路径如下 C:\Program Files\Microsoft Office\OFFICE11\MSCAL.OCX 或者C:\Program Files\Mic ...

  3. Office2010,PPT,EXCEL如何插入日历控件

    1 在Office2010中插入其他控件,然后找到日历控件 2 十字架随便在Excel中绘制一下,得到一个日历控件,注意此时还是在设计模式下,在设计模式下日历控件不是正常状态,你还是可以双击这个控件进 ...

  4. EXCEL :添加日历控件

    1.在EXCEL中进入VBA状态,有如下几种方法: 1)工具->宏->Visual Basic编辑器 2)Alt + F11 3)在工作表标签处点击右键,选择查看代码 4)窗口->工 ...

  5. AJAX中日历控件的应用

    阅读全文并下载:http://www.cckan.net/forum.php?mod=viewthread&tid=44 <%@ Page Code Language="C#& ...

  6. WPF 4 日历控件(Calendar)

    WPF 4 日历控件(Calendar) 原文:WPF 4 日历控件(Calendar) 在之前我已经写过两篇关于WPF 4 任务栏(Taskbar)相关的特性.相信自从VS2010 Beta 版放出 ...

  7. wpf 日期选择对话窗_WPF 4 日历控件(Calendar)

    在之前我已经写过两篇关于WPF 4 任务栏(Taskbar)相关的特性.相信自从VS2010 Beta 版放出后,WPF 的粉丝们肯定在第一时间了解了WPF 4 的一些新控件及新功能.赶在明天Visu ...

  8. excel日历弄到html,Excel中进行添加日历控件的两种方法

    有时我们在运用Excel表格的时候会运用到日历的控件,可是小伙伴们却不知道在哪里添加.那么我们来看一下,它到底躲藏在哪里,又该怎么添加呢?今天,学习啦小编就教大家在Excel中进行添加日历控件的两种方 ...

  9. excel日历弄到html,如何在Excel中利用日历控件来快速输入日期

    给大家分享了一个利用日历控件在Excel单元格中输入日期的小窍门.大家知道,物流和会计行业的报表,经常需要手工输入一些日期,例如发货日期,在途时间.到达配送中心日期.签收日期等,如果手工输入,难免出错 ...

最新文章

  1. 4个步骤成功构建出一个机器学习团队
  2. 性能指标:QPS、TPS、RT、吞吐量
  3. docker 部署 tomcat 服务
  4. LeetCode算法系列_0862_和至少为K的最短子数组
  5. 无责任畅想:云原生中间件的下一站
  6. 交换机怎么使用vtp
  7. python获取视频帧的时间_Python提取视频中图片的示例(按帧、按秒)
  8. C++中的数组array和vector,lambda表达式,C字符串加操作,C++中新类型数组(数组缓存),多元数组,new缓冲
  9. 基于深度学习的植物病害表征新视角
  10. 【2021牛客暑期多校训练营5】K King of Range(单调队列)
  11. 输出矩阵的左下半三角
  12. 计算机编程的计算法,计算方法
  13. 爱奇艺开源的高性能网络安全监控引擎
  14. 学计算机的看图写话,小老鼠上网看图写话
  15. c语言中变量要加引号吗,CMake中引号用法总结
  16. 用计算机怎么管理小米路由器,小米路由器3G怎么设置?(电脑)
  17. 从0到1搭建一款Vue可配置视频播放器组件(Npm已发布)
  18. 社交红利的诞生与初期创业
  19. 部署Kubernetes集群+Dashboard可视化页面-1.18.6版本
  20. 如何在eclipse中安装Jess

热门文章

  1. Java计算机毕业设计党员信息管理源码+系统+数据库+lw文档
  2. php后台提权,基于ThinkPHP的2个CMS后台GetShell利用
  3. 在word中插入mathtype公式,导致行间距变大无法调整的问题
  4. 网站搭建一------windows+iis+asp+access
  5. 2007网络营销四大关键词:网络视频、自我营销、移动沟通和协同营销
  6. 如何用js给老婆每天发情话?
  7. java计算机毕业设计web考试资料交易系统设计与实现源码+mysql数据库+系统+lw文档+部署
  8. “奔奔族”理财:献给七八十年代生人
  9. Win7+VS2010编译WebKit总结
  10. 魅族打开Android彩蛋,魅族Flyme Android 10内测版开启90Hz彩蛋