vba自定义function大全

VBA自定义函数是一种在Excel中使用VBA编程语言创建的自定义公式。通过定义自己的函数，可以扩展Excel的功能，使其能够执行一些原生公式无法实现的特定计算或处理。以下是一些常用的VBA自定义函数的示例：

1. 计算两个数的和：

Function Sum(a As Double, b As Double) As Double
    Sum = a + b
End Function

2. 计算指定范围内的数字之和：

Function SumRange(rng As Range) As Double
    Dim cell As Range
    For Each cell In rng
        SumRange = SumRange + cell.Value
    Next cell
End Function

3. 判断一个数是否为偶数：

Function IsEven(num As Integer) As Boolean
    If num Mod 2 = 0 Then
        IsEven = True
    Else
        IsEven = False
    End If
End Function

4. 将一个字符串中的所有字符转换为大写：

Function Uppercase(str As String) As String
    Uppercase = UCase(str)
End Function

5. 判断一个数是否为质数：

Function IsPrime(num As Integer) As Boolean
    Dim i As Integer
    Dim count As Integer
    count = 0
    For i = 1 To num
        If num Mod i = 0 Then
            count = count + 1
        End If
    Next i
    If count = 2 Then
        IsPrime = True
    Else
        IsPrime = False
    End If
End Function

以上只是一些VBA自定义函数的示例，你可以根据具体需要编写更加复杂的自定义函数，扩展Excel的功能，满足特定的计算或处理要求。