Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


13296 / 76734 ←次へ | 前へ→

【68944】配列変数定義の利用方法
質問  マエ/ケン  - 11/5/1(日) 16:25 -

引用なし
パスワード
   こんにちは。

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
--------------------------------------------------------------

2 hits

【68944】配列変数定義の利用方法 マエ/ケン 11/5/1(日) 16:25 質問
【68945】Re:配列変数定義の利用方法 sasa 11/5/1(日) 18:32 回答
【68946】Re:配列変数定義の利用方法 マエ/ケン 11/5/1(日) 19:39 質問
【68949】Re:配列変数定義の利用方法 sasa 11/5/2(月) 1:33 回答
【68948】Re:配列変数定義の利用方法 UO3 11/5/1(日) 20:59 発言
【68957】Re:配列変数定義の利用方法 neptune 11/5/2(月) 16:06 発言
【68958】Re:配列変数定義の利用方法 マエ/ケン 11/5/2(月) 16:46 質問
【68963】Re:配列変数定義の利用方法 neptune 11/5/2(月) 23:14 発言

13296 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free