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

関連記事

: 対象のセルが参照している全てのセルを取得（Precedents プロパティ）

Precedents プロパティ Precedents プロパティは、対象のセル …

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

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

: AutoFilter オブジェクト（メソッド・プロパティ）

AutoFilter.ShowAllData メソッド AutoFilter.S …

: 並べ替え（Sort オブジェクト, SortFields コレクション）

Sort オブジェクトによる並べ替え Excel 2007 以降のバージョンでの …

: 列幅を取得・設定・する（ColumnWidth プロパティ）

ColumnWidth プロパティ ColumnWidth プロパティは、対象セ …

: 対象のセルを直接参照しているセル全てを取得（DirectDependents プロパティ）

DirectDependents プロパティ DirectDependents …

: 使用中のセル範囲を取得（CurrentRegion プロパティ）

CurrentRegion プロパティ CurrentRegion プロパティは …

: オートフィルタ（平均より上・平均より下）AutoFilter メソッド

平均値よりも大きい（小さい）値のレコードを抽出 AutoFilter メソッドで …

: セルの値を置換・書式設定（Replace メソッド,ReplaceFormat プロパティ）

セルの値の置換と書式設定検索条件に一致するセルの書式を設定するには、まず、Ap …

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

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

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