[ExcelVBA] n人中m人が当選するくじ その３

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] プログラミング問題一覧

■お題
n人中m人が当選するくじ除(問題出典：どう書く？org)
- 問題詳細 -

n人の中から公平にm人を選ぶ、くじ引きプログラムを作ってください。

■解答例
・乱数とソートを使ってみる
Ａ列に乱数、Ｂ列に参加者の番号を記入し、Ａ列をキーにソートをかけるとＢ列がシャッフルされて当選者数分の番号を返せばよいですね。

↑Ａ列に乱数、Ｂ列に参加者の番号を記入

↑Ａ列をキーにＡ列、Ｂ列をソート


では、コードです。
モジュール名：SubModule

Option Explicit

Function lot(n As Integer, m As Integer) As Variant
    Randomize

    Dim r As Integer
    For r = 1 To n
        Cells(r, 1) = Rnd()
        Cells(r, 2) = r
    Next
    
    Range(Cells(1, 1), Cells(r, 2)).Sort key1:=Range("A1")
    
    Dim result As Variant
    ReDim result(m - 1)
    
    For r = 1 To m
        result(r - 1) = Cells(r, 2)
    Next
    
    lot = result
End Function

３行目：引数 n…参加者全員の数を指定、m…選ばれる人数を指定
４行目：乱数のシードを変更する。Randomize(Number) Numberは省略可。省略時、時刻からシード値を取得。
６行目：変数 r･･･行数を格納する用の変数を宣言
８行目：Ａ列に乱数を記載する
９行目：Ｂ列に参加者の番号を記載
１０行目：繰り返し
１２行目：Ａ列をキーにＡ列、Ｂ列をソート
１４行目：変数 result･･･当選者の番号を格納する。
１５行目：result配列の要素を確定する
１８行目：Ｂ列の値を当選者としてresult変数に格納する
１９行目：繰り返し
２１行目：返り値としてresult配列を返す


実際にこんな感じで使う

モジュール名：MainModule

Option Explicit

Sub main()
    Dim result As Variant
    result = lot(10, 3)
    
    Dim i As Integer
    For i = 0 To UBound(result)
        Debug.Print result(i)
    Next
    
    Debug.Print "-------------"
End Sub

実行結果

　
 8 
 4 
 2 
-------------
 1 
 3 
 2 
-------------
 7 
 5 
 6 
-------------
 5 
 8 
 9 
-------------

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] プログラミング問題一覧