excle自编公式方法

Private Function checkCount(target As Range, countCell As Range, lookupRange As Range)

Dim cell  As Range
Dim xsum  As Double
Dim xval As Double
Dim result As String


If (VarType(countCell(1))) <> vbDouble Then
   result = "#??"
   GoTo 888
Else
   xval = countCell(1).Value
End If

Dim i As Integer
xsum = 0
i = 1
While (i < target.Count)
    If (VarType(target(i)) = vbDouble) Then
        xsum = xsum + target(i).Value
        If (xval <= xsum) Then
           If (lookupRange.Count < i) Then
              result = "#???"
              GoTo 888
           Else
              result = lookupRange(i).Value
              GoTo 888
           End If
        End If
    End If
    i = i + 1
Wend

888:
  checkCount = result

End Function