Excel VBA マクロに関する質問です。


E5からE52までは固定値I5を使用し、
(=0.000119*(($I$5-E5)/E5)^1.23)~(=0.000119*(($I$5-E52)/E52)^1.23)
という計算式になります。

E53からE100までは固定値I6を使用し、
(=0.000119*(($I$6-E53)/E53)^1.23)~(=0.000119*(($I$6-E100)/E100)^1.23)
という計算式になります。

これを順にIがI490に至るまでループするマクロを作って下さい。
よろしくお願い致します。

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2012/07/04 16:36:52
  • 終了:2012/07/05 17:47:53

ベストアンサー

id:ootatmt No.1

ootatmt回答回数1307ベストアンサー獲得回数652012/07/04 17:18:09

ポイント100pt

数式を入れる列をL列としています。
(L列に数式を入れるように修正しました)

Sub sample()

Dim i As Long
Dim j As Long
Dim k As Long

k = 4

' I5~I490まで繰り返し
For i = 5 To 490
    For j = 1 To 48
        ' 数式を入れる行を計算
        k = k + 1
        ' L列に数式を入力
        Cells(k, "L").FormulaR1C1 = "=0.000119*((R" & i & "C9-RC[-7])/RC[-7])^1.23"
    Next
Next

End Sub
id:wakagaeri1

回答ありがとうございます。
すみません。L列に数式を入れる方法を教えて頂けますか?

2012/07/04 21:39:55
id:wakagaeri1

ありがとうございました。大変助かりました。

2012/07/05 17:47:43

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません