DTP控件+跟随鼠标，VBA让你的日期录入变成日期选择
lipiwang 2024-11-07 12:47 5 浏览 0 评论
大家好，我们今日继续讲解VBA代码解决方案的第100讲内容：使用DTP控件输入日期。我们在录入数据的时候经常会用到日期的录入，往往会很繁琐，有没有好的办法实现日期的录入呢？今日就给大家讲解这方面的知识。和大家分享VBA的知识已经很长的时间了，到这里已经是第三本书了。待有一定的机会会出书，让大家看到一个实实在在的VBA，今日的讲解用到的控件是DTP控件，是日期时间控件Microsoft Date and Time Picker Control 6.0，的简称。
在工作表中单击菜单"开发工具"→"插入"→"控件工具箱"，选择"其他控件"中的DTP控件如下图所示，就可以在工作表中添加一个DTP控件。
在设计模式下双击DTP控件写入下面的代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Me.DTPicker21
If Target.Count = 1 And Target.Column = 2 And (Not Target.Row = 1) Or Target.MergeCells Then
.Visible = True
.Top = Selection.Top
.Left = Selection.Left
.Height = Selection.Height
.Width = Selection.Width
If Target.Cells(1, 1) <> "" Then
.Value = Target.Cells(1, 1).Value
Else
.Value = Date
End If
Else
.Visible = False
End If
End With
End Sub
Private Sub DTPicker21_CloseUp()
ActiveCell.Value = Me.DTPicker21.Value
Me.DTPicker21.Visible = False
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 2 Or Target.MergeCells Then
If Target.Cells(1, 1).Value = "" Then
DTPicker21.Visible = False
End If
End If
End Sub
代码截图：
代码解析：
第1行到第18行代码工作表的SelectionChange事件，当选择工作表的B列第2行以下的单个单元格时显示日期控件供用户选择日期。
其中第3行代码设置显示日期控件的触发条件。只有当用户选择B列第2行以下单元格且只能选择单个单元格时才显示日期控件，Or Target.MergeCells这个条件是指合并单元格。
第4行到第8行代码显示日期控件并设置日期控件的大小等于所选单元格的大小。
第9行到第13行代码，如果单元格已经输入了日期，将单元格中的日期赋给日期控件，否则将当前日期赋给日期控件。
第15行代码如果选择的是其他列则隐藏日期控件。
第19行到第22行代码日期控件的CloseUp事件，将日期控件的值赋给活动单元格后隐藏日期控件。
第23行到第29行代码工作表的Change事件，如果删除了B列单元格的日期则隐藏日期控件。
代码的运行：
选择后的工作表：
今日内容回向：
1 本例的控件是什么？
2 本例的控件是如何添加的？
3 日期代码的录入是否能清楚了？
相关推荐
- linux实例之设置时区的方式有哪些
-
linux系统下的时间管理是一个复杂但精细的功能，而时区又是时间管理非常重要的一个辅助功能。时区解决了本地时间和UTC时间的差异，从而确保了linux系统下时间戳和时间的准确性和一致性。比如文件的时间...
- Linux set命令用法（linux cp命令的用法）
-
Linux中的set命令用于设置或显示系统环境变量。1.设置环境变量：-setVAR=value：设置环境变量VAR的值为value。-exportVAR：将已设置的环境变量VAR导出，使其...
- python环境怎么搭建?小白看完就会!简简单单
-
很多小伙伴安装了python不会搭建环境，看完这个你就会了Python可应用于多平台包括Linux和MacOSX。你可以通过终端窗口输入"python"命令来查看本地是否...
- Linux环境下如何设置多个交叉编译工具链?
-
常见的Linux操作系统都可以通过包管理器安装交叉编译工具链，比如Ubuntu环境下使用如下命令安装gcc交叉编译器：sudoapt-getinstallgcc-arm-linux-gnueab...
- JMeter环境变量配置技巧与注意事项
-
通过给JMeter配置环境变量，可以快捷的打开JMeter：打开终端。执行jmeter。配置环境变量的方法如下。Mac和Linux系统在~/.bashrc中加如下内容：export...
- C/C++|头文件、源文件分开写的源起及作用
-
1C/C++编译模式通常，在一个C++程序中，只包含两类文件——.cpp文件和.h文件。其中，.cpp文件被称作C++源文件，里面放的都是C++的源代码；而.h文件则被称...
- linux中内部变量，环境变量，用户变量的区别
-
unixshell的变量分类在Shell中有三种变量：内部变量,环境变量,用户变量。内部变量：系统提供，不用定义，不能修改环境变量：系统提供，不用定义，可以修改,可以利用export将用户变量转为环...
- 在Linux中输入一行命令后究竟发生了什么?
-
Linux，这个开源的操作系统巨人，以其强大的命令行界面而闻名。无论你是初学者还是经验丰富的系统管理员，理解在Linux终端输入一条命令并按下回车后发生的事情，都是掌握Linux核心的关键。从表面上看...
- Nodejs安装、配置与快速入门（node. js安装）
-
Nodejs是现代JavaScript语言产生革命性变化的一个主要框架，它使得JavaScript从一门浏览器语言成为可以在服务器端运行、开发各种各样应用的通用语言。在不同的平台下，Nodejs的安装...
- Ollama使用指南【超全版】（olaplex使用方法图解）
-
一、Ollama快速入门Ollama是一个用于在本地运行大型语言模型的工具，下面将介绍如何在不同操作系统上安装和使用Ollama。官网：https://ollama.comGithub：http...
- linux移植（linux移植lvgl）
-
1uboot移植l移植linux之前需要先移植一个bootlader代码，主要用于启动linux内核，lLinux系统包括u-boot、内核、根文件系统（rootfs）l引导程序的主要作用将...
- Linux日常小技巧参数优化（linux参数调优）
-
Linux系统参数优化可以让系统更加稳定、高效、安全，提高系统的性能和使用体验。下面列出一些常见的Linux系统参数优化示例，包括修改默认配置、网络等多方面。1.修改默认配置1.1修改默认编辑器默...
- Linux系统编程—条件变量（linux 条件变量开销）
-
条件变量是用来等待线程而不是上锁的，条件变量通常和互斥锁一起使用。条件变量之所以要和互斥锁一起使用，主要是因为互斥锁的一个明显的特点就是它只有两种状态：锁定和非锁定，而条件变量可以通过允许线程阻塞和等...
- 面试题-Linux系统优化进阶学习（linux系统的优化）
-
一.基础必备优化:1.关闭SElinux2.FirewalldCenetOS7Iptables(C6)安全组(阿里云)3.网络管理服务||NetworkManager|network...
- 嵌入式Linux开发教程:Linux Shell
-
本章重点介绍Linux的常用操作和命令。在介绍命令之前，先对Linux的Shell进行了简单介绍，然后按照大多数用户的使用习惯，对各种操作和相关命令进行了分类介绍。对相关命令的介绍都力求通俗易懂，都给...
欢迎 你 发表评论:
- 一周热门
- 最近发表
- 标签列表
-
- maven镜像 (69)
- undefined reference to (60)
- zip格式 (63)
- oracle over (62)
- date_format函数用法 (67)
- 在线代理服务器 (60)
- shell 字符串比较 (74)
- x509证书 (61)
- localhost (65)
- java.awt.headless (66)
- syn_sent (64)
- settings.xml (59)
- 弹出窗口 (56)
- applicationcontextaware (72)
- my.cnf (73)
- httpsession (62)
- pkcs7 (62)
- session cookie (63)
- java 生成uuid (58)
- could not initialize class (58)
- beanpropertyrowmapper (58)
- word空格下划线不显示 (73)
- jar文件 (60)
- jsp内置对象 (58)
- makefile编写规则 (58)