VBA实战技巧09： 一个仅对满足条件的可见行求平均值的自定义函数

excelperfect

对满足条件的值求平均值，一般我们会使用AVERAGEIF函数，如下图1所示。

图1

如果隐藏了某些行，AVERAGEIF函数仍会对所有行中满足条件的值求平均值，并不会受到隐藏行的影响，如下图2所示。

图2

如果我们只想对满足条件的可见行求平均值，怎么办呢？最简单的方法就是使用VBA自定义一个函数，如下面的代码：

Function AVERAGEIfVISIBLE(range As range, criteria, average_range As range) Dim i As Long Dim iCount As Long For i = 1 To average_range.Count If range(i) = criteria And average_range(i).EntireRow.Hidden= False Then iCount = iCount + 1 AVERAGEIfVISIBLE = (AVERAGEIfVISIBLE +average_range(i)) End If Next i AVERAGEIfVISIBLE = AVERAGEIfVISIBLE / iCountEnd Function

这样，在工作表中使用这个自定义函数，像Excel内置函数一样，求可见行满足条件的值的平均值，如下图3所示。

图3

我们的自定义函数AVERAGEIfVISIBLE模仿了内置的AVERAGEIF函数，都是使用3个参数，且参数的作用相同，即：

• 参数range代表查找是否满足条件的单元格区域。

• 参数criteria代表指定的条件。

• 参数average_range代表要求平均值的值所在的单元格区域。

代码很简单，但能很好地满足我们的需求。

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。

欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料。