
excel
vbnetSet myRange = Worksheets("Sheet1").Range("A1:C10")answer = Application.WorksheetFunction.Min(myRange)MsgBox answer另一种是定义自定义VBA函数,在公共模块中直接引用。首先,在公共模块中定义一个自定义函数,如下所示:vbnetFunction zidingyihanshu(i As Integer) As StringIf i < 0 Thenzidingyihanshu = i & "为负整数"Elsezidingyihanshu = i & "为非负整数"End IfEnd Function然后,在VBA代码中调用这个自定义函数,并显示相关信息。例如:vbnetSub xianshi1()MsgBox zidingyihanshu(7)End Sub这个代码会显示信息:"7为非负整数"同样地,也可以像使用内置工作表函数一样,在工作表里直接引用自定义函数。例如:vbnetSub xianshi2()MsgBox zidingyihanshu(-5)End Sub这个代码会显示信息:"-5为负整数"顺便提一下,VBA中的自定义函数也可以像excel的内置工作表函数一样在工作表里引用。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号