[[20210926142925]] 『重複のない乱数』(西船橋ときめき♀学園 ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『重複のない乱数』(西船橋ときめき♀学園 )

 1から9までの数字を使った9桁の重複のない乱数を発生させるにはどうしたらいいですか?つまり

  123456789

の順列をランダムに発生させたいのです。

< 使用 Excel:Excel2019、使用 OS:unknown >


参考に
Sub Test()
    Dim v(1 To 9), i As Long, myRnd As String

    For i = 1 To 9
        v(i) = Rnd()
    Next
    With Application
        For i = 1 To 9
            myRnd = myRnd & .Match(.Small(v, i), v, 0)
        Next
    End With
    MsgBox myRnd
End Sub

(ピンク) 2021/09/26(日) 14:51


 すばやい回答ありがとうございました。助かりました!
(西船橋ときめき♀学園 ) 2021/09/26(日) 15:17

一部訂正が有ります。
このままではブックを開きなおす度に同じ乱数値が発生しますので
Randomizeステートメントで乱数を初期化する必要があります。

    Randomize
    For i = 1 To 9
        v(i) = Rnd()
    Next
    With Application
        For i = 1 To 9

(ピンク) 2021/09/26(日) 19:03


重ね重ねありがとうございます。

(西船橋ときめき♀学園 ) 2021/09/28(火) 17:33


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.