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

excelperfect

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

图1

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

图2

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

代码语言：javascript复制

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 / iCount
End Function

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

图3

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

• 参数range代表查找是否满足条件的单元格区域。
• 参数criteria代表指定的条件。
• 参数average_range代表要求平均值的值所在的单元格区域。

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

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

vba average criteria excel range

0 人点赞