ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 10559|回复: 19

[求助] 求日历形式的活动计划

[复制链接]

TA的精华主题

TA的得分主题

发表于 2015-1-16 10:51 | 显示全部楼层 |阅读模式
每月每天都有很多活动计划,希望能通过日历的形式显示,点击1月,就能自动按照时间先后显示对应的活动,方便及时跟进

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-1-16 11:34 | 显示全部楼层
2015年活动科详表.rar (9.25 KB, 下载次数: 371)

以上是求助附件

TA的精华主题

TA的得分主题

发表于 2015-1-17 22:10 | 显示全部楼层
clover114 发表于 2015-1-16 11:34
以上是求助附件

这个需求还是通过VBA来实现比较容易,代码并不复杂,用起来也方便。记得打开文件时启用活动内容。

效果如下图所示——
QQ截图20150117220438.png

其中日历通过公式模拟,周末红显则使用了条件格式,蓝色底纹的日期是标记“sheet1”中有数据记录的日期。

详细参考附件——

2015年活动科详表.rar

25.02 KB, 下载次数: 659

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2015-2-5 13:51 | 显示全部楼层
sunya_0529 发表于 2015-1-17 22:10
这个需求还是通过VBA来实现比较容易,代码并不复杂,用起来也方便。记得打开文件时启用活动内容。

效果 ...

厉害!膜拜中!!

TA的精华主题

TA的得分主题

发表于 2015-7-25 18:43 | 显示全部楼层
sunya_0529 发表于 2015-1-17 22:10
这个需求还是通过VBA来实现比较容易,代码并不复杂,用起来也方便。记得打开文件时启用活动内容。

效 ...

请教一下,日历表中的公式能否解释一下,尤其是名称 dd 是什么意思,非常感谢

  1. dd=COLUMN(INDIRECT("C1:C"&DAY(DATE(LEFT(工作表1!$A$1,4),工作表1!$K$1+1,0)),0))
复制代码

  1. =TEXT($D$1+COLUMN(A1)-1+(ROW(A1)-1)*7,"[<="&EDATE($D$1,1)-1&"]dd;")
复制代码

TA的精华主题

TA的得分主题

发表于 2015-10-29 11:06 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
VBA我也好想学习啊,请教教程

TA的精华主题

TA的得分主题

发表于 2016-4-23 21:16 | 显示全部楼层
sunya_0529 发表于 2015-1-17 22:10
这个需求还是通过VBA来实现比较容易,代码并不复杂,用起来也方便。记得打开文件时启用活动内容。

效 ...

下载了这个模板,但是一旦修改源数据,为什么查询功能就不好用了?

TA的精华主题

TA的得分主题

发表于 2016-4-25 10:07 | 显示全部楼层
peacocksz 发表于 2016-4-23 21:16
下载了这个模板,但是一旦修改源数据,为什么查询功能就不好用了?

要看你把源数据改成啥样了,可以上传一个附件上来看看。

TA的精华主题

TA的得分主题

发表于 2016-4-25 14:38 | 显示全部楼层
sunya_0529 发表于 2016-4-25 10:07
要看你把源数据改成啥样了,可以上传一个附件上来看看。

我把这个工作表中1的区域、推广品牌删除后,查询功能就不能使用了,完全不懂是因为什么……

TA的精华主题

TA的得分主题

发表于 2016-4-26 10:14 | 显示全部楼层
lsstudio 发表于 2015-7-25 18:43
请教一下,日历表中的公式能否解释一下,尤其是名称 dd 是什么意思,非常感谢

“dd”这个名称在表中并没有使用到,可以删掉

  1. =TEXT($D$1+COLUMN(A1)-1+(ROW(A1)-1)*7,"[<="&EDATE($D$1,1)-1&"]dd;")
复制代码

上面这个公式中的“dd”,是日期格式代码,并不是上面的名称。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-4 01:10 , Processed in 0.042980 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表