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

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

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

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

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

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

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


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

view plainprint?

1. Option Explicit  
2.   
3. Function lot(n As Integer, m As Integer) As Variant  
4.     Randomize  
5.   
6.     Dim r As Integer  
7.     For r = 1 To n  
8.         Cells(r, 1) = Rnd()  
9.         Cells(r, 2) = r  
10.     Next  
11.       
12.     Range(Cells(1, 1), Cells(r, 2)).Sort key1:=Range("A1")  
13.       
14.     Dim result As Variant  
15.     ReDim result(m - 1)  
16.       
17.     For r = 1 To m  
18.         result(r - 1) = Cells(r, 2)  
19.     Next  
20.       
21.     lot = result  
22. End Function  

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

view plainprint?

1. Option Explicit  
2.   
3. Sub main()  
4.     Dim result As Variant  
5.     result = lot(10, 3)  
6.       
7.     Dim i As Integer  
8.     For i = 0 To UBound(result)  
9.         Debug.Print result(i)  
10.     Next  
11.       
12.     Debug.Print "-------------"  
13. End Sub  

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

実行結果

view plainprint?

1. 8   
2. 4   
3. 2   
4. ------------  
5. 1   
6. 3   
7. 2   
8. ------------  
9. 7   
10. 5   
11. 6   
12. ------------  
13. 5   
14. 8   
15. 9   
16. ------------  

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

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