Excel2007で乱数を利用して

質問

乱数を利用して抜き出したいです

0～9の数字記号がありまして、その内のいずれかがセルA～AJの各セルに入ってます。

セルA～AJは1～36番目と言うことなんで数字1～36を乱数で被ることなく6個をとり

その6個を利用してセルA～AJの数字記号を抜き出してセルQ6～V6に表したいです。

マクロボタンを押す度に別の乱数でまた抜き出しては次のQ7～V7へと、違う乱数を使っては下へ下へと表示したいです。

よろしくお願いいたします。

回答No.13

kkkkkm · ベストアンサー

とりあえずQ6～V6に乱数の結果を視覚化するために表示して
Q7～V7に2行目のデータから該当するものを取得記載するようにしています。

Sub ボタン1_Click()
Dim MyDic As Object, MyKey As Variant
Dim i As Long
Dim MyRand As Long, LastRow As Long

'6個の重複しない乱数1～36の取得
Set MyDic = CreateObject("Scripting.Dictionary")
For i = 1 To 6
MyRand = WorksheetFunction.RandBetween(1, 36)
If MyDic.Exists(MyRand) = False Then
MyDic.Add MyRand, "Dummy"
Else
i = i - 1
End If
Next i
MyKey = MyDic.keys
Set MyDic = Nothing
'Q6からV6に取得した6個の乱数を記載
Cells(6, "Q").Resize(1, UBound(MyKey) + 1).Value = MyKey
'Q6からV6の数値を列データとして2行目のデータを取得して
'Q7からV7を先頭にして下方向に追加記載
LastRow = Cells(Rows.Count, "Q").End(xlUp).Row + 1
' If LastRow < 6 Then
' LastRow = 6
' End If
For i = 0 To 5
Cells(LastRow, "Q").Offset(0, i).Value = Cells(2, MyKey(i)).Value
Next
End Sub

お礼

いつもご返答ありがとうございます。(Q6:V6)に重複することなく1～36の乱数を表示することに成功しましたが、
それらを利用しての(Q7:V7)への抜き出しコピペは失敗してまして、マクロが作動中に、R7に抜き出してる数値が5回表示されては消えて最後の6回目の数値が表示されるという結果になりました。何処を治せばよろしいでしょうか？

回答No.7

kkkkkm

> あなたの仰る通り私もそうなんだと思います。が、どうなんでしょうw

もちろん単に0～9までの数値をランダムに6個表示したいのであればという話です。
設問のように
0～9の36個のランダムな数値の並びから6個無作為に取り出すとした場合は、4種類の数値は他の6種類の数値より1個少なく配置されていると思いますので、その分偏りますよね。

お礼

ご返答ありがとうございます。ご理解されにくい内容なため再度説明させてください。(私の説明下手がいけないのですが)

(A2:AJ2)に0～9の数字が入ってます(もちろん数字は重複してます。)

(A2:AJ2)から被ることなくランダムに選択して6個だけ取り出したいです。(1回のマクロ作業でA2を2回、M2を3回とかは無しでお願いします。)

取り出した6個の値は(D6:I6)にコピペします(その時の値は重複してたりしてます)。

そして次のマクロ作業の時にはまたランダムに選択をし、(D6:I6)の次の(D7:I7)にコピペして行きたいです。

と、この様な質問内容でした。いつも質問し始めは頭の中が混乱してる最中で上手く伝えれてなかったりしてすみません。

回答No.6

HohoPapa

>(A2:AJ2)から被ることなく
>ランダムに選択して6個だけ取り出したいです。

例えば、
A2=3
J2=3
L2=3
Q2=3
U2=3
X2=3
と埋まっており
これらのセル６個がヒットしたときに
拾い出す値は
3,3,3,3,3,3 となるわけですが、
この動作が正しいということであれば
以下のコードになると思います。

Option Explicit

Dim xNum(6) As Long　 '重複しない6個の列番号

Sub Sample3()

　Const sCol = 17　　　'出力セル開始列番号
　Const RowAdd = 5　　　　　'6行目から出力
　Dim wkCounter As Long
　Static RowCounter As Long

　Get6Num

　RowCounter = RowCounter + 1　'出力行をカウントアップ

　With ThisWorkbook.Sheets(1)
　　For wkCounter = 1 To 6
　　　.Cells(RowCounter + RowAdd, wkCounter + sCol - 1).Value = _
　　　　.Cells(2, xNum(wkCounter)).Value
　　Next wkCounter
　End With

End Sub

Sub Get6Num()

　xNum(1) = GetRandomiz
　Do
　　xNum(2) = GetRandomiz
　　If xNum(2) <> xNum(1) Then Exit Do
　Loop
　Do
　　xNum(3) = GetRandomiz
　　If ((xNum(3) <> xNum(1)) And _
　　　　(xNum(3) <> xNum(2))) Then Exit Do
　Loop
　Do
　　xNum(4) = GetRandomiz
　　If ((xNum(4) <> xNum(1)) And _
　　　　(xNum(4) <> xNum(2)) And _
　　　　(xNum(4) <> xNum(3))) Then Exit Do
　Loop
　Do
　　xNum(5) = GetRandomiz
　　If ((xNum(5) <> xNum(1)) And _
　　　　(xNum(5) <> xNum(2)) And _
　　　　(xNum(5) <> xNum(3)) And _
　　　　(xNum(5) <> xNum(4))) Then Exit Do
　Loop
　Do
　　xNum(6) = GetRandomiz
　　If ((xNum(6) <> xNum(1)) And _
　　　　(xNum(6) <> xNum(2)) And _
　　　　(xNum(6) <> xNum(3)) And _
　　　　(xNum(6) <> xNum(4)) And _
　　　　(xNum(6) <> xNum(5))) Then Exit Do
　Loop

End Sub

'整数な乱数発生関数
Function GetRandomiz()
　Const iMin = 1　　'開始範囲From
　Const iMax = 36　 '開始範囲To
　Call Randomize
　GetRandomiz = Int((iMax - iMin + 1) * Rnd + iMin)
End Function

お礼

ありがとうございました。ご協力頂いて気持ちが良かったです。

補足

これらのソースが希望の形になるんでしょうか？
凄いですね。

回答No.5

HohoPapa

・A2:AJ2の36個のセルに0～9の任意の整数がランダムに埋まっている
・ここから乱数を使って、重複しない任意な6個の値を拾い出す。
と理解しました。

A2:AJ2の35個のセルを使うことで、
拾う値（0から9）に重みづけが可能かもしれませんが
それを除けば
既に他の方から指摘がありますように
単に、
0～9の任意の整数から重複しない6個を拾い出すのと同等に思えます。

ともあれ、期待のことを素直に受け取れば
つぎのようなコードになると思います。

Option Explicit

Sub Sample2()

　Const RowAdd = 5　　　　　'6行目から出力
　Dim wkCounter As Long
　Dim ColData(6) As Long　　'出力個数

　Static RowCounter As Long
　RowCounter = RowCounter + 1　'出力行をカウントアップ
　Const sCol = 17　　　'出力セル開始列番号

　With ThisWorkbook.Sheets(1)

　　Do
　　　For wkCounter = 1 To 6
　　　　ColData(wkCounter) = .Cells(2, GetRandomiz).Value
　　　Next wkCounter

　　　If ( _
　　　　(ColData(1) <> ColData(2)) And _
　　　　(ColData(1) <> ColData(3)) And _
　　　　(ColData(1) <> ColData(4)) And _
　　　　(ColData(1) <> ColData(5)) And _
　　　　(ColData(1) <> ColData(6)) And _
　　　　(ColData(2) <> ColData(3)) And _
　　　　(ColData(2) <> ColData(4)) And _
　　　　(ColData(2) <> ColData(5)) And _
　　　　(ColData(2) <> ColData(6)) And _
　　　　(ColData(3) <> ColData(4)) And _
　　　　(ColData(3) <> ColData(5)) And _
　　　　(ColData(3) <> ColData(6)) And _
　　　　(ColData(4) <> ColData(5)) And _
　　　　(ColData(4) <> ColData(6)) And _
　　　　(ColData(5) <> ColData(6)) _
　　　　　　) Then
　　　　Exit Do
　　　End If
　　Loop

　　For wkCounter = 1 To 6
　　　.Cells(RowCounter + RowAdd, wkCounter + sCol - 1).Value = _
　　　　ColData(wkCounter)
　　Next wkCounter

　End With

End Sub

'整数な乱数発生関数
Function GetRandomiz()
　Const iMin = 1　　'開始範囲From
　Const iMax = 36　 '開始範囲To
　Call Randomize
　GetRandomiz = Int((iMax - iMin + 1) * Rnd + iMin)
End Function

お礼

ご返答ありがとうございます。ご理解されにくい内容なため再度説明させてください。(私の説明下手がいけないのですが)

(A2:AJ2)に0～9の数字が入ってます(もちろん数字は重複してます。)

(A2:AJ2)から被ることなくランダムに選択して6個だけ取り出したいです。(1回のマクロ作業でA2を2回、M2を3回とかは無しでお願いします。)

取り出した6個の値は(D6:I6)にコピペします(その時の値は重複してたりしてます)。

そして次のマクロ作業の時にはまたランダムに選択をし、(D6:I6)の次の(D7:I7)にコピペして行きたいです。

この様に質問を訂正させて頂きました。この内容とホホパパさんに作って頂いたソースは整合してますでしょうか？
質問で返す様な形で申し訳ありません。

回答No.4

bunjii

回答No.1への補足より
>A2:AJ2の各セルに数字記号である0～9のいずれかがランダムに入ってます。
A2:AJ2の各セルには文字列として"0"～"9"の1文字の数字が入力されているのですか？
セルの数が36ですから重複することになりますよね？

>A2～AJ2の数字記号を6個だけ抜き出してD6～I6に表したいです。
>なのでD6～I6は0～9の数字記号になります。
D6～I6へ"0"～"9"の文字列としての1文字をランダムに配置できれば良いのでしたら質問の中で述べている「セルA～AJは1～36番目と言うことなんで数字1～36を乱数で被ることなく6個をとり」は無意味かと思います。
A2～J2へ重複のない乱数を発生させて小さい順（大きい順でも可）に列番号を6個取り出せば良いことになります。但し、取り出した列番号から1を減じないと0～9になりません。
A2:J2=RAND()
D6=TEXT(MATCH(SMALL($A$2:$J$2,COLUMN(A6)),$A$2:$J$2,0)-1,"0")
D6セルを右へI6までコピーします。

この回答はExcelの組み込み関数による処理なので「マクロボタンを押す度に別の乱数でまた抜き出して」という操作はできませんがD6:I6をコピーしてD7以降へ順次「値の貼り付け」を実行すれば目的通りになるでしょう。

お礼

ご返答ありがとうございます。ご理解されにくい内容なため再度説明させてください。(私の説明下手がいけないのですが)

(A2:AJ2)に0～9の数字が入ってます(もちろん数字は重複してます。)

(A2:AJ2)から被ることなくランダムに選択して6個だけ取り出したいです。(1回のマクロ作業でA2を2回、M2を3回とかは無しでお願いします。)

取り出した6個の値は(D6:I6)にコピペします(その時の値は重複してたりしてます)。

そして次のマクロ作業の時にはまたランダムに選択をし、(D6:I6)の次の(D7:I7)にコピペして行きたいです。
よろしくお願いいたします。

回答No.3

mt2015

ANo.1です。

> >セルA2:AJ2に=RAND()と入れて、を
> A3:AJ3に=RAND()に変えまして、シート関数でよろしいですか？

その場合、マクロ側も変更が必要です
　　.Formula = "=OFFSET($A$1,0,MATCH(LARGE(2:2,COLUMN(A1)),2:2,0)-1)"
　　　　↓
　　.Formula = "=OFFSET($A$1,1,MATCH(LARGE(3:3,COLUMN(A1)),3:3,0)-1)"

お試しください。

お礼

ありがとうございました。ご協力感謝します。

回答No.2

kkkkkm

結果として0～9までの数値をランダムに表示したいという動作でしょうか
関数で
=RANDBETWEEN(0,9)
でいいと思いますが。

お礼

凄いところを突いてきてらっしゃるんですが、あなたの仰る通り私もそうなんだと思います。が、どうなんでしょうw
自己満足の世界にひたりたいのか、結果をみて次に思考がどう働くのかを経験したいのです。
なんか滅茶苦茶楽しいんですw
次に自分の頭がどう働くのかがw

回答No.1

mt2015

「A～AJの各セル」ってのはA1:AJ1の各セルと言う認識で良いですよね?

以下の様にします。
セルA2:AJ2に=RAND()　と入れて、フォント色を白にでもしてください。
マクロはこんな感じ。
Sub Sample()
　　nRow = WorksheetFunction.Max(6, Cells(Rows.Count, 17).End(xlUp).Row + 1)
　　With Range("Q" & nRow & ":V" & nRow)
　　　　.Formula = "=OFFSET($A$1,0,MATCH(LARGE(2:2,COLUMN(A1)),2:2,0)-1)"
　　　　.Value = .Value
　　End With
End Sub

添付の図は、解りやすくするため、A1:AJ1に「1～36」までの数値を入れていますし、A2:AJ2のフォント色を黒にしています。

お礼

上手くいきませんでした。
ごめんなさい！書き損じてました。A2:AJ2の各セルに数字記号である0～9のいずれか
がランダムに入ってます。1～36の乱数を使って
A2～AJ2の数字記号を6個だけ抜き出してD6～I6に表したいです。
なのでD6～I6は0～9の数字記号になります。

>セルA2:AJ2に=RAND()と入れて、を
A3:AJ3に=RAND()に変えまして、シート関数でよろしいですか？