1

各変数が配置されている列ごとに、次の行から変数を取得して繰り返したい一連の方程式があります。私は初心者なので、コーディングはおそらくスクラッチではありません。

Sub Iteration()

Dim al, ab, ae As Double
Dim as1, as2 As Double 
'etc

as1 = Range("CG7")
as2 = Range("CG8")
aA1 = Range("BQ7")
'etc

intCounter = 0
For intCounter = 1 To 10000

  Let x = ((aN1 * 1000) - (as1 * aA1) + (as2 * aA2)) / (al * fc * ae * ab)

  Let x2 = ((aN12 * 1000) - (as12 * aA12) + (as22 * aA22)) / (al2 * fc2 * ae2 * ab2)

Next

 Sheets("Sheet1").Range("CJ7").Value = x

End Sub

これは、各変数値に相対的な範囲として設定したいくつかの変数に対して行いました。そして、次の行では、方程式全体をやり直して、次の行の変数を再度設定する必要がありました。次の計算のために次の行のセルにスキップする変数を(おそらく相対セル参照を使用して)設定する方法はありますか?計算用に36行あり、約9つの変数があることも考慮してください。

4

1 に答える 1

0

私があなたを正しく理解しているなら、このようなものはどうですか?

Sub Iteration()

Dim al, ab, ae As Double
Dim as1, as2 As Double 
'etc

intCounter = 0
For intCounter = 0 To 10000

    as1 = Range("CG7").Offset(intCounter)
    as2 = Range("CG8").Offset(intCounter)
    aA1 = Range("BQ7").Offset(intCounter)
   'etc

  Let x = ((aN1 * 1000) - (as1 * aA1) + (as2 * aA2)) / (al * fc * ae * ab)

  Let x2 = ((aN12 * 1000) - (as12 * aA12) + (as22 * aA22)) / (al2 * fc2 * ae2 * ab2)

Next

 Sheets("Sheet1").Range("CJ7").Value = x

End Sub
于 2012-10-23T19:06:43.260 に答える