(O+P)ut

アウトプット



(O+P)ut

エンジニアのアウトプット

【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

以上。