エクセルのマクロでゴールシークの繰り返し

質問

こんにちは。マクロ初心者です。
現在、エクセルのゴールシーク機能を繰り返し使うためにマクロを作っています。
下のプログラムでアクティブセルのゴールシークは行えるようになったのですが、これをアクティブセルが空白になるまで繰り返すことはできますか？
できればiを使わないようにしたいのですが‥
ActiveCell.goalseek Goal:=ActiveCell.Offset(0, -1).Value, ChangingCell:=ActiveCell.Offset(0, -3).Range( _
"A1")
ちなみに違う人が使っていた
Do Until ActiveCell.Previous.Value = ""
を使おうと思ったらパソコンが動かなくなってしまいました‥

基本ができていない為にめちゃくちゃなことをしているのかもしれませんが、どうかアドバイスをお願い致します。

回答No.5

n_na_tto · ベストアンサー

シートの構成、
コードの貼り付けの具体的な手順もなしに
原因などわかりません。
エラーの部分は無視します。

ActiveCellは単一のセルを返しますので、
【E2だけを選択】して下方向に連続処理するなら、
下のコード。その部分に対しては答えておきます。
(ま、これも現在のそちらの状況では
動きませんが。)

Dim myRng As Range, r As Range
With ActiveCell
　Set myRng = Range(.Cells(1), .End(xlDown))
End With
For Each r In myRng
　With r
　　.GoalSeek _
　　　Goal:=.Offset(0, -1).Value, _
　　　ChangingCell:=.Offset(0, -3)
　End With
Next

お礼

説明が不十分で申し訳ありませんでした。
エラーの部分は時間ができたらもう一度自分で考えてみようと思います。
今回はなんとかDo Until文で解決できました。
お手数をおかけしてすみませんでした。
何度もご回答いただきありがとうございました。

回答No.4

n-jun

ANo.2です。

＞Debug.Print r.Value
＞の文がうまくコンパイルされません。
提示したコードは参考程度のもので、直接の回答ではありません。
Debug.Print r.Value
はイミディエイトウィンドウに結果を表示して確認するだけですので、コンパイルエラー？
って言うのも・・・？

お礼

そうですか‥
何も知らないでそのままやろうとしたのでめちゃくちゃになってしまったみたいですね。
お手数おかけしてすみませんでした。

Do Until文で何とか動かすことができましたので、もう大丈夫です。
ありがとうございました！

回答No.3

n_na_tto

No.1です。追加します。
下の表のE2:E5を選択しておいて、
その範囲だけゴールシークを
適用するなら、ActiveCellではなく
Selectionを使ってください。

＿＿A＿＿＿＿_B＿_C＿＿＿_D＿＿＿＿_E_
1＿＿＿＿＿変化＿＿＿目標値＿＿＿数式_
2＿x1＿1.618343＿y1＿＿＿_1＿1.000692_
3＿x2＿2.000009＿y2＿＿＿_2＿2.000027_
4＿x3＿2.302777＿y3＿＿＿_3＿3.000003_
5＿x4＿2.561646＿y4＿＿＿_4＿4.000383_

Dim r As Range
For Each r In Selection
With r
.GoalSeek _
Goal:=.Offset(0, -1).Value, _
ChangingCell:=.Offset(0, -3)
End With
Next

補足

大変失礼致しました。
誤ってn-junさんのところへ補足を書いてしまいました‥

このようなおっちょこちょいなので初歩的なミスをしているのでしょうが、何かご意見があれば宜しくお願い致します。

回答No.2

n-jun

例えばセルＡ１からＡ列の最終行までの値を出したいのであれば、

Sub try()
Dim r As Range

For Each r In Range("A1", Cells(Rows.Count, 1).End(xlUp))
Debug.Print r.Value
Next

End Sub

こんな感じでも出来ますけど。
（アクティブなセルでなければいけないのなら、ちょっと違うかな。）

お礼

失礼致しました。
n_na_ttoさんへのお礼と場所が入れ違ってしまいました‥

ご回答ありがとうございます。
n-junさんにお答えいただいたことも、私のやりたいことと合ってはいると思うのですが、こちらもエラーが出てきてしまいました。
Debug.Print r.Value
の文がうまくコンパイルされません。
よろしければ、ご意見いただけますでしょうか。

補足

詳しくお答えいただき、ありがとうございます。
そして質問の仕方がわかりにくくてすみません。
n_na_ttoさんのデータ例で言えば、E2をアクティブセルにして
Eが空白になるまで繰り返したいということだったのですが‥
なので、No.1でお答えいただいたことで私のやりたいことには
合っているのですが、どちらのNo.1、No.3どちらも「SubまたはFunctionが定義されていません」とエラーが出てきてしまいました。
お時間があれば、どこが間違っているのか教えていただけますか。

回答No.1

n_na_tto

"アクティブセルが空白になる"
の意味がつかめないのですが、
例えば下のようにE列に数式が入っているとして、
"E列を上から順に空白になるまで処理する"
なら...

＿＿A＿＿＿＿_B＿_C＿＿＿_D＿＿＿＿_E_
1＿＿＿＿＿変化＿＿＿目標値＿＿＿数式_
2＿x1＿1.618343＿y1＿＿＿_1＿1.000692_
3＿x2＿2.000009＿y2＿＿＿_2＿2.000027_
4＿x3＿2.302777＿y3＿＿＿_3＿3.000003_
5＿x4＿2.561646＿y4＿＿＿_4＿4.000383_

Dim myRng As Range, r As Range
'E列の数式が入っている範囲に限定
Set myRng = ActiveSheet.Range("E:E") _
　　.SpecialCells(xlCellTypeFormulas)
For Each r In myRng '上の範囲だけループ
　With r
　　.GoalSeek _
　　　Goal:=.Offset(0, -1).Value, _
　　　ChangingCell:=.Offset(0, -3)
　End With
Next