使用vba在Excel中检查数组中是否有任何值大于零(有效

Function CheckArray(arr As Variant) As Boolean
    Dim i As Long
    
    For i = LBound(arr) To UBound(arr)
        If arr(i) > 0 Then
            CheckArray = True
            Exit Function
        End If
    Next i
    
    CheckArray = False
End Function

Sub Test()
    Dim arr() As Variant
    Dim result As Boolean
    
    ' 假设数组已经被赋值
    arr = Array(1, 2, 3, 4, 5)
    
    result = CheckArray(arr)
    
    If result Then
        MsgBox "数组中存在大于零的值"
    Else
        MsgBox "数组中不存在大于零的值"
    End If
End Sub