【ExcelVBA】列に選択式の入力規則を追加する

やりたいこと

特定の列に対し、プルダウンリスト（ドロップダウンリスト）をVBAにて設定する。

環境情報

• Microsoft Visual Basic for Applications 7.1

やり方

選択式にしたいセル範囲をRangeで用意した上で

以下のように記載することで

With Range(hoge).Validation
.Delete
.Add Type:=xlValidateList, Formula1:="A,B,C"
End With

セルにはA、B、Cを選択して入力することしかできなくなる。

以下、補足です。

補足

範囲情報はデータ行の最初から最後までなので、以下のように最終行を取ることで

lastRow = wb.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row

動的に範囲情報のアドレスを与えることができます。

hoge = Cells(2, 5).Address & ":" & Cells(lastRow, 5).Address

以上。