Excelでのドロップダウンリストについて

    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
        If Target.Row = 1 Then
            If Target.Column = 1 Then
                Call UpdateValidationList
            End If
        End If
    End Sub

    Private Sub UpdateValidationList()
        ' どの範囲の値を設定するかを示すセルの参照を取得
        Dim xlSettingRange As Excel.Range
        Set xlSettingRange = Me.Cells(1, 1)

        ' セルに書かれた範囲を文字列で取得
        Dim stFormula As String
        stFormula = CStr(xlSettingRange.Value)

        ' DropDownList にするセルの参照を取得
        Dim xlListRange As Excel.Range
        Set xlListRange = Me.Cells(1, 2)

        ' 入力規則を設定する
        With xlListRange.Validation
            Call .Delete
            Call .Add(xlValidateList, xlValidAlertStop, xlBetween, stFormula)
            .IgnoreBlank = True
            .InCellDropdown = True
        End With
    End Sub