excel - VBA GoalSeek 传递的变量

Question

我试图在 VBA 中做简单的事情，但我做不到，这让我发疯。抱歉，但我对 VBA 有点陌生，我想以最简单的方式做到这一点。
我有以下问题：

Sheets("Sheet1").Range("R4").goalseek goal:=1392, ChangingCell:=Sheets("Sheet1").Range("S4")

我写了这一行，它有效。现在我很想在传递的变量上实现

address.goalseek goal:=value, ChangingCell:=address2

Sub Whatever (address as Range, value as Double, address2 as Range)
    address.goalseek goal:=value, ChangingCell:=address2
End Sub

并能够从工作表中调用函数/子。不确定我是否应该使用 sub 或 function。我每个月都有需要调整的随机（n）行，所以我不能让它静态。尝试了很多东西，但它们不起作用。

标签： excelvba