多工作表求和自制函数SSUMIF,帮忙改一下VBA,有些小毛病

格调是我 · 发表于 2022-12-4 22:06

Function Ssumif(r, v, c)
Application.Volatile
Dim arr, i, s, arr2
arr = Split(r, "!")
arr2 = Split(c, "!")
Dim index1, index2, shtarr
shtarr = Split(Replace(arr(0), "'", ""), ":")
Dim wbk As Workbook
Set wbk = Application.ThisCell.Parent.Parent
index1 = wbk.Sheets(shtarr(0)).Index
index2 = wbk.Sheets(shtarr(1)).Index
For i = index1 To index2
s = Application.SumIf(wbk.Sheets(i).Range(arr(1)), v, wbk.Sheets(i).Range(arr2(1)))
If Not IsError(s) Then
Ssumif = s + Ssumif
End If
Next
End Function

这个VBA能帮忙改一下吗?
希望的公式= SSUMIF("'1:zumi'!A:A",V,"B:B")
现在的公式=Ssumif("'1:zumi'!A:a",A2,"b:b!b:B")

ssfx1982 · 发表于 2022-12-5 00:17

s = Application.SumIf(wbk.Sheets(i).Range(arr(1)), v, wbk.Sheets(i).Range(arr2(1)))这里最后的(arr2(1)改成arr2(0)

鄂龙蒙 · 发表于 2022-12-5 08:11

自定义函数实现多Sheet求和.rar (33.16 KB, 下载次数: 15)

格调是我 · 发表于 2022-12-5 13:51

ssfx1982 发表于 2022-12-5 00:17
s = Application.SumIf(wbk.Sheets(i).Range(arr(1)), v, wbk.Sheets(i).Range(arr2(1)))这里最后的(arr2( ...

这个代码可以使用，但是直接引用"b:b"
没法引用

格调是我 · 发表于 2022-12-5 13:57

鄂龙蒙发表于 2022-12-5 08:11

老铁，你这函数写的，对我来说真是降维打击，真牛啊

ssfx1982 · 发表于 2022-12-6 18:13

格调是我发表于 2022-12-5 13:51
这个代码可以使用，但是直接引用"b:b"
没法引用

改过后第3参就只需要输入b:b即可。问题出在ARR2用SPLIT根据感叹号分割后，如果第3参数不含感叹号那么返回的ARR2(0)就是B:B,ARR2(1)可能就不存在。这就是你必须使用b:b!b:b才能正常使用的原因。

格调是我 · 发表于 2022-12-25 19:57

ssfx1982 发表于 2022-12-6 18:13
改过后第3参就只需要输入b:b即可。问题出在ARR2用SPLIT根据感叹号分割后，如果第3参数不含感叹号那么返回 ...

好的,根据您的提示完美解决

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

[求助] 多工作表求和自制函数SSUMIF,帮忙改一下VBA,有些小毛病