VBA 生成月結表格及自動填入公式

YanfongY366 · 发表于 2023-2-7 09:27

3190496160 发表于 2023-2-7 08:51
这是公司一直用的表格，所以格式跟公式都不能改
既然连公式都不能改，那还来求什么代码呢？

大大可能误会了, 我想做的是每个月生成一个按当月日期的空表格(结算里面包含有计算公式), 资料是由不同同事输入的. 资料不是重点, 生成一个空表格才是. 因为每一个月的日子都不同, 而且每天代表的星期也不一样, 所以公式会变.

YanfongY366 · 发表于 2023-2-7 09:30

洋务德雷发表于 2023-2-6 22:37
先把所有的数据都罗列到一个工作表内，然后再用vba生成不就可以了吗？

想要的是生成一个空的当月的表格, 资料是之后才输入的. 所以重点不在资料处理, 而在生成空表格(结算要包含公式),因为输入资料是由不同的人负责的.

grf1973 · 发表于 2023-2-7 09:49

从公式的角度来讲，下面工作表顺好序后，不用一个一个点加，而是可以用‘：“加首尾表。
比如：=SUM('02-01 (Wed):02-07 (Tue)'!B6)

对于月表，B7=SUM('02-01 (Wed)'!B6,'02-02 (Thu)'!B6,'02-03 (Fri)'!B6,'02-04 (Sat)'!B6,'02-07 (Tue)'!B6,'02-08 (Wed)'!B6,'02-09 (Thu)'!B6,'02-10 (Fri)'!B6,'02-11 (Sat)'!B6,)
建议改为 B7=SUM('02-01 (Wed):02-12 (Sun)'!B6)-B24 其中B24可以保持原公式不变，为星期天的求和。这个公式表示所有日期求和-星期天的求和，即为星期一到星期mod。

grf1973 · 发表于 2023-2-7 09:53

建议还是从根子上改一下表格，至少所有单日期的表格应该完全一样。最多星期天下午不填，星期一上午不填，这样比较便于用统一的公式。

grf1973 · 发表于 2023-2-7 10:26

用VBA做了个月结的。星期结算的可以参照，稍微麻烦一点，要按星期设字典，且需要判断日期（当然可以按设定规律自动按序生成星期表）

另外原月结公式有误，周一的12点统计到月结的11点上了，所以公式结果和代码结果有差异。

grf1973 · 发表于 2023-2-7 11:11

做了个指定起止日的星期结算。放在表格右边，输入起止日运行后复制到左边对应位置即可。

grf1973 · 发表于 2023-2-7 11:12

也求高手解释一下代码里要加句 t=val(cstr(t))的原因，是EXCEL计算的Bug吗？

grf1973 · 发表于 2023-2-7 11:14

把那句注释掉，运算2月1号开始，结果会和不注释掉有差别

准提部林 · 发表于 2023-2-7 15:40

只是範例//自行變通

TEST001.rar (57.79 KB, 下载次数: 9)

YanfongY366 · 发表于 2023-2-10 12:41

本帖最后由 YanfongY366 于 2023-2-10 12:42 编辑

准提部林发表于 2023-2-7 15:40
只是範例//自行變通

谢谢提供范本, 参考并修改一下, 终于达到想要的效果. 不过自己修改的部份比较累赘, 有办法可以优化一下吗?

TEMP-01.rar (157.69 KB, 下载次数: 0)

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

[求助] VBA 生成月結表格及自動填入公式

评分