0

これは単純なはずですが、頭を包むことはできません

私は3つの列を持っています

ABC A にデータがある場合、B と C でゴール シークを実行したい

Range("B3").GoalSeek ゴール:=0、ChangingCell:=Range("C3")

私はこれに似たものが欲しい：

  If CellA>0:
     Range("D1").GoalSeek Goal:=0, ChangingCell:=Range("C1")

それが違いを生むなら、これは約7000行の価値があるかもしれません

4

1 に答える 1

2

これを試して：

Dim rCell As Range

For Each rCell In ActiveSheet.UsedRange.Resize(, 1)
    If rCell.Value <> "" Then
        rCell.Offset(, 3).GoalSeek Goal:=0, ChangingCell:=rCell.Offset(, 2)
    End If
Next rCell

このコード サンプルは、上記の最後のコメントに基づいています。列 C のセルを変更して、D 列の数式で 0 を指定します。

于 2012-09-14T01:41:18.847 に答える