ID非公開

2022/6/29 10:11

22回答

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

Visual Basic78閲覧

ベストアンサー

0

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

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

お礼日時:7/5 8:11

その他の回答(1件)

2

配列に10個乱数を入れて、それぞれの自分より小さい要素をカウントします。カウントした結果が0~9の乱数になります。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人がナイス!しています