範囲内からひとつだけの値をランダムに取り出すユーザー定義関数

ユーザー定義関数

2023.10.19

Excelで複数範囲から一様分布型でランダムな値を取得：ユーザー定義関数

今回は、ExcelのVBAを使用して、複数のセル範囲からランダムに値を選択するユーザー定義関数を作成する方法をご紹介します。素早く、そして効率的にランダムな選択を行いたい時に、このユーザー定義関数は非常に便利です。

関数の主な特徴
関数コードの登録方法
関数の使用方法
1. 参考資料
使用上の注意点

関数の主な特徴

作成する関数は、指定した複数のセル範囲からランダムに1つのセルを選択し、その値を返すものです。範囲内のセルには文字列や数字、空白など任意の内容が含まれていても構いません。

複数のセル範囲を引数として受け取ります。
範囲内のセルからランダムに1つを選択します。
選択されたセルの値を出力します。
この関数は一様分布型で、各アイテムの出現の確率は同じです。

関数コードの登録方法

以下のステップで関数コードをExcelに登録しましょう。

Excelを開き、「開発」タブをクリックします。
「Visual Basic」ボタンをクリックし、VBAエディタを開きます。
VBAエディタで「挿入」>「標準モジュール」を選択し、新しいモジュールを作成します。
下記のコードを新しいモジュールにコピー＆ペーストします。
VBAエディタは閉じます。

Function RandomFromRanges(ParamArray ranges() As Variant) As Variant
    Dim cell As Range
    Dim collection As New Collection
    Dim i As Integer, selected As Integer
    
    ' 全ての範囲から値をコレクションに追加
    For i = LBound(ranges) To UBound(ranges)
        If TypeName(ranges(i)) = "Range" Then
            For Each cell In ranges(i)
                collection.Add cell.Text ' 空白も追加
            Next cell
        End If
    Next i
    
    ' ランダムに1つの値を選択して返す
    If collection.Count > 0 Then
        Randomize
        selected = Int((collection.Count * Rnd) + 1)
        RandomFromRanges = collection(selected)
    Else
        RandomFromRanges = "" ' 空白文字列を返す
    End If
End Function