问函数在数到6后停止
EN

Stack Overflow用户

提问于 2016-09-21 20:22:25

回答 1查看 73关注 0票数 1

我有一个下面的函数，它计算中值以上的值，但它计算A中所有高于中值的值。我需要它在数到6的时候停止计数。任何帮助都会很好。

Function CountAbove(RangeToCountAbove As Range, _
                MedianOfLastGroup As Double) As Long

Dim i As Double
Dim rows As Double
Dim cCell As Range

CountAbove = 0

For Each cCell In RangeToCountAbove
If (cCell.Value > MedianOfLastGroup) Then
    CountAbove = CountAbove + 1
Else
Exit Function
End If
Next cCell

End Function

vba

function

count

median

回答 1

Stack Overflow用户

回答已采纳

发布于 2016-09-21 20:31:32

正如@Comintern所写的，将条件If CountAbove = 6放入您的If中，如下面编辑的代码中所添加的：

Function CountAbove(RangeToCountAbove As Range, _
                MedianOfLastGroup As Double) As Long

Dim i As Double
Dim rows As Double
Dim cCell As Range

CountAbove = 0

For Each cCell In RangeToCountAbove
    If (cCell.Value > MedianOfLastGroup) Then
        CountAbove = CountAbove + 1
        If CountAbove = 6 Then Exit Function
    Else
        Exit Function
    End If

Next cCell

End Function

票数 1

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/39616445

复制

相似问题

问函数在数到6后停止
EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问函数在数到6后停止EN

回答 1

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问函数在数到6后停止
EN