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 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