Sub CreateRND()
Dim arr() As Integer '配列を定義
ReDim arr(range("d3").Value) '配列サイズを変更します
Dim min As Integer '乱数の最小値を定義します
Dim max As Integer '乱数の最大値を定義します
Dim flag As Boolean '重複値があるかどうかを判断するためのフラグ変数を定義します
max = range("d2").Value 'セル d2 の値を最大値に代入します
min = range("d1").Value 'セル d1 の値を最小値に代入します
If (max - min 1
出口サブ
終了の場合
Randomize (Now()) '現在時刻を使用して乱数シードを生成します
For i = 0 To range("d3").Value '乱数を生成するループ
###する###arr(i) = Rnd() * (max - min) min '乱数を生成します
フラグ = False
For j = 0 To (i - 1) '現在の乱数が以前に生成された乱数と同じかどうかを判断するループ。同じであれば、それを再生成します
If (arr(i) = arr(j)) then
フラグ = True
終了の場合
###次###ループ While フラグ
###次###Columns("A:A").ClearContents
range("a1").Resize(range("d3").Value) = Application.Transpose(arr) '出力結果
エンドサブ
Excelで範囲内の乱数を生成する方法
1. まずこの範囲の差を計算します。ここでは、範囲値は 50 ~ 100
の範囲の乱数であると仮定します。
3. 複数の乱数を生成する必要がある場合は、セルの下隅にある小さな三角形をドラッグするだけです。
Microsoft Excel は、Microsoft Office ソフトウェアのコンポーネントの 1 つです。これは、Windows および Apple Macintosh オペレーティング システムを搭載したコンピュータ用に Microsoft によって作成および実行されるスプレッドシート ソフトウェアです。最初のバージョンは 1985 年に開発されました。
Microsoft Excel は、さまざまなデータ処理、統計分析、補助的な意思決定操作などを実行できます。テーブルのヘッダー行の開閉、単一の数式を使用して各行を調整する計算列、データの並べ替えとフィルター処理、カスタム数式やテキスト入力などの機能。現在、Microsoft Excelは経営、統計・財務、金融など多くの分野で広く使われています。
以上がExcelを使用してルームメイトの乱数を生成する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。