VBA Function 定义判断另个数的大小,返回大的值
时间: 2024-09-19 18:16:53 浏览: 40
vba使用ping测试网络通断 64位
5星 · 资源好评率100%
在VBA中,你可以定义一个名为`MaxOfTwoNumbers`的用户自定义函数(UDF),用于比较两个数字并返回较大的那个。以下是函数的基本结构:
```vba
Function MaxOfTwoNumbers(num1 As Double, num2 As Double) As Double
If num1 > num2 Then
MaxOfTwoNumbers = num1
Else
MaxOfTwoNumbers = num2
End If
End Function
```
在这个例子中,`num1`和`num2`是你想比较的两个数值参数,类型为`Double`。函数内部使用了一个`If...Then...Else`结构,如果`num1`大于`num2`,则返回`num1`,否则返回`num2`。
使用这个函数的方式就像使用内置的数学函数一样,比如:
```vba
Dim result As Double
result = MaxOfTwoNumbers(5, 10)
MsgBox "较大的数是: " & result ' 输出结果: 10
```
阅读全文