ユーザー設定リストの追加と削除【ExcelVBA】

Application.AddCustomListメソッドでユーザー設定リストの追加を行う

文字列の配列で追加したい場合はArray関数を使用して、引数ListArrayに設定する

セル範囲を指定して各行をリストとして追加したい場合は引数ByRowをTrueに、各列をリストとして追加したい場合は引数ByRowをFalseに設定

追加したリストを削除したい場合はApplication.DeleteCustomListメソッドで引数ListNumに消したいリストの番号を指定する

元々あるリストの項目がグレーのリストは消すことができない

ｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰｰ

実際に使用したサンプルコード

文字列の配列で追加するパターン

Application.AddCustomList ListArray:=Array("test", "test2", "test3")

各行をリストとして追加するパターン

Application.AddCustomList ListArray:=Range("E42", "F45"), ByRow:=True

各列をリストとして追加するパターン

Application.AddCustomList ListArray:=Range("E42", "F45"), ByRow:=False

指定したリスト番号のリストを削除するパターン

Application.DeleteCustomList ListNum:=14