Question

我是VBA的新手，在我的第一个代码中，我尝试通过2列（P和J）循环播放GoalSeek函数。

设置的单元格是P2然后是P3然后是P4等。虽然改变单元格是J2，然后是J3等。

我想从第2行迭代到第N行（数字N存储在单元格D1中）

这是我写的：

N = ThisWorkbook.Sheets("Reverse DCF").Range("D1").Value

Dim i As Integer

For i = 2 To N
     Range(Cells((i), "P")).GoalSeek Goal:=0, ChangingCell:=Range(Cells((i), "J"))
Next i

我收到错误消息：

 "Method 'Range' of object '_Global' failed.

我很抱歉，但我的代码没有看到问题。

Answer 1

您可以使用 Cells 而不使用 Range 。这是一个有效的例子。确保单元格function link (scope, element, attrs, controller, transcludeFn) { ... }包含一个整数，P i 到P N 包含公式。

VBA GoalSeek循环问题

1 个答案: