我在 VBA 中大致列出了以下代碼：
Sub Main()
Sheets("SheetA").Range("A1") = Test(250)
我希望這是來自 Test(25) 的 Param_A
Sheets("SheetA").Range("B1") = Test(250)
我希望這是來自 Test(250) 的 Param_B
End Sub
Sub Test(speed)
Param_A = 1 * speed
Param_B = 2 * speed
End Sub
我希望 Test() 回傳 Param_A 和 Param_B，以便我可以將它們傳遞給 Main()。Param_A 和 Param_B 將根據我輸入 Test() 的速度而有所不同
我覺得這應該是一個如此簡單的任務，但我無法理解 VBA 是如何處理這個問題的。我讀過我可以使用 Sub 或 Function，但似乎都不能在這里作業......
請問有人可以幫忙嗎？
謝謝！
uj5u.com熱心網友回復：
通過參考回傳值：
Sub Test( _
Byval speed As Double, _
ByRef Param_A As Double, _
ByRef Param_B As Double)
Param_A = 1 * speed
Param_B = 2 * speed
End Sub
然后：
Sub Main()
Dim Param_A As Double
Dim Param_B As Double
speed = 250
Test speed, Param_A, Param_B
Sheets("SheetA").Range("A1") = Param_A
Sheets("SheetA").Range("B1") = Param_B
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/486697.html
標籤：vba