Question

提前感谢任何建议/提示/技巧。

目前，我在新泽西州的一所学校工作，他们每年多次进行一些数据分析。我反复使用这段代码

countif(RANGE, "YES")/countif(RANGE,"<>")

我试图通过使用自定义函数插件来缩短这些代码，并且我已经将范围传递下来，我只能得到＆＃34;是＆＃34;工作正常。任何帮助，将不胜感激。

我的自定义计数如果功能

Function CCountif(rng As Range)
Dim cell As Range
Dim Total As Integer
For Each cell In rng
    If cell.Value = "YES" Then
    Total = Total + 1
End If
Next cell
End Function

Answer 1

你没有说你的功能应该等于什么。我想你想要它返回Total。在这种情况下，请在最后写下：

CCountif = Total

Answer 2

你还没有告诉它要输出什么 - 所以你的答案总是为0。

修复关闭循环后只需添加CCountif = Total

Excel自定义函数未正确合计

2 个答案: