多条件下的金额累计

zllyyz

各位大大、老师们烦请支援支援，需求如下图（条件代码亦在下方（只能在单个程序里输出一个结果，无法输出两个以上））


下方为“门店1”的条件设置（门店2或门店*类同，希望能合并代码）


If Not prevGVal = DataArr(i, 7) Then        
    isBankOrCash = False
    resetFlag = True
End If
  
' 检查是否包含"银行"或"现金"
If (InStr(1, DataArr(i, 10), "银行", 1) > 0) Or (InStr(1, DataArr(i, 10), "现金", 1) > 0) Then
    isBankOrCash = True
    resetFlag = False
ElseIf isBankOrCash Then
    ' 如果 isBankOrCash 为 True，则检查是否包含"门店1收入"、或"门店1支出"
    If (InStr(1, DataArr(i, 10), "门店1收入", 1) > 0) Or _
       (InStr(1, DataArr(i, 10), "门店1支出", 1) > 0) Then
        Types("金额累加") = Types("金额累加") + DataArr(i, 12) - DataArr(i, 13)
    Else
        ' 如果 isBankOrCash 为 True 但不包含上述字符串，则设置 resetFlag
        resetFlag = True
    End If
End If
  
If resetFlag Then
    isBankOrCash = False
End If
  

LIUZHU

直接说需求吧，代码写的也不精炼

ykcbf1100

没看明白。看了你的说明，应该是只统计银行和现金的情况，看了你的代码，感觉好象门店1啥的也要统计。你的需要到底是什么啊？

tanglf188

说的明明白白，看的稀里糊涂

zllyyz

LIUZHU 发表于 2024-6-13 14:58
直接说需求吧，代码写的也不精炼

需求就在图片里的黄色单元格

zllyyz

tanglf188 发表于 2024-6-13 15:55
说的明明白白，看的稀里糊涂

反正我感觉不好弄

zllyyz

ykcbf1100 发表于 2024-6-13 15:25
没看明白。看了你的说明，应该是只统计银行和现金的情况，看了你的代码，感觉好象门店1啥的也要统计。你的 ...

老师你在看看下面的说明是否清晰？

       在分类号码列相同的情况下 查找银行或现金，在选择性加总 除了银行或现金的 类目（如门店1收入 或 门店1收入+其他，1个或多个）的金额，最后汇总指定类目的总额

longwin

直接汇总门店收入跟支出不行吗？这个与现金或者银行有什么关系？
你的数据里面并不都是现有现金或者银行，再跟收入或者指出，比如分类号码“3”的这三笔就是收入在前，银行在后。
感觉你这个也不是正规的会计帐（收入不应该是借：现金或者银行存款，贷：收入吗？）

LIUZHU

请回答下，这个银行的分类号码和门店1相同，那么这个银行的收入是要汇总的门店1的数据汇总吗？

LIUZHU

分类5，下面怎么有其他1和其他2两个？是什么关系？