带有 UDF 的多个输出单元

Question

我想使用用户定义的函数在 Excel 的单元格中打印多个输出字段。

Function CAL(dinero, impuesto)
Dim strText As String
Dim num As Double

num = dinero * 6.8
strText = "Mas impuesto"

Range("A2").Value = strText
Range("B2").Value = num

CAL = dinero + impuesto
CAL = Application.Round(CAL, 2)
End Function

当前结果：

预期结果：

Answer 1

你可以用宏来做到这一点。

使用函数，您可以输出一个数组。 但是这些单元格将是连续的，并且不能具体地位于函数内。

例如，使用A1的公式

Function CAL(dinero, impuesto)
Dim strText As String
Dim num As Double
Dim calc As Double
Dim v(1 To 2, 1 To 2) As Variant

num = dinero * 6.8
strText = "Mas impuesto"

calc = dinero + impuesto
calc = Application.Round(calc, 2)

v(1, 1) = calc
v(1, 2) = ""
v(2, 1) = strText
v(2, 2) = num

CAL = v
End Function

如果您的 Excel 版本没有动态数组，您可以将公式作为跨四个单元格的数组输入； 或使用INDEX输入四个公式以返回每个单独的组件。