Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

入力規則（他セルや数式を利用して許容値を設定）Validation オブジェクト

2015/09/05

他のセルや数式を利用して許容値を設定する

入力規則（その5）での設定を、マクロ（VBA）で、設定します。
「A1」から「A10」のセルに入力規則を設定し、「A1」から「A10」までのセルに同じ値、データを入力するとエラーメッセージダイアログボックスが表示されるようにします。

作成手順

「A1」から「A10」の範囲に入力規則を設定します。
Validation.Add メソッド の引数 Type に、xlValidateCustom（ユーザー設定）を指定します。
Validation.Add メソッド の引数 Formula1（数式）に、「”=COUNTIF($A$1:$A$10,A1)=1″」を指定します。
エラーが発生した場合に表示するエラーメッセージに関する設定を行います。
セルをアクティブにした時に表示する、入力時メッセージに関する設定を行います。

入力規則（他セルや数式を利用して許容値を設定）

サンプルVBAソース

　
Sub Sample06_Validation()

    
    With Range("A1:A10").Validation
    
        '入力規則を削除
        .Delete
        
        '入力規則を設定
        'ユーザー設定、エラーメッセージ「停止」
        '「A1」から「A10」までで、同じ値を入力するとエラー
        .Add Type:=xlValidateCustom, _
             AlertStyle:=xlValidAlertStop, _
             Operator:=xlBetween, _
             Formula1:="=COUNTIF($A$1:$A$10,A1)=1"
             
        .IgnoreBlank = True         '空白無視
        .InCellDropdown = True
        
        '入力時メッセージ
        .ShowInput = True
        .InputTitle = "入力"
        .InputMessage = "A1 - A10 のセル範囲内に、重複しないデータを入力してください"

        'エラーメッセージ
        .ShowError = True
        .ErrorTitle = "エラー"
        .ErrorMessage = "重複した値は入力できません！"
        .IMEMode = xlIMEModeNoControl

    End With
    

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

　

Sub Sample06_Validation()

With Range("A1:A10").Validation

'入力規則を削除

.Delete

'入力規則を設定

'ユーザー設定、エラーメッセージ「停止」

'「A1」から「A10」までで、同じ値を入力するとエラー

.Add Type:=xlValidateCustom, _

AlertStyle:=xlValidAlertStop, _

Operator:=xlBetween, _

Formula1:="=COUNTIF($A$1:$A$10,A1)=1"

.IgnoreBlank = True '空白無視

.InCellDropdown = True

'入力時メッセージ

.ShowInput = True

.InputTitle = "入力"

.InputMessage = "A1 - A10 のセル範囲内に、重複しないデータを入力してください"

'エラーメッセージ

.ShowError = True

.ErrorTitle = "エラー"

.ErrorMessage = "重複した値は入力できません！"

.IMEMode = xlIMEModeNoControl

End With

End Sub

　

実行結果

入力規則を設定したセルに入力

- セルの操作 Range オブジェクト, Validation オブジェクト, VBA基本, エクセルVBA, セルの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 指定した条件に一致するセルを取得（SpecialCells メソッド）

SpecialCells メソッド SpecialCells メソッドは、指定し …

: 書式で検索（Find メソッド,FindFormat プロパティ）

書式で検索書式を条件にセルを検索する場合、まず、その書式条件を CellFor …

: セルを挿入する（Insert メソッド）

Insert メソッド Insert メソッドで、指定した場所に新規の空白セルを …

: オートフィルタ（日付フィルタ）AutoFilter メソッド

日付フィルタを使用してレコードを抽出する Excel 2007 から「日付フィル …

: 指定した行数・列数移動したセル・セル範囲を参照（Offset プロパティ）

Offset プロパティ Offset プロパティは、基準となるセル・セル範囲か …

: 罫線の設定（Borders プロパティ）

罫線の設定罫線を一括（上下左右すべて）で設定するには、Borders プロパテ …

: 数式を非表示にする（FormulaHidden プロパティ）

FormulaHidden プロパティ数式が入力されたセルを選択するとその数式 …

: ２つ以上のセル範囲を１つにまとめて参照（Union メソッド）

Union メソッド Union メソッドは、２つ以上のセル範囲を１つにまとめて …

: グラデーション（Pattern プロパティ・Gradient プロパティ）

セルの背景ににグラデーションを設定する Pattern プロパティを使用するとセ …

: 文字列を縮小して全体を表示（ShrinkToFit プロパティ）

ShrinkToFit プロパティ ShrinkToFit プロパティは、セルに …

PREV: 入力規則（日本語入力）Validation オブジェクト,IMEMode プロパティ
NEXT: オートシェイプの種類を表す定数（MsoAutoShapeType 列挙型）