Categories: VBA基礎

EXCEL VBA セルの入力規則を設定する。数字・数値・整数の範囲・次の値の間（Validationオブジェクト）

 

 

EXCEL VBA セルの入力規則を設定する。数字・数値・整数の範囲・次の値の間・条件指定（Validationオブジェクト）

 

 

●はじめに

今回説明するのは、セルの入力規則の説明を行います。入力規則の中でも数字に特化した入力規制の登録方法を含めて説明いたします。Validationオブジェクトにつきましては、以前、ドロップダウンリストの説明の時に、触れていいますので、詳細につきましては下記URL（ドロップダウンリスト）を参照し下さい。セルの入力規則を設定する事で、セルに対して一定の範囲や入力条件等を設定することでユーザーが間違えて数値などの入力を防ぐ事ができますので、とても便利だと思います。それでは、サンプルプログラムを交えて順番に説明いたします。

●【EXCEL VBA ドロップダウンリスト・プルダウンリスト・コンボボックスの作成（リスト選択）、下記を参照して下さい】

 

●【Validation オブジェクト (Excel)、下記を参照して下さい】（Microsoft社　様）】
https://docs.microsoft.com/ja-jp/office/vba/api/excel.validation

 

 

●書式の説明

●　Validation.Addメソッド を利用するには、下記の通りに設定を行います。

 

●　Rangeオブジェクト.Add(Type,Alertstyle,Operator,Formula1,Formula2)

 

パラメータ（引数）必須・省略可能説明
Type 必　　須入力規則の種類を指定します。
Alertstyle省略可能入力規則でのエラースタイルを指定する事が出来ます。
Operator省略可能データ入力規則の演算子を指定します。
Formula1省略可能データ入力規則での条件式の最初の部分を指定します。 値は 255 文字を超える事はできません。
Formula2省略可能引数_Operator_がXlbetweenまたはxlnotbetweenの場合、データ入力規則の2番目の部分を指定します。それ以外の場合、この引数は無視します。

【　Alertstyle　】・・・ 入力規則でのエラースタイルを指定します。

定数値内容（説明）メッセージ表示
xlValidAlertStop1中止
xlValidAlertWarning2警告
xlValidAlertInformation3情報

【　Operator　】・・・ 条件式の演算子を指定します。

定数値内容（説明）
xlBetween1次の値の間
xlNotBetween2次の値の間以外
xlEqual3次の値と等しい
xlNotEqual4次の値と等しくない
xlGreater5次の値より大きい
xlLess6次の値より小さい
xlGreaterEqual7次の値以上
xlLessEqual8次の値以下

【　Formula1,Formula2　】・・・ 制限を設定する数値を入力します。範囲を設定する場合は、（開始）Formula1　～　（最後）Formula2
・・・ 範囲を設定しない場合は、以上・以下等の場合は、Formula1のみに設定する。

●　Validation.InputTitle・Validation.InputMessage プロパティ
　　・　.InputTitle・・・入力時に表示するタイトルを設定します。
・　.InputMessage・・・入力時に表示するメッセージ内容を設定します。

●　Validation.ErrorTitle・Validation.ErrorMessage プロパティ
・　.ErrorTitle・・・入力規則でエラーが発生場合のタイトルを設定します。
・　.ErrorMessage・・・入力規則でエラーが発生した場合に表示するメッセージ内容を設定します。

●　Validation.IMEMode プロパティ
・　.IMEMode・・・セル後に日本語入力モードの既定値を設定する事ができます。

【使用例】
●下記のサンプルプログラムは、セルA１～A5に下記の条件にて入力規制を行った場合のサンプルプログラムです。
・入力値の種類⇒【整数】・・・xlValidateWholeNumber
・データ範囲⇒【次の値の間】・・・xlBetween
・最小値⇒【０】・・・Formula1・最大値⇒【９９】・・・Formula２
・スタイル⇒【情報】・・・xlValidAlertInformation
・入力時タイトル⇒【”タイトル(Title)”】・・・InputTitle 
・入力時メッセージ⇒【”数値を入力してください！(Message)”】・・・InputMessage
・エラータイトル⇒【”入力エラー(Title)”】・・・InputTitle
・エラーメッセージ⇒【”0～99の数値を入力してください。”】・・・ErrorMessage
・日本語入力⇒【半角英数字】・・・ xlIMEModeAlpha

【サンプルプログラム】

'
'
Sub Validation00()  'セルA1～A5の範囲に入力規則を設定します。


    With Range("A1:A5").Validation '入力規則のセル位置を指定（A1～A5）します。
        
        .Delete  '既存の入力規則を削除します。
        
        .Add Type:=xlValidateWholeNumber, _
                Operator:=xlBetween, _
                Formula1:="0", _
                Formula2:="99", _
                AlertStyle:=xlValidAlertInformation
        
        'Type　⇒　入力値の種類を数値に設定
        'Operator　⇒　次の値の間
        'Formula1　⇒　0　開始 　0～
        'Formula2  ⇒  99 終了　～99まで
        
        .InputTitle = "タイトル(Title)"
        .InputMessage = "数値を入力してください！(Message)"
        
        .ErrorTitle = "入力エラー(Title)"
        .ErrorMessage = "0～99の数値を入力してください。"
        .IMEMode = xlIMEModeAlpha '入力モードを「半角英数字」に設定します。
    End With
    
End Sub
'

 

【注意点】
・入力規則をセルに登録する際は、一度既存の入力規則を削除する必要があります。この処理を行う事でスムーズにて入力規則を設定する事が出来ます。

例）

With Range(“A1:A5”).Validation ‘入力規則のセル位置を指定（A1～A5）します。
.Delete ‘既存の入力規則を削除します。
　　’入力規則の設定
End With

 

 

 

EXCEL VBA セルの入力規則を設定する。入力する数値の範囲を指定します。数字の範囲・複数サンプル例（Validationオブジェクト）

 

 

●プログラム説明　(サンプル①) 次の値の間  xlBetween

下記のサンプルプログラムは、セルの入力規則を設定する方法を説明いたします。今回のサンプルプログラムでは、数値に限定して8パターンの設定方法を説明いたします。

 

 

 

 

 

下記のサンプルプログラムでは、【次の値の間】を数値で指定するパターンのプログラムです。
【設定】
：Operator　　xlBetween
：Formula1      -100
：Formula2       100
【説明】セル（B5～B10）に【-100】～【100】の間の数値が入力されるように入力規則を設定します。

 

'
'
Sub Validation01() '次の値の間（xlBetween） -100～100の間

    With Range("B5:B10").Validation '入力規則のセル位置を指定（B5～B10）します。
        
        .Delete  '既存の入力規則を削除します。
        
        .Add Type:=xlValidateWholeNumber, _
                Operator:=xlBetween, _
                Formula1:=-100, _
                Formula2:=100, _
                AlertStyle:=xlValidAlertInformation
       
        .IMEMode = xlIMEModeAlpha  '入力モードを「半角英数字」に設定します。
        
    End With
    
End Sub
'

 

●プログラム説明　(サンプル②) 次の値の間以外 xlNotBetween

 

 

 

 

 

下記のサンプルプログラムでは、【次の値の間以外】を数値で指定するパターンのプログラムです。
【設定】
：Operator　　xlNotBetween
：Formula1       50
：Formula2       60
【説明】セル（B5～B10）に【50】～【60】の間以外の数値が入力されるように入力規則を設定します。

 

'
'
Sub Validation02() '次の値の間以外　(xlNotBetween)　50～60の間以外

    With Range("B5:B10").Validation '入力規則のセル位置を指定（B5～B10）します。
        
        .Delete  '既存の入力規則を削除します。
        
        .Add Type:=xlValidateWholeNumber, _
                Operator:=xlNotBetween, _
                Formula1:=50, _
                Formula2:=60, _
                AlertStyle:=xlValidAlertInformation
       
        .IMEMode = xlIMEModeAlpha  '入力モードを「半角英数字」に設定します。
        
    End With
    
End Sub
'

 

●プログラム説明　(サンプル③)　次の値と等しい　xlEqual

下記のサンプルプログラムでは、【次の値と等しい】を数値で指定するパターンのプログラムです。
【設定】
：Operator　　xlEqual
：Formula1       50
【説明】セル（B5～B10）に【50】と等しい数値が入力されるように入力規則を設定します。

 

'
'
Sub Validation03()  '次の値と等しい (xlEqual) 50と等しい

    With Range("B5:B10").Validation  '入力規則のセル位置を指定（B5～B10）します。
        
        .Delete  '既存の入力規則を削除します。
        
        .Add Type:=xlValidateWholeNumber, _
                Operator:=xlEqual, _
                Formula1:=50, _
                AlertStyle:=xlValidAlertInformation
       
        .IMEMode = xlIMEModeAlpha  '入力モードを「半角英数字」に設定します。
        
    End With
    
End Sub
'

 

 

●プログラム説明　(サンプル④)　次の値と等しくない　xlNotEqual

下記のサンプルプログラムでは、【次の値と等しくない】を数値で指定するパターンのプログラムです。
【設定】
：Operator　　xlNotEqual
：Formula1       60
【説明】セル（B5～B10）に【６0】と等しくない数値が入力されるように入力規則を設定します。

 

'
'
Sub Validation04() '次の値と等しくない (xlNotEqual) 60と等しくない

    With Range("B5:B10").Validation  '入力規則のセル位置を指定（B5～B10）します。
        
        .Delete  '既存の入力規則を削除します。
        
        .Add Type:=xlValidateWholeNumber, _
                Operator:=xlNotEqual, _
                Formula1:=60, _
                AlertStyle:=xlValidAlertInformation
       
        .IMEMode = xlIMEModeAlpha  '入力モードを「半角英数字」に設定します。
        
    End With
    
End Sub
'

 

 

●プログラム説明　(サンプル⑤)　次の値より大きい　xlEqual

下記のサンプルプログラムでは、【次の値より大きい】を数値で指定するパターンのプログラムです。
【設定】
：Operator　　xlGreater
：Formula1       70
【説明】セル（B5～B10）に【70】より大きい数値が入力されるように入力規則を設定

 

'
'
Sub Validation05() '次の値より大きい (xlGreater) 70より大きい

    With Range("B5:B10").Validation  '入力規則のセル位置を指定（B5～B10）します。
        
        .Delete  '既存の入力規則を削除します。
        
        .Add Type:=xlValidateWholeNumber, _
                Operator:=xlGreater, _
                Formula1:=70, _
                AlertStyle:=xlValidAlertInformation
       
        .IMEMode = xlIMEModeAlpha  '入力モードを「半角英数字」に設定します。
        
    End With
    
End Sub
'

 

 

●プログラム説明　(サンプル⑥)　次の値より小さい　xlLess

下記のサンプルプログラムでは、【次の値より小さい】を数値で指定するパターンのプログラムです。
【設定】
：Operator　　xlLess
：Formula1       30
【説明】セル（B5～B10）に【30】より小さい数値が入力されるように入力規則を設定

 

'
'
Sub Validation06() '次の値より小さい (xlLess) 30より小さい

    With Range("B5:B10").Validation  '入力規則のセル位置を指定（B5～B10）します。
        
        .Delete  '既存の入力規則を削除します。
        
        .Add Type:=xlValidateWholeNumber, _
                Operator:=xlLess, _
                Formula1:=30, _
                AlertStyle:=xlValidAlertInformation
       
        .IMEMode = xlIMEModeAlpha  '入力モードを「半角英数字」に設定します。
        
    End With
    
End Sub
'

 

 

●プログラム説明　(サンプル⑦)　次の値以上　xlGreaterEqual

下記のサンプルプログラムでは、【次の値以上】を数値で指定するパターンのプログラムです。
【設定】
：Operator　　xlGreaterEqual
：Formula1       50
【説明】セル（B5～B10）に【５0】以上の数値が入力されるように入力規則を設定

 

'
'
Sub Validation07() '次の値以上 (xlGreaterEqual) 50以上

    With Range("B5:B10").Validation  '入力規則のセル位置を指定（B5～B10）します。
        
        .Delete  '既存の入力規則を削除します。
        
        .Add Type:=xlValidateWholeNumber, _
                Operator:=xlGreaterEqual, _
                Formula1:=50, _
                AlertStyle:=xlValidAlertInformation
       
        .IMEMode = xlIMEModeAlpha  '入力モードを「半角英数字」に設定します。
        
    End With
    
End Sub
'

 

 

●プログラム説明　(サンプル⑧)　次の値以下　xlLessEqual

下記のサンプルプログラムでは、【次の値以下】を数値で指定するパターンのプログラムです。
【設定】
：Operator　　xlLessEqual
：Formula1       40
【説明】セル（B5～B10）に【40】以上の数値が入力されるように入力規則を設定

 

'
'
Sub Validation08() '次の値以下 (xlNotEqual) 40以下

    With Range("B5:B10").Validation  '入力規則のセル位置を指定（B5～B10）します。
        
        .Delete  '既存の入力規則を削除します。
        
        .Add Type:=xlValidateWholeNumber, _
                Operator:=xlLessEqual, _
                Formula1:=40, _
                AlertStyle:=xlValidAlertInformation
       
        .IMEMode = xlIMEModeAlpha  '入力モードを「半角英数字」に設定します。
        
    End With
    
End Sub
'

 

 

最後まで、ご覧いただきまして誠に有難うございました。
また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。

 

AKIRA

Share
Published by
AKIRA
Tags: EXCELVBA
3年 ago

Recent Posts

Excel VBA ADOを使って学ぶデータ集計の自動化！VBAとSQLAで実現する会計データの月次集計（テクニック）

    E…

2年 ago

Excel VBAで簡単ネットワーク診断：Pingを使った基本的な接続チェック方法とIPアドレス・ホームページ・サーバーへのPingテストを手軽に実行する方法！（テクニック）

    E…

2年 ago

EXCEL VBA　オリジナル関数CustomXLOOKUP関数でデータ検索をカスタマイズ・オリジナル関数の作り方と活用法（テクニック）

    E…

2年 ago

EXCEL VBAで業務効率化VBAを使った賢いファイル整理術！ファイルの自動整理とその拡張利用！（テクニック）

    E…

2年 ago

EXCEL VBA 最終行を取得する14の方法・様々な最終行の探し方・最終行を効率的に見つける！

    E…

2年 ago

EXCEL VBA フォルダ内の複数ファイルの一括リネームを効率化する。大量ファイルの一括リネームをスムーズに実行しよう！電子帳簿保存法に活用（テクニック）

  EXCEL VB…

2年 ago