1次元 2次元 配列を使用する  次の文書

変数を使用するとき、W番号みたいな特定の文字や数値を保存したい場合とW月別売上のように月に対する売上を変数として処理をしたい場合2次元配列を使用すると便利です。

Sub 配列1次元()
 Dim W01月売上(10) As Integer
 Dim W02月売上(10) As Integer
 ・・
 Dim W12月売上(10) As Integer
 For i = 1 To 10
  W01月売上(i) = Cells(i, 1)
  W01消費税(i) = W01月売上(i) * W消費税率
  ・・
  W12月売上(i) = Cells(i, 1)
  W12消費税(i) = W01月売上(i) * W消費税率
 Next i
End Sub

Sub 配列2次元()
 Dim W売上(12, 10)
 Dim W合計
 W合計 = 0
 For W月 = 1 To 12
  For W支店 = 1 To 10
   W売上(W月, W支店) = Cells(W月, W支店)
   W合計 = W合計 + W売上(W月, W支店)
  Next j
 Next i
End Sub

注)配列の開始は省略時ゼロから始まります。W01月売上(0)もVBAでは存在します。配列下限値を指定する場合 Dim W01月売上(1 To 10) As Integer のようにします。私はソース上で2次元配列と混同しやすくなるのでほとんどこの形式は使用しません。単にW01月売上(10)の様に定義しあえて(0)を使用しておりません。

 
配列の上限を超えるとエラーになります



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)