|
こんにちは。
ExcelのVBAを勉強しています。分からないことがあって、
よろしくお願いします。
値の表示範囲:B3:D7
Dim X(5, 3)
合計表示範囲:B8:D8
wa(1)、wa(2)、wa(3)
のような条件に合わせて、計算用のVBAを組みました。
実際問題として、値の表示範囲/合計表示範囲、それぞれ
変数で表す時、以下のVBAコードをどのように修正すれば
いいでしょうか?
ご伝授ください。
行:開始行=I1、終了行=I2
列:開始列=J1、終了列=J2
合計:(I2+1,J1),(I2+1,・・),(I2+1,J2)
難点1:Dimの変数定義は分からない。
難点2:以下の計算仕組みとして、1.〜4.以外の方法は
ありますか?
--------------------------------------------------------------
Sub Sample()
'Dimを使って配列を宣言して、Cell(3,2)を計算の基準位置とする
Dim X(5, 3) As Double, wa(3) As Double
Cells(3, 2).Select
'1.=For文を使って、配列の各成分定義
For i = 1 To 5
For j = 1 To 3
X(i, j) = Selection.Cells(i, j)
Next j
Next i
'2.=合計値をゼロにセットする
For j = 1 To 3
wa(j) = 0
Next j
'3.=各列の和wa(1),wa(2),wa(3)に初期値代入
For i = 1 To 5
For j = 1 To 3
wa(j) = wa(j) + X(i, j)
Next j
Next i
'4.=最後、各列の和表示
For j = 1 To 3
Selection.Cells(7, j) = wa(j)
Next j
End Sub
--------------------------------------------------------------
|
|