[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『重複のない乱数』(西船橋ときめき♀学園 )
1から9までの数字を使った9桁の重複のない乱数を発生させるにはどうしたらいいですか?つまり
123456789
の順列をランダムに発生させたいのです。
< 使用 Excel:Excel2019、使用 OS:unknown >
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
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.