金额计算

zllyyz

半百 发表于 2024-2-20 20:28
啥意思？红色单元格的数字怎么来的？

红色单元格表示都是错的行数据，没什么特别意义

zllyyz

gwjkkkkk 发表于 2024-2-20 20:18
根据摸拟结果，有些看不懂数据的逻辑。。。

看不含标题的前九行就好，其实就是从最后一次有金额的收支 余额递减，

zllyyz

准提部林 发表于 2024-2-20 20:41
Sub Test_A1() '\\by.准提部林
Dim xA As Range, i&, j%, P
Set xA = Range(Cells(Rows.Count, "d").End( ...

因之前的数据不够详尽 后增加数据  会出现 “计算不全”与“数据错位”的情况（详见附件“红色单元格”）

huarong7984

zllyyz 发表于 2024-2-21 09:34
因之前的数据不够详尽 后增加数据  会出现 “计算不全”与“数据错位”的情况（详见附件“红色单元格”）

二楼：ykcbf1100大师的代码很好，只需依后增加数据，稍作修改即可

zllyyz

huarong7984 发表于 2024-2-21 10:52
二楼：ykcbf1100大师的代码很好，只需依后增加数据，稍作修改即可

本身数据已经汇总抵消了，想要的就是再体现另外的结果...
思维不行呀，目前还在想方法更改呢....
如果可以的话 请写出你的代码 学习下？

准提部林

zllyyz 发表于 2024-2-21 09:34
因之前的数据不够详尽 后增加数据  会出现 “计算不全”与“数据错位”的情况（详见附件“红色单元格”）

擠牙膏~~
最好將各种狀況及需求規則說清楚

zllyyz

准提部林 发表于 2024-2-21 12:27
擠牙膏~~
最好將各种狀況及需求規則說清楚

明白 晚点我再测试下 谢谢大神

grf1973

规划不懂。何为“相邻”？

zllyyz

grf1973 发表于 2024-2-21 16:10
规划不懂。何为“相邻”？

按数值 从后往前（收在上方行,支在下方行） 累计递减得出余额(收-支)

A刘志勇

准提部林 发表于 2024-2-20 20:41
Sub Test_A1() '\\by.准提部林
Dim xA As Range, i&, j%, P
Set xA = Range(Cells(Rows.Count, "d").End( ...

倒着计算思路好，妙！