ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] 请问是否可以通过VBA实现这个功能

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-1-24 10:56 | 显示全部楼层

你好,我看了下,为啥周一里面少了一周,其他的都是20周,周一只有19周呢

TA的精华主题

TA的得分主题

发表于 2024-1-24 11:27 | 显示全部楼层
按照你刚开始的要求来说:今天周三,算到20周前的周三,所以周一、周二就19个,周三开始20个。
按照你最后面的意思,是需要算出本周的周一日期,然后从20周前的周一开始统计。但按照7、8楼的要求,还要统计本周后面的日期,那需要统计21周了。
具体你自己都没计划

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-1-24 11:36 | 显示全部楼层
shiruiqiang 发表于 2024-1-24 11:27
按照你刚开始的要求来说:今天周三,算到20周前的周三,所以周一、周二就19个,周三开始20个。
按照你最后 ...

不好意思,可能是我没太说清楚哈,是这样的,我都是做上周到之前的数据,就是说不管今天是周几,我需要的是上周一到之前一共20周的数据,周二到周日也是这样的

TA的精华主题

TA的得分主题

发表于 2024-1-24 11:42 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
加一句代码,3处date换一下就行了。满足当天前的20周周一开始

image.jpg

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-1-24 12:15 | 显示全部楼层
shiruiqiang 发表于 2024-1-24 11:42
加一句代码,3处date换一下就行了。满足当天前的20周周一开始

大佬,又出现新问题啦,我把这组数据放进去,发现一执行就清空啦,麻烦看下咋回事呀

自动填充.zip

290.68 KB, 下载次数: 3

TA的精华主题

TA的得分主题

发表于 2024-1-24 13:54 | 显示全部楼层
本帖最后由 saghj 于 2024-1-24 15:30 编辑

请自行测试

TA的精华主题

TA的得分主题

发表于 2024-1-24 13:55 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖最后由 saghj 于 2024-1-24 13:56 编辑

1706075784(1).png

自动填充.rar

279.03 KB, 下载次数: 6

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-1-24 15:12 | 显示全部楼层

吐血啦,大神,附件这个我一运行又清空了,问题出在哪呢,找半天没找到原因呢

自动填充.zip

203.2 KB, 下载次数: 0

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-1-24 17:08 | 显示全部楼层

您好,这个我放了一组新的数据之后运行又变成空白的了,没检查出来什么原因,请问下是什么情况导致的呢

自动填充.zip

203.52 KB, 下载次数: 1

TA的精华主题

TA的得分主题

 楼主| 发表于 2024-1-25 10:20 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
请问有没有大佬可以解决这个问题呀
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-19 01:27 , Processed in 0.050147 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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