自制仿Win7日期窗口的日期选择器

xubo_eddy · 发表于 2021-2-24 22:05

mzbao 发表于 2021-2-21 21:49
你的这些问题和这个日期选择器关系不大，只要改一下Sheet里的Worksheet_SelectionChange()事件里的条件就 ...

谢谢回复。
我是说，打比方，如果我要A列，D列，F列，分别三列单独的列，如何实现窗口选择器，怎么写代码。

mzbao · 发表于 2021-2-24 22:07

dengxsh 发表于 2021-2-24 19:24
您好！请教：能否将文本框控件的中日期格式自定义为“yyyy年mm月dd日”？

或者：
你把FrmDateCL窗体里的DateOuput过程中的：
DP_inCtl.Text = ArgDate
改成
DP_inCtl.Text = Format(ArgDate, "yyyy年mm月dd日")

mzbao · 发表于 2021-2-24 22:10

xubo_eddy 发表于 2021-2-24 22:05
谢谢回复。
我是说，打比方，如果我要A列，D列，F列，分别三列单独的列，如何实现窗口选择器，怎么写代 ...

把Worksheet_SelectionChange事件里的条件改成：
If Target.Column = 1 Or Target.Column = 4 Or Target.Column = 6 Then

xubo_eddy · 发表于 2021-2-24 23:06

mzbao 发表于 2021-2-24 22:10
把Worksheet_SelectionChange事件里的条件改成：
If Target.Column = 1 Or Target.Column = 4 Or Target ...

非常感谢指导，学习了。

xubo_eddy · 发表于 2021-2-25 21:29

版主，麻烦确认下，这个语法哪里错了，迷糊了，谢谢。

mzbao · 发表于 2021-2-26 13:28

本帖最后由 mzbao 于 2021-2-26 13:29 编辑

xubo_eddy 发表于 2021-2-25 21:29
版主，麻烦确认下，这个语法哪里错了，迷糊了，谢谢。

你得把1楼附件的日期选择器的窗体（FmDateCL）、类模块和模块都复制到你自己的Excel表中啊。

Tommy2333 · 发表于 2021-5-25 10:19

大神，太感谢了！我先试试了！
不胜感激！！！

七夕、 · 发表于 2021-7-12 12:45

谢谢分享,效果非常好
这边使用的时候发现一个小bug
如果表格设置了冻结窗口的话
窗体和选择的单元格的高度有差异
使用环境,win10+M365 32位

f8b1987 · 发表于 2021-7-12 13:58

不错，实用，做成提示框用。可惜类模块我不了解

kawence · 发表于 2021-8-10 11:58

这是什么原因呢？？？谢谢

		自动登录	找回密码
密码			免费注册

[分享] 自制仿Win7日期窗口的日期选择器