MS Excel函数需要计算一系列单元格

时间:2016-04-08 11:34:12

标签: excel vba excel-vba

我目前正在使用计算来计算范围内感兴趣的细胞数量,如下所示:

= myCountFunction(currentSheet, range)

==总减去'要忽略的单元'

这种计算在每张纸上发生24次,并且有几十张纸。因此,当我需要添加更多单元格类型以供忽略时,我必须复制并粘贴方程太多次,这是一个真正的苦差事。

所以我想将逻辑封装在一个带有API的单个函数中,我可以这样使用:

= myCountFunction(range)

或可能

setOption

如果excel知道相关范围属于特定工作表。

我欢迎你的建议。感谢。

1 个答案:

答案 0 :(得分:0)

你可以像这样使用vba函数:

Function myCountFunction(inputCell As range, inputRange As range)

    myCountFunction = inputCell.Value - Application.CountIf(inputRange, "*AAA*") - Application.CountIf(inputRange, "*BBB*") - Application.CountIf(inputRange, "*CCC*") - Application.CountBlank(inputRange)

End Function

调用函数:= myCountFunction(Meta!$ B $ 6; L5:R14)