多条件求和sumifs函数如何精简成VBA

mlsxp · 发表于 2018-9-6 01:54

之前自己做了个统计工资和付款的表格，因为不会VBA，都是套用公式和定义名称的，随着数据越来越多，打开就卡的不行了，试着用VBA在精简，但是碰到多条件求和以及筛选的过程中，不会了，也查看了不少论坛里的，用到的字典还不太理解希望大神能帮我看一下谢谢！

iwangyi · 发表于 2018-9-6 07:21

提示楼主，附件加密

朱荣兴 · 发表于 2018-9-6 08:08

提示: 作者被禁止或删除内容自动屏蔽

mlsxp · 发表于 2018-9-6 09:46

忘记了忘记了 ss114120

mlsxp · 发表于 2018-9-6 09:48

朱荣兴发表于 2018-9-6 08:08
工作表打开密码？？？？？？？？？？？？？？？？？？？？？？

密码是 ss114120

mlsxp · 发表于 2018-9-6 19:08

没有密码的的附件已重新上传，希望大神帮忙看一下

mlsxp · 发表于 2018-9-6 19:48

好像看了下前面的附件没上传成功！

mlsxp · 发表于 2018-9-7 15:10

大神们帮忙指导一下

qj_xiele · 发表于 2018-9-7 15:31

举个例子：
Formula1(i, 7)=SUMIFS(Sheet3!P:P,Sheet3!C:C,A2,Sheet3!D:D,"核心商户",Sheet3!S:S,"有效")
改写为：
Formula1(i, 7) = "=SUMIFS(Sheet3!P:P,Sheet3!C:C,A" & Trim(i) & ",Sheet3!D:D," & Chr(34) & "核心商户" & Chr(34) & ",Sheet3!U:U," & Chr(34) & "有效" & Chr(34) & ")"

mlsxp · 发表于 2018-9-7 16:00

qj_xiele 发表于 2018-9-7 15:31
举个例子：
Formula1(i, 7)=SUMIFS(Sheet3!P:P,Sheet3!C:C,A2,Sheet3!D:D,"核心商户",Sheet3!S:S,"有效")
...

这个代码前面是不是要设置什么？
Sub 付款求和()
Dim i
For i = 2 To 10
If Cells(i, 4) <> "" Then
Formula1(i, 1) = "=sumifs(sheet10!d:d,sheet10!c:c,e" & Trim(i) & ",sheet10!h:h,D" & Trim(i) & ")"
End If
Next
End Sub
我按你这个意思写的代码不对

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-9-6 08:08 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 多条件求和sumifs函数如何精简成VBA