2-16．セルに入力できるデータを制限する
Excelでは「データの入力規則」の機能を利用すると、セルに入力するデータの種類を指定することができます。VBAでそれを制御するには、「Validation」オブジェクトを使います。
○実行結果
（C列にカーソルがくると「入力規則」のメッセージが表示され、1から１００の整数以外が入力されると入力エラーメッセージが表示される）
○プログラム
| With Columns("C:C").Validation C列に対して入力制限を行います。「Validationオブジェクト」は、セルの入力規則の情報を格納するオブジェクトです。入力規則の条件は、Addメソッドで設定します。 .Delete 既存の入力規則を削除します。 .Add Type:=xlValidateWholeNumber, _ AlertStyle:=xlValidAlertStop, _ Operator:=xlBetween, Formula1:="1", Formula2:="100" ・入力のタイプは「整数」（xlValidateWholeNumber） ・警告のタイプ（AlertStyle）は、中止と再試行、キャンセルを表示（xlValidAlertStop）、これは規定値 ・条件の指定（Operator）は、 Formula1:="1", Formula2:="100"。つまり１から１００の範囲。 Add Typeで指定する定数 ｘｌValidateInputOnly すべての値 ｘｌValidateWholeNumber 整数 ｘｌValidateDecimal 小数点 ｘｌValidateDate 日付 ｘｌValidateTime 時刻 ｘｌValidateTextLength 文字列（長さ指定） ｘｌValidateCustom ユーザー指定 AlertStyleで指定する定数 ｘｌValidAlertStop 中止アイコンと再試行、キャンセルボタンを表示 ｘｌValidAlertWarnig 警告アイコンとはい、いいえ、キャンセルを表示 ｘｌValidAlertInformation 情報アイコンとOK、キャンセルを表示 Operatoで指定する値 ｘｌBetween 次の値の間 ｘｌNotBetween 次の値間以外 ｘｌEqual 次の値に等しい ｘｌNotEqual 次の値に等しくない ｘｌGreater 次の値より大きい ｘｌLess 次の値より小さい ｘｌGreaterEqual 次の値以下 ｘｌLessEqual 次の値以下 .InputTitle = "入力規則" .InputMessage = "1から100までの整数を入力してください" 入力するときの規則をC列にくると常時表示されます。 .ErrorTitle = "入力規則違反" .ErrorMessage = "１から100までの整数を入力してください" 入力ミスをすると表示されるメッセージです。 |