ID非公開

2022/6/29 10:11

22回答

VBAについて質問です。 0〜9までの数字をランダムに並び替えるマクロを作りたいです。 r=Int (Rnd()＊10)で乱数を生成しました。

VBAについて質問です。 0〜9までの数字をランダムに並び替えるマクロを作りたいです。 r=Int (Rnd()＊10)で乱数を生成しました。 ランダムに並び替えるのがわからなくアドレスいただきたいです。 よろしくお願いします。

Visual Basic・78閲覧

ベストアンサー

0
YUN太郎

2022/6/29 10:43

重複なしの乱数を生成する場合は、通し番号の配列を用意しておいて、ランダムに並び替えるという作業を行う必要があります。 以下サンプルです。 Sub NDupRnd() Dim RndAry(0 To 10) As Long Dim i As Long, j As Long, cnt As Long For cnt = 1 To 10 RndAry(cnt) = cnt - 1 '配列に0～9を設定 Next For cnt = 1 To 1000 '並び替えする回数 i = Int(Rnd() * 10) + 1 j = Int(Rnd() * 10) + 1 If i <> j Then RndAry(0) = RndAry(i) '空きスペースにiの値を代入 RndAry(i) = RndAry(j) 'iにjの値を代入 RndAry(j) = RndAry(0) 'jに空きスペースに入れておいたiの値を代入 End If Next For cnt = 1 To 10 Debug.Print RndAry(cnt) Next End Sub

ThanksImg質問者からのお礼コメント

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

お礼日時：7/5 8:11

その他の回答（1件）

2
taihenda****

カテゴリマスター

2022/6/29 11:48

配列に10個乱数を入れて、それぞれの自分より小さい要素をカウントします。カウントした結果が０～９の乱数になります。Rという配列変数に入れますが、見えにくいので最後にA1:A10に出力します。 カウントするだけなのでとても単純です。 Sub rando() Dim i As Long, j As Long, cnt As Long Dim D(9), R(9) Randomize For i = 0 To 9 D(i) = Rnd Next For i = 0 To 9 For j = 0 To 9 If D(i) < D(j) Then cnt = cnt + 1 Next R(i) = cnt cnt = 0 Next Cells(1, 1).Resize(10) = Application.Transpose(R) End Sub

2人がナイス！しています