| |
こんにちは。
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
--------------------------------------------------------------
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
