Home » Excel VBA Rangeオブジェクト » 入力規則・Validation » VBAでリストの入力規則とエラーメッセージを設定する

VBAでリストの入力規則とエラーメッセージを設定する

動作検証バージョン：Windows 11 Home + 64bit Excel バージョン 2503（ビルド18623.20156クイック実行）

「データの入力規則リストエラーメッセージ vba」
といった検索キーワードで時折アクセスがあります。

Excel VBAでリストからデータを入力してもらう入力規則とエラーメッセージを設定するには、どのようなコードを書けばいいのかを調べていらしたのでしょうか。

［スポンサードリンク］

リストの入力規則とエラーメッセージを設定するサンプルマクロ

以下のExcelマクロを実行すると、アクティブシートのA1セルにリストから入力してもらう入力規則が設定されて、ドロップダウンリストにない値が手入力されたときにエラーメッセージが表示されるようになります。

Sub ValidateListとErrorMesstageを設定する()
　With Range("A1").Validation
　　.Delete
　　.Add _
　　　　Type:=xlValidateList, _
　　　　Formula1:="東京, 大阪, 名古屋"
　　.ErrorMessage = "リストから選択してください。"
　End With
End Sub

入力規則のドロップダウンリストを設定するコードと、エラーメッセージを設定するコードを組み合わせたのが上記のマクロです。

サンプルマクロで行っている処理

Range.ValidationプロパティでExcel.Rangeオブジェクトを取得して、データの入力規則を削除しておいてから、

　With Range("A1").Validation
　　.Delete

Validation.Addメソッドの

引数TypeにXlDVType列挙型に定義されている定数xlVlidateList（実際の値は3）を指定して

ドロップダウンリストを設定し、

　　.Add _
　　　　Type:=xlValidateList, _
　　　　Formula1:="東京, 大阪, 名古屋"

Validation.ErrorMessageプロパティに

エラーメッセージを設定しています。

　　.ErrorMessage = "リストから選択してください。"

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » 入力規則・Validation » VBAでリストの入力規則とエラーメッセージを設定する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

Excel VBA経験者向けに、Word VBAの基本をキンドル本にしました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

日経BP社から出版されたExcel VBAユーザー向けのPython超入門書の、元になったキンドル本です↓↓

「入力規則・Validation」の記事一覧