如何实现求和?????????

usesly261 · 发表于 2018-9-7 11:13

我自定义一个函数:
Function qh(xx)
hs = Application.WorksheetFunction.Row(xx)
qh = Application.WorksheetFunction.SUM(Range(G(hs)):Range(AK(hs)))
End Function

求某个变量所在行的和,这个和有可以是其他的函数,如SUMIF等.

这个怎么写代码?

microyip · 发表于 2018-9-7 11:52

这个不是可以用公式函数解决吗？

=SUM(OFFSET($G$1:$AK$1,指定行数,))

复制代码

usesly261 · 发表于 2018-9-7 13:06

microyip 发表于 2018-9-7 11:52
这个不是可以用公式函数解决吗？

我要在VB中运行

usesly261 · 发表于 2018-9-7 13:14

microyip 发表于 2018-9-7 11:52
这个不是可以用公式函数解决吗？

我要在VB中运行

microyip · 发表于 2018-9-7 13:42

Function qh(xx)
qh = Application.WorksheetFunction.SUM(Sum([G1:AK1].Offset(xx.Row-1)))
End Function

复制代码

usesly261 · 发表于 2018-9-7 14:08

microyip 发表于 2018-9-7 13:42

谢谢................

usesly261 · 发表于 2018-9-19 12:31

microyip 发表于 2018-9-7 13:42

再帮个忙,
如果是这个公式SUMIF($F2:$AJ2,"<>7",$F4:$AJ4)或SUMIFS($F4:$AJ4,$F2:$AJ2,"=7",$F4:$AJ4,"<0")
这么写,偶比较盲!

duquancai · 发表于 2018-9-20 08:24

usesly261 发表于 2018-9-19 12:31
再帮个忙,
如果是这个公式SUMIF($F2:$AJ2,"7",$F4:$AJ4)或SUMIFS($F4:$AJ4,$F2:$AJ2,"=7",$F4:$AJ4,"

既然用VBA了，绝大多数情况就不必在VBA中用工作表函数了。。。。。。。。。。

usesly261 · 发表于 2018-10-2 16:44

duquancai 发表于 2018-9-20 08:24
既然用VBA了，绝大多数情况就不必在VBA中用工作表函数了。。。。。。。。。。

帮个忙罢，我里面放好几个IF，用VB好像省力些

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

[求助] 如何实现求和?????????