在自定义函数里如何能同时输出多个结果？

lvsonga

Function test(x As Object)
    Dim a
    a = x.Offset(0, 1) '从某单元格输入
    x.Offset(0, 2) = a '输出给某单元格
    test = a
End Function

请问我在VBA自定义函数里这样能同时输出多个结果吗，运行下来是出错的，有什么办法达到目的呢？

liulang0808

直接在模块里使用函数，应该没有问题的
如果在表格内，是要有问题的。

zpy2

自定义函数溢出？

lvsonga

liulang0808 发表于 2023-2-28 07:48
直接在模块里使用函数，应该没有问题的
如果在表格内，是要有问题的。

如果要输出给表格，有什么办法吗

lvsonga

zpy2 发表于 2023-2-28 07:50
自定义函数溢出？

调 试没有输出

liulang0808

Function test(x As Object)
    Dim a
    a = x.Offset(0, 1) '从某单元格输入
    x.Offset(0, 2) = a '输出给某单元格
    test = a
End Function

代码放到模块中，红色代码取消看看是否可行

lvsonga

取消当然可以，就是要测试看自定义函数能不能输出结果到两个单元格

zjzyj

谁说自定义函数不能修改其它单元格的值
https://club.excelhome.net/forum ... d=338141&page=1