如何在若干个工作表内重复实现条件计算

nothingmore

拿到一张有多个sheet的表格，里面“订单状态”与“付款金额”格式甚至字段都不固定，但是需要计算满足部分状态哦条件的付款金额累加。
有以下几个问题
1，直接运行【单表操作】，没有任何问题，但是运行【多表循环】就会在第一次判断的时候判断错误标黄，请问怎么解决？
2，VBA多年不用忘光了，请问下有没有多重判断条件的语法，比如判断值中，一个单元格等于若干值中任意一个则满足条件？
3，if then后面如果要执行多条操作需要用什么格式？
十分感谢！

Sub 多表循环()
Dim i As Long
For i = 1 To Worksheets.Count
  Worksheets(i).Activate
  单表操作
Next i

End Sub
-----------------------------------------------------------
Sub 单表操作()
    Dim ddzt, fkje As Byte
    For e = 1 To 50
    If Cells(1, e) = "订单状态" Then ddzt = e
    If Cells(1, e) = "付款金额" Then fkje = e
    Next e
    Dim m, j As Long
    m = 0
    n = 0
    For j = 1 To 5000
   If Cells(j, ddzt) = "订单付款" Then m = m + Cells(j, fkje)
    If Cells(j, ddzt) = "订单付款" Then n = n + 1
    If Cells(j, ddzt) = "订单结算" Then m = m + Cells(j, fkje)
    If Cells(j, ddzt) = "订单结算" Then n = n + 1
    If Cells(j, ddzt) = "已付款" Then m = m + Cells(j, fkje)
    If Cells(j, ddzt) = "已付款" Then n = n + 1
    If Cells(j, ddzt) = "已结算" Then m = m + Cells(j, fkje)
    If Cells(j, ddzt) = "已结算" Then n = n + 1
    Next j
    Cells(1, 1) = m
    Cells(2, 1) = n
End Sub

microyip

用字典记录一下你想要的东西就有结果啦

nothingmore

microyip 发表于 2019-12-16 17:44
用字典记录一下你想要的东西就有结果啦

请教一下，具体怎么实现？

nothingmore

朱荣兴 发表于 2019-12-17 08:55
没有附件，看不到你的表格，没法知道你的表格的具体情况，爱莫能助啊

公司文件，虽然不涉多少机密还是不能传....简单说就是有20个工作表，每个表里第一行是各种表头。
表头的位置不确定，但是肯定包含：订单状态 和 付款金额。
订单状态里如果是 订单付款/订单结算/已付款/已结算 的状态，则需要累加这一行对应的付款金额

nothingmore

解决了，感谢各位。
把数据拷到一张新标上，单元格属性都改成常规就没事了。主要之前被人处理过，也不知道拿到的都是啥