office 2016没有日历控件，DIY 日历窗体

aideng0507 · 发表于 2019-11-9 08:45

我这个版本的office没有日历控件，而且公司电脑没有放权限，不能下mscomct2.ocx，所以自制了一个日历窗体。
想实现在点击“录入信息”按钮后弹出的窗体（userform1）的textbox1出现日历窗体（calendar），选择任意一个日期，会直接赋值到textbox1内，然后calendar关闭，求助各位老师帮忙看看怎么弄，想了好久，试过把calendar调用出来，但是无法做到选择的日期赋值到textbox1内

aideng0507 · 发表于 2019-11-9 16:47

本帖最后由 aideng0507 于 2019-11-10 17:35 编辑

别沉下去了，帮帮忙啊！有没有高手来指导一下，太难了

补充内容 (2019-11-11 20:20):
顶起来啊，来个高手帮帮我

aideng0507 · 发表于 2019-11-12 08:56

有没有老师啊，帮忙看一下呗，困扰我好久了，搞不定

lss001 · 发表于 2019-11-12 16:53

本帖最后由 lss001 于 2019-11-13 15:07 编辑

~\(≧▽≦)/~~\(≧▽≦)/~

aideng0507 · 发表于 2019-11-12 18:56

lss001 发表于 2019-11-12 16:53
首先把宏1代码改为→

Sub 宏1()

非常感谢

，但是没有实现我的需求

按照你说的，可以把日历窗体和录入信息窗体同时显示出来，但是在日历上选择的日期并不能输出到textbox1内，我的需求是想首先弹出录入信息窗体，然后点击textbox1 的时候弹出日历窗体（最好在录入信息窗体右边），任意选日历窗体上的日期，可以自动输出在textbox1内并且日历窗体关闭。

lss001 · 发表于 2019-11-12 19:42

本帖最后由 lss001 于 2019-11-13 08:56 编辑

~\(≧▽≦)/~~\(≧▽≦)/~

aideng0507 · 发表于 2019-11-12 22:15

lss001 发表于 2019-11-12 19:42
请自行加入单击事件！！！

嗯，我在textbox1加了单击事件，可以双击textbox1弹出日历窗体，但是有两个问题啊
1、日历窗体在录入窗体的底部，怎么让它在右边？
2、日历窗体，我不管选择什么日期，在textbox1内显示的都是2019-12-11？

lss001 · 发表于 2019-11-12 22:28

本帖最后由 lss001 于 2019-11-13 08:56 编辑

~\(≧▽≦)/~~\(≧▽≦)/~

aideng0507 · 发表于 2019-11-13 00:32

lss001 发表于 2019-11-12 22:28
日历窗体中各个日期也需要加入单击事件，单击事件中应加入退出以及赋值！！！

退出是calendar.hide
赋值是userform.textbox1.value=calendar.value
这两步对吗？
然后在日历窗体各个日期加入单击事件，这个不理解

lss001 · 发表于 2019-11-13 09:00

本帖最后由 lss001 于 2019-11-13 20:08 编辑

~\(≧▽≦)/~~\(≧▽≦)/~

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

[求助] office 2016没有日历控件，DIY 日历窗体