Sub 入力規則プルダウンを設置する() 'あ い う でプルダウンを設定 Range("A1").Validation.Add Type:=xlValidateList, Formula1:="あ,い,う" End Sub