如何从VBA函数返回结果

如何从函数返回结果

例如:

作为整数的公共函数test()
返回1
端函数

这会导致编译错误

如何使此函数返回整数

对于非对象返回类型,必须将值指定给函数名,如下所示:

作为整数的公共函数test()
测试=1
端函数

用法示例:

作为整数的Dim i
i=测试()

如果函数返回一个对象类型,则必须使用如下Set关键字:

公共函数testRange()作为范围
设置测试范围=范围(“A1”)
端函数

用法示例:

变暗r As范围
Set r=testRange()

请注意,为函数名指定返回值不会终止函数的执行。如果要退出函数,则需要显式地说exit function。例如:

函数测试(ByVal justReturnOne为布尔值)为整数
如果只有一个那么
测试=1
退出功能
如果结束
'更多代码。。。
测试=2
端函数

文档:函数语句

发表评论