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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 指定したセルへ移動（Goto メソッド）

指定したセルへ移動指定したシートの指定したセルへジャンプするには、Goto メ …

: 行・列の表示・非表示（Hidden プロパティ）

Hidden プロパティ Hidden プロパティに True を設定することで …

: セル・セル範囲をコピーする（Copy メソッド）

Copy メソッド Copy メソッドは、セル範囲をコピーし、指定したセル範囲に …

: オートフィルタ（抽出条件で使用できる演算子・記号）AutoFilter メソッド

AutoFilter メソッド【書式】 object.AutoFilter ( …

: 終端セルを参照する（End プロパティ）

End プロパティ End プロパティは、基準となるセルが含まれる領域の指定した …

: 入力規則（Validation オブジェクト）

Validation オブジェクトセル範囲に入力できる値を制限するには入力規 …

: ワイルドカードを使って検索（Find メソッド）

Find メソッド指定したセル範囲内の特定の情報を含むセルを検索します。【書 …

: セルを参照する（Cells プロパティ）

Cells プロパティ Cells プロパティは、ワークシートの行番号と列番号を …

: セルの位置を取得（Left プロパティ、Top プロパティ）

Left プロパティ・Top プロパティ Left プロパティは、「A列」の左端 …

: オートフィルタ（アイコンで抽出する）AutoFilter メソッド

オートフィルタ（アイコンで抽出する） Excel 2007 から、条件付き書式で …

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