烦请修改一下月合计年累计代码

wcj6376tcp · 发表于 2024-8-21 14:43

本帖最后由 wcj6376tcp 于 2024-8-23 11:50 编辑

需求是每月录入借贷后下面自动生成合计和累计数。现在问题是点击第一次正确，再次点击就会不断累计，麻烦大神些优化修改一下代码，谢谢。

醉眼看尘世 · 发表于 2024-8-21 15:41

看到起脑壳痛。。。。

wcj6376tcp · 发表于 2024-8-21 15:45

醉眼看尘世发表于 2024-8-21 15:41
看到起脑壳痛。。。。

我的思路是当月结转，那就在行末输入月份和本年累计，就会生成（这里就是有点麻烦）
如果有可能预填了下个月固定项目，则自动生成下月合计累计。

ykcbf1100 · 发表于 2024-8-21 16:05

wcj6376tcp 发表于 2024-8-21 15:45
我的思路是当月结转，那就在行末输入月份和本年累计，就会生成（这里就是有点麻烦）
如果有可能预填了下 ...

你用r =Cells(Rows.Count, 1).End(3).row的方法不行，这样，每次运行都会增加2行。
可以考虑每次先删除小计累计，一次性再插入小计累计，可能会好一点。

wcj6376tcp · 发表于 2024-8-21 21:57

本帖最后由 wcj6376tcp 于 2024-8-21 23:38 编辑

ykcbf1100 发表于 2024-8-21 16:05
你用r =Cells(Rows.Count, 1).End(3).row的方法不行，这样，每次运行都会增加2行。
可以考虑每次先删除 ...

在老师的启发下搞定，改变了一下获取月份的方法。考虑了1月问题，应该可以了。

wcj6376tcp · 发表于 2024-8-21 21:59

本帖最后由 wcj6376tcp 于 2024-8-22 06:18 编辑

已经更新在5楼

wcj6376tcp · 发表于 2024-8-21 22:38

ykcbf1100 发表于 2024-8-21 16:05
你用r =Cells(Rows.Count, 1).End(3).row的方法不行，这样，每次运行都会增加2行。
可以考虑每次先删除 ...

请问老师 yf = Left(Cells(r, 1).Value, Len(Cells(r, 1).Value) - 1) 这种比如 10月有没有更简单的方法取10？

醉眼看尘世 · 发表于 2024-8-21 22:42

本帖最后由醉眼看尘世于 2024-8-21 23:08 编辑

wcj6376tcp 发表于 2024-8-21 22:38
请问老师 yf = Left(Cells(r, 1).Value, Len(Cells(r, 1).Value) - 1) 这种比如 10月有没有更简单的方 ...

yf=replace(cells(r,1),"月","")

wcj6376tcp · 发表于 2024-8-21 22:56

本帖最后由 wcj6376tcp 于 2024-8-22 06:19 编辑

醉眼看尘世发表于 2024-8-21 22:42
yf=replace(crlls(r,1),"月","")

非常感谢指导

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

[已解决] 烦请修改一下月合计年累计代码