５×５のセルに入力した数字を配列に格納する方法

質問

どなたかご存じでしたらご回答をお願いします。
【質問】
下記のＶＢＡを実行すると、「異なる 25個のものから 5個を選ぶ組み合わせ
の総数 nCr （53,130通り）」を作成します。毎回、ＶＢＡソースの２５個の配列の値を変更して
実行しておりますが少々手間です。これを５×５のセルの中に２５個の数字を入力して
ボタン押下にてＶＢＡを実行すると、53,130通りの組み合わせを作成するようにするには
下記ＶＢＡのソースはどのように修正すればよいでしょうか？

●ＶＢＡソース

Sub test()

Const MaxNum = 25
Dim s(25) As String
s(1) = "1"
s(2) = "2"
s(3) = "3"
s(4) = "4"
s(5) = "5"
s(6) = "6"
s(7) = "7"
s(8) = "8"
s(9) = "9"
s(10) = "10"
s(11) = "11"
s(12) = "12"
s(13) = "13"
s(14) = "14"
s(15) = "15"
s(16) = "16"
s(17) = "17"
s(18) = "18"
s(19) = "19"
s(20) = "20"
s(21) = "21"
s(22) = "22"
s(23) = "23"
s(24) = "24"
s(25) = "25"

Dim i, j, k, l, m

Dim rowX As Long
rowX = 1

rowX = rowX + 1

For i = 1 To MaxNum - 4
For j = i + 1 To MaxNum - 3
For k = j + 1 To MaxNum - 2
For l = k + 1 To MaxNum - 1
For m = l + 1 To MaxNum
Cells(rowX, 1).Value = s(i)
Cells(rowX, 2).Value = s(j)
Cells(rowX, 3).Value = s(k)
Cells(rowX, 4).Value = s(l)
Cells(rowX, 5).Value = s(m)
rowX = rowX + 1
Next m
Next l
Next k
Next j
Next i

End Sub

●ＶＢＡの実行結果
Ａ　　　　　Ｂ　　　　　Ｃ　　　　　Ｄ　　　　Ｅ　
1　　　　　2　　　　　3　　　　　4　　　　　5
1　　　　　2　　　　　3　　　　　4　　　　　6
1　　　　　2　　　　　3　　　　　4　　　　　7
1　　　　　2　　　　　3　　　　　4　　　　　8
1　　　　　2　　　　　3　　　　　4　　　　　9
1　　　　　2　　　　　3　　　　　4　　　　　10
1　　　　　2　　　　　3　　　　　4　　　　　11
1　　　　　2　　　　　3　　　　　4　　　　　12
1　　　　　2　　　　　3　　　　　4　　　　　13
1　　　　　2　　　　　3　　　　　4　　　　　14
　　　　　　　　　　　　：
　　　　　　　　　　　　：
20　　　　21　　　　22　　　　　24　　　　25
20　　　　21　　　　23　　　　　24　　　　25
20　　　　22　　　　23　　　　　24　　　　25
21　　　　22　　　　23　　　　　24　　　　25

【注意事項】
　　・使用するエクセルは２０１０です。

以上、よろしくお願いします。

回答No.1

NNori · ベストアンサー

値をいれるところが面倒とお考えなようなので、そこを変更してみましょう。

s(1) = "1"
s(2) = "2"
s(3) = "3"
s(4) = "4"
s(5) = "5"
s(6) = "6"
s(7) = "7"
　　...
s(24) = "24"
s(25) = "25"

の部分を変更します。
dim i as integer
dim r as integer
dim c as integer
i = 1
for r = 1 to 5
　for c = 1 to 5
　　s(i) = cells(r,c).value
　　i = i + 1
　next
next

i で配列をいじっちゃうのがちょっとエレガントでないです。

私ならこう書きます。Loop の for～next は０から回したほうが考えやすいのです。
dim r as integer
dim c as integer
for r = 0 to 4
　for c = 0 to 4
　　s(r*5+c+1) = cells( r+1,c+1).value
　next
next

お礼

早速のご回答ありがとうございます。
教えて頂いた変更点でソース修正してみて
５×５のセルに２５個数字を入れて
実行したところ上手くでました。
これで入力が楽になりました。
ありがとうございました。