Excelの離散乱数生成器

Question

データ - データ解析 - 乱数生成 - 離散分布を呼び出すことなく、スプレッドシート内の離散分布に基づいて乱数を生成する関数を作成する方法を示します。

Answer 1

このタイプの配布でExcelのRAND関数に基づいて解決策が見つからなかったので、次の関数でこの問題を解決する必要があります。

Public Function Discrete(value As Variant, prob As Variant) 
Dim i As Integer 
Dim cumProb As Single 
Dim uniform As Single 
Randomize 
Application.Volatile 
uniform = Rnd 
cumProb = prob(1) 
i = 1 
Do Until cumProb > uniform 
i = i + 1 
cumProb = cumProb + prob(i) 
Loop 
Discrete = value(i) 
End Function 

今、あなたは