エクセルVBAでランダムに名前を選んでセルに配置する方法【VBA】

2023年12月24日

経緯

エクセルのVBA（Visual Basic for Applications）は、データの自動処理に非常に便利なツールです。今回は、指定された名前のリストからランダムに名前を選択し、それらを特定のセルに配置する方法について解説します。この技術は、例えばランダムなグループ分けやサンプリングを行う際に有用です。

コード

まず、コードを書きます。

Sub FillNamesNextToTargetCell()

    Dim TargetCell As Range
    Dim NameList As Variant
    Dim SelectedNames() As String
    Dim i As Integer, j As Integer
    Dim TempName As String, RandomIndex As Integer

    ' 対象のセルをアクティブなセルとして設定
    Set TargetCell = ActiveCell

    ' 名前のリスト
    NameList = Array("森", "小森", "中森", "大森", "林", "小林", "中林", "大林", "小木", "中木", "大木")
    
    ' リストからランダムに6人選抜
    ReDim SelectedNames(1 To 6)
    For i = 1 To 6
        Do
            RandomIndex = Int(Rnd() * UBound(NameList) + 1)
            TempName = NameList(RandomIndex - 1)
        Loop Until Not IsInArray(TempName, SelectedNames)
        SelectedNames(i) = TempName
    Next i

    ' 選ばれた名前を3人ずつ反映
    j = 1
    For i = 1 To 6 Step 2
        TargetCell.Offset(j - 1, 1).Value = SelectedNames(i)
        TargetCell.Offset(j - 1, 2).Value = SelectedNames(i + 1)
        j = j + 1
    Next i

End Sub

Function IsInArray(valToBeFound As Variant, arr As Variant) As Boolean
    Dim element As Variant
    On Error GoTo ErrorHandler
    For Each element In arr
        If element = valToBeFound Then
            IsInArray = True
            Exit Function
        End If
    Next element
ExitFunction:
    Exit Function
ErrorHandler:
    IsInArray = False
    Resume ExitFunction
End Function

コードの概要

示されたVBAコードは、主に二つの部分で構成されています。Sub FillNamesNextToTargetCell()はメインのサブルーチンで、Function IsInArray()は配列内に特定の値が存在するかを確認する補助的な関数です。

Sub FillNamesNextToTargetCell()

このサブルーチンでは、まずアクティブなセルを対象セルとして設定します。次に、名前のリストが定義され、このリストからランダムに6つの名前が選ばれます。選ばれた名前は、対象セルの隣に3行にわたって2列ずつ配置されます。この部分で、ランダム性を保証するために、既に選択された名前が再度選ばれないように工夫がされています。

Function IsInArray()

この関数は、指定された値が配列内に存在するかどうかを確認します。存在する場合はTrueを、存在しない場合はFalseを返します。この関数は、重複を避けるためにメインのサブルーチン内で使用されています。

注意点と改善の余地

コードを使用する際の注意点としては、Rnd()関数が返す値が0から1未満の範囲であることを理解する必要があります。これにより、UBound(NameList) + 1の計算が重要になります。また、エラーハンドリングが関数内に組み込まれていますが、より複雑なシナリオではさらなるエラーハンドリングが必要になる場合があります。