For Next ステートメントで計算式を代入したいのですが・・・

解決済

質問者：AMEFURIO
質問日時：2010/05/05 07:35
回答数：4件

For Next ステートメントで計算式を代入したいのですが・・・

excel(2003) VBAでの質問です。
20行ごとに同じような表が20個つづいてあります（さらにそれが複数のシートにある形です）。
それぞれの特定のセルに、計算式を入れていきたいのですが、
現状こんな感じです。

For i = 18 To 400 Step 20

Cells(i, 6).Formula = "=IF(P6>'sheet2'!g18,g1,'sheet2'!f18)"

Next i

ここで、「＝」の右側の計算式の部分のセル「P6」「g18」「g1」「f18」も、変数「i」の値に応じる形で20行ずつさげたいのですが、どうしたらいいのでしょうか？

　ちなみに、イメージではこんな感じなのですが

　　Cells(i, 6).Formula = "=IF(P6+i>'sheet2'!g18+i,g1+i,'sheet2'!f18+i)"

当然エラーが出てしまいます。「P6」の部分を「cells(i-12,16)」とかにしてみても無理でした。

初歩的な質問で申し訳ないのですが、ご教示の程、よろしくお願いいたします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (4件)

ベストアンサー優先
最新から表示
回答順に表示

No.4ベストアンサー

回答者： keithin
回答日時：2010/05/05 14:24

Ｒ１Ｃ１形式を上手に使ってみると，ご相談の「セルによって式の文字列を変える」必要が無くなります。

For i = 18 To 400 Step 20
Cells(i, 6).FormulaR1C1 =　"=IF(R[-12]C[10]>Sheet2!RC[1],R[-17]C[1],Sheet2!RC)"
Next i

Ｒ１Ｃ１形式の式の記述は，先にセルに一度
F18：
=IF(P6>Sheet2!G18,G1,Sheet2!F18)
の式を入れておき，ツールメニューのオプションの全般でR1C1にチェックを入れると
=IF(R[-12]C[10]>Sheet2!RC[1],R[-17]C[1],Sheet2!RC)
のように自動で変わるので，そのまま数式バーの中からコピーして使えばOKです。

＃別の手
目的のセルをまとめてUnionにしておき，一斉に一つの式を投入する手もあります
ワークシート上の操作では，目的のセルをコントロールキー+クリックで飛び飛びに選択しておき，一つ式を入れてコントロール＋Enterで入力する操作に相当します。
でも今回は式の入力先セルが飛び飛びで沢山なので，対象セル範囲を確保するのに結局ループしないといけないため，こちらの方法はあまりメリットはありません。

- 0
- 件

通報する

この回答へのお礼

やっぱりR1C1のほうがいいんですよね・・・
色々詳細に教えていただき、ありがとうございました。

通報する

お礼日時：2010/05/05 20:44

No.3

回答者： kmetu
回答日時：2010/05/05 11:27

こんなパターンもありかも

Cells(18, 6).Formula = "=IF(P6>'sheet2'!g18,g1,'sheet2'!f18)"
Cells(18, 6).Copy

For i = 18 To 400 Step 20

Cells(i, 6).PasteSpecial

Next i

Application.CutCopyMode = False