帶有 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輸入四個公式以返回每個單獨的組件。