ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 290|回复: 6

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

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-12-16 17:31 | 显示全部楼层 |阅读模式
拿到一张有多个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

TA的精华主题

TA的得分主题

发表于 2019-12-16 17:44 | 显示全部楼层
用字典记录一下你想要的东西就有结果啦

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-16 20:23 | 显示全部楼层
microyip 发表于 2019-12-16 17:44
用字典记录一下你想要的东西就有结果啦

请教一下,具体怎么实现?
头像被屏蔽

TA的精华主题

TA的得分主题

发表于 2019-12-17 08:55 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-17 10:30 | 显示全部楼层
朱荣兴 发表于 2019-12-17 08:55
没有附件,看不到你的表格,没法知道你的表格的具体情况,爱莫能助啊

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

TA的精华主题

TA的得分主题

发表于 2019-12-17 12:46 来自手机 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-17 15:27 | 显示全部楼层
解决了,感谢各位。
把数据拷到一张新标上,单元格属性都改成常规就没事了。主要之前被人处理过,也不知道拿到的都是啥
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-4-1 22:16 , Processed in 0.062472 second(s), 13 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表