jcctaira の回答履歴

全261件中261~261件表示
  • For Next ステートメントで計算式を代入したいのですが・・・

    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)」とかにしてみても無理でした。 初歩的な質問で申し訳ないのですが、ご教示の程、よろしくお願いいたします。