更改周次循环代码

天真无鞋 · 发表于 2024-5-1 08:09

本帖最后由天真无鞋于 2024-5-1 09:19 编辑

1、此代码周期为星期一到星期日为周次循环，如：2024年4月29日到2024年5月5日为WK18（18周）
2、我需要改为星期六到星期六为一周次循环，代码怎么改，如：2024年4月28日到2024年5月4日为 WK18（18周）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("E5").Value = Now '自动获取日期与时间
[f7] = Month(Range("e5").Value) '获取月数
[A9] = "WK" & WorksheetFunction.WeekNum([e5].Value, 2) '获取周期
End Sub

ooluckydog · 发表于 2024-5-1 09:08

[A9] = "WK" & WorksheetFunction.WeekNum([e5].Value, 1) '1表示从周日为起始

天真无鞋 · 发表于 2024-5-1 09:15

ooluckydog 发表于 2024-5-1 09:08
[A9] = "WK" & WorksheetFunction.WeekNum([e5].Value, 1) '1表示从周日为起始

谢谢你.........

ykcbf1100 · 发表于 2024-5-1 09:28

这句代码，参数你自己改一下再运行一下就知道了，1~7之间改

天真无鞋 · 发表于 2024-5-1 10:14

ykcbf1100 发表于 2024-5-1 09:28
这句代码，参数你自己改一下再运行一下就知道了，1~7之间改

测试了只可以改1和2

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

[已解决] 更改周次循环代码

评分