好用的日历窗体

cpin · 发表于 2022-10-25 21:20

在论坛上下载的日历窗体，感觉很好用，特此分享，向原老师作者致敬！

ykcbf1100 · 发表于 2022-10-26 08:55

谢谢分享。

aecn · 发表于 2022-10-26 09:16

不错，感谢分享

zyhui1961 · 发表于 2022-10-26 11:53

怎么做出来的，分享一下过程。谢谢！

YANWEI82123300 · 发表于 2022-10-26 13:00

不错，感谢分享

少如 · 发表于 2022-10-26 13:20

各位老师：我想在Sheet3工作表的B3单元格、D4:D5三个单元格
使用本表的日历窗体录入，请老师给写一下代码(VBA)。谢谢！
请见附件：

好用的日历窗体.zip (38.64 KB, 下载次数: 43)

yzyyyyyyy · 发表于 2022-10-26 14:20

学习一下，sheet3工作表中插入

Option Explicit '强制对模块内所有变量进行声明
Option Base 1 '指定数组的第一个下标为1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
Application.ScreenUpdating = False '关屏屏幕更新功能
Application.DisplayAlerts = False '在程序执行过程中使出现的警告框不显示
On Error GoTo lineend
Dim irow As Long
Dim jcol As Long
Dim boo As Boolean
irow = Target.Row '活动单元格所在的行
jcol = Target.Column '活动单元格所在的列
'B3单元格、D4:D5
[color=Red]boo = ((jcol = 2 And irow = 3) Or (jcol = 4 And irow = 4) Or (jcol = 4 And irow = 5))[/color]
If boo Then
UserFormday.Show
End If
lineend:
End Sub

复制代码

少如 · 发表于 2022-10-26 16:28

yzyyyyyyy 发表于 2022-10-26 14:20
学习一下，sheet3工作表中插入

不行啊。点击出错，请您上一个附件吧。谢谢！

opiona · 发表于 2022-10-26 17:46

少如 · 发表于 2022-10-26 18:56

opiona 发表于 2022-10-26 17:46
加了农历的版本
https://club.excelhome.net/thread-1567645-1-1.html

日历非常好！
【物品编号】筛选时只有《固定资产》可选；《消耗品》不显示，不知该如何修改？
谢谢！

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

[分享] 好用的日历窗体