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

関連記事

: ハイパーリンク（Hyperlink オブジェクトのメソッド）

Hyperlink オブジェクトのメソッド Hyperlinks コレクション …

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

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

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

AutoFilter.ShowAllData メソッド AutoFilter.S …

: 対象のセルが配列数式の一部かどうか（HasArray プロパティ）

HasArray プロパティ HasArray プロパティは、対象のセルが配列数 …

: 次の検索（FindNext メソッド,FindPrevious メソッド）

FindNext メソッド Find メソッドで開始された検索を継続します。引数 …

: 文字列をセル幅で折り返す（WrapText プロパティ）

WrapText プロパティ WrapText プロパティは、セルに表示されてい …

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

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

: 対象のセル・セル範囲に数式があるかどうか調べる（HasFormula プロパティ）

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

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

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

: セル・セル範囲を切り取る（Cut メソッド）

Cut メソッド Cut メソッドは、指定したセル範囲を切り取り、引数に指定した …

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