エクセルの質問です。

質問

エクセルの質問です。

「ウィンドウの大きさの変更など」の質問をさせていただきたいです。

まず「組み合わせ数」をプログラミングしまして、それを実行しますと、例えば「350通り」などと書かれた小さいウィンドウが出ます。
そのウィンドウの中に「ＯＫ」と押すボタンがありますので、押しますと、実際の組み合わせが表示されるのですが・・・・

その一部を表示するのみで、すべての組み合わせを表示してくれません。。（涙）

この組み合わせをすべて表示させたいのですが、どのようにしたら良いのでしょうか？？

結果として、組み合わせが分ればどういう形でも良いです。

おしえてください！！
お願いします！！！！！！

回答No.2

nattocurry · ベストアンサー

コードを提示すると、適切な回答が得られると思いますよ。

お礼

ありがとうございました！！！！！！！
助かりましたぁぁ！！！！！！！！！

補足

'配列格納(まとめても可)
b = Sheets("Sheet1").Range(Cells(2, 2), Cells(Cells(65536, 2).End(xlUp).Row, 2))
c = Sheets("Sheet1").Range(Cells(2, 3), Cells(Cells(65536, 3).End(xlUp).Row, 3))
d = Sheets("Sheet1").Range(Cells(2, 4), Cells(Cells(65536, 4).End(xlUp).Row, 4))
e = Sheets("Sheet1").Range(Cells(2, 5), Cells(Cells(65536, 5).End(xlUp).Row, 5))
f = Sheets("Sheet1").Range(Cells(2, 6), Cells(Cells(65536, 6).End(xlUp).Row, 6))
'High&Low基準策定
xLow = 19
xHigh = 25
'b
For bi = LBound(b, 1) To UBound(b, 1)
mystr = b(bi, 1)
bVal = str2num_convert(mystr)
'c
For ci = LBound(c, 1) To UBound(c, 1)
mystr = c(ci, 1)
cVal = str2num_convert(mystr)
'd
For di = LBound(d, 1) To UBound(d, 1)
mystr = d(di, 1)
dVal = str2num_convert(mystr)
'e
For ei = LBound(e, 1) To UBound(e, 1)
mystr = e(ei, 1)
eVal = str2num_convert(mystr)
'f
For fi = LBound(f, 1) To UBound(f, 1)
mystr = f(fi, 1)
fVal = str2num_convert(mystr)
'平均化
aveVal = Application.WorksheetFunction.Average(bVal, cVal, dVal, eVal, fVal)
'MsgBox (CStr(aveVal))
'判定
If aveVal > xLow And aveVal < xHigh Then
'MsgBox ("OK")
ptCnt = ptCnt + 1
mytxt = mytxt & b(bi, 1) & "-" & c(ci, 1) & "-" & d(di, 1) & "-" & e(ei, 1) & "-" & f(fi, 1) & vbCrLf
Else:
'MsgBox ("NG")
End If
Next fi
Next ei
Next di
Next ci
Next bi
'結果
MsgBox ("計：" & CStr(ptCnt) & "通り")
MsgBox (mytxt)
End Sub
となっております。違うページにアップしてもかまわないのですが。。。。いかがでしょうか？？
ぜひ、お願いしますぅ！！！

回答No.1

keithin

>結果として、組み合わせが分ればどういう形でも良いです。

であれば，全ての組み合わせをワークシートのセルに上から順に書き並べていかせるよう，改修してみるのが簡単で良いんじゃないかなと思います。