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

関連記事

: 重複するデータを削除（RemoveDuplicates メソッド）

RemoveDuplicates メソッド指定したセル範囲から重複データを含む …

: セルの特定の要素のみをペーストする（PasteSpecial メソッド）

PasteSpecial メソッド PasteSpecial メソッドは、Cop …

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

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

: 入力規則（入力時メッセージの設定）Validation オブジェクト

入力規則の入力時メッセージを表示する Validation.ShowInput …

: 文字列の一部の書式を変更（Characters プロパティ）

文字列の一部を参照（Characters プロパティ） Characters プ …

: セル範囲を結合・結合を解除（MergeCells プロパティ）

MergeCells プロパティ MergeCells プロパティは、指定したセ …

: 連続データを入力する（AutoFill メソッド）

AutoFill メソッド Excel で、連続するデータを入力する「オートフィ …

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

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

: セルの値を置換（Replace メソッド）

Replace メソッド任意のセル範囲内から特定の値を一括して置換します。Fi …

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

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

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