こんにちは。マクロ初心者です。
現在、エクセルのゴールシーク機能を繰り返し使うためにマクロを作っています。
下のプログラムでアクティブセルのゴールシークは行えるようになったのですが、これをアクティブセルが空白になるまで繰り返すことはできますか?
できればiを使わないようにしたいのですが‥
ActiveCell.goalseek Goal:=ActiveCell.Offset(0, -1).Value, ChangingCell:=ActiveCell.Offset(0, -3).Range( _
"A1")
ちなみに違う人が使っていた
Do Until ActiveCell.Previous.Value = ""
を使おうと思ったらパソコンが動かなくなってしまいました‥
基本ができていない為にめちゃくちゃなことをしているのかもしれませんが、どうかアドバイスをお願い致します。
No.5ベストアンサー
- 回答日時:
シートの構成、
コードの貼り付けの具体的な手順もなしに
原因などわかりません。
エラーの部分は無視します。
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
- 回答日時:
ANo.2です。
>Debug.Print r.Value
>の文がうまくコンパイルされません。
提示したコードは参考程度のもので、直接の回答ではありません。
Debug.Print r.Value
はイミディエイトウィンドウに結果を表示して確認するだけですので、コンパイルエラー?
って言うのも・・・?
そうですか‥
何も知らないでそのままやろうとしたのでめちゃくちゃになってしまったみたいですね。
お手数おかけしてすみませんでした。
Do Until文で何とか動かすことができましたので、もう大丈夫です。
ありがとうございました!
No.3
- 回答日時:
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
- 回答日時:
例えばセルA1からA列の最終行までの値を出したいのであれば、
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さんのデータ例で言えば、E2をアクティブセルにして
Eが空白になるまで繰り返したいということだったのですが‥
なので、No.1でお答えいただいたことで私のやりたいことには
合っているのですが、どちらのNo.1、No.3どちらも「SubまたはFunctionが定義されていません」とエラーが出てきてしまいました。
お時間があれば、どこが間違っているのか教えていただけますか。
失礼致しました。
n_na_ttoさんへのお礼と場所が入れ違ってしまいました‥
ご回答ありがとうございます。
n-junさんにお答えいただいたことも、私のやりたいことと合ってはいると思うのですが、こちらもエラーが出てきてしまいました。
Debug.Print r.Value
の文がうまくコンパイルされません。
よろしければ、ご意見いただけますでしょうか。
No.1
- 回答日時:
"アクティブセルが空白になる"
の意味がつかめないのですが、
例えば下のように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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定の文字がある行以外を削除...
-
エクセルで特定の文字列が入っ...
-
VBAで色の付いているセルの行削除
-
エクセル 上下で列幅を変えるには
-
Excel グラフのプロットからデ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
結合されたセルをプルダウンの...
-
エクセル マクロで数値が変っ...
-
エクセル マクロ オートフィ...
-
罫線の斜線を自動で引くマクロ
-
A1に入力された文字列と同じ文...
-
エクセルVBAのEntireRow.Hidden...
-
エクセルのセルに指定画像(.jpg...
-
EXCEL VBA 正しく入力されてい...
-
エクセル 時間の表示形式AM/PM...
-
Excel2007で、指定範囲の行高さ...
-
エクセルでセルの大きさを一律...
-
エクセルVBA:データ端に画...
-
完全一致したら代入するマクロ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
特定の文字がある行以外を削除...
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
VBAで色の付いているセルの行削除
-
Excel グラフのプロットからデ...
-
エクセル マクロで数値が変っ...
-
excel 小さすぎて見えないセル...
-
エクセル 上下で列幅を変えるには
-
罫線の斜線を自動で引くマクロ
-
結合されたセルをプルダウンの...
-
セルの色によって条件文をつけ...
-
エクセルのマクロで意図しない...
-
エクセルVBA 最終行を選んで並...
-
excelのデータで色つき行の抽出...
-
Excelのフィルター後の一番上の...
-
エクセル 時間の表示形式AM/PM...
-
Excelでカタカナ・ひらがな・英...
おすすめ情報