能不能设置个一键导出每天课表

shiruiqiang · 发表于 2024-11-19 12:02

模块4中，数据放在“功能表”

廖月 · 发表于 2024-11-19 14:17

shiruiqiang 发表于 2024-11-19 12:02
模块4中，数据放在“功能表”

谢谢您，谢谢啦。

廖月 · 发表于 2024-11-19 14:27

本帖最后由廖月于 2024-11-19 14:34 编辑

shiruiqiang 发表于 2024-11-19 12:02
模块4中，数据放在“功能表”

老师，我把他复制到一个31天的表里就又要调试，另外能不能直接统计到一个汇总表里去啊
For x = 3 To UBound(brr)中的类型不匹配

廖月 · 发表于 2024-11-20 11:09

liulang0808 发表于 2024-11-14 09:45
楼主的课表，跟设置表之间是什么逻辑关系？
还有每天课表里的数据怎么对应提取，单双周怎么确定的，怎么 ...

老师，那个单周日和双周日为啥总是搞反了呢？比如单周五、单周六，之后应该是单周日，可是出现却是双周日，双周里也是，双周五、双周六，之后就应该是双周日，出现的却又是单周日，这个问题能纠正过来吗？

shiruiqiang · 发表于 2024-11-20 16:22

廖月 · 发表于 2024-11-20 16:36

本帖最后由廖月于 2024-11-20 16:38 编辑

shiruiqiang 发表于 2024-11-20 16:22

日历咋了，是日历造成的吗？如果太麻烦就算了，可以手动换课

shiruiqiang · 发表于 2024-11-20 22:14

国际习惯周日为第一天。
模块1中找到并修改为：变成双周一 ---- 双周日。

WeekdayNumber = DateDiff("ww", Left(nianyue, 4) & "/1/1", newDate, vbMonday) + 1 '判断日期在本年的第几周

shiruiqiang · 发表于 2024-11-20 22:16

---------模块1已修改----

廖月 · 发表于 2024-11-21 08:34

shiruiqiang 发表于 2024-11-20 22:16
---------模块1已修改----

是的啊，就是这样的啊！

lkqsmxw · 发表于 2024-11-21 12:54

本帖最后由 lkqsmxw 于 2024-11-21 13:54 编辑

另类的排课。。。。。。。。。。。。。。。。。。。。。。。。。。

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