入力規則のリスト入力を確認する

最終更新日：2013-10-28

入力規則のリスト入力を確認する

入力規則のリスト入力は、Excelの機能の中でも頻繁に使われる機能です、

目的の１つとして、リスト内のデータのみの入力に限定したいと言う事がありますが、

コピペで値の貼り付けを行うと、どんな値も入力出来てしまいます。

結果として、意図しない値が入力されてしまう事があります。

これを、入力規則のリスト内のデータが正しく入力されたかどうか判定する方法になります。

Sub sample()
　　Dim rng As Range
　　For Each rng In Selection
　　　　If isValidationOk(rng) = False Then
　　　　　　MsgBox rng.Address & "：入力値不正"
　　　　End If
　　Next
End Sub

Function isValidationOk(ByRef rng As Range) As Boolean
　　Dim i As Integer
　　Dim strList As String
　　Dim strSplit() As String
　　On Error Resume Next
　　With rng
　　　　'入力規則のリストかどうか
　　　　If .Validation.Type = xlValidateList Then
　　　　　　'入力規則がない場合はエラーが発生するので
　　　　　　If Err.Number > 0 Then
　　　　　　　　Err.Clear
　　　　　　　　isValidationOk = True
　　　　　　　　Exit Function
　　　　　　End If
　　　　Else
　　　　　　'入力規則のリスト以外はチェックしない
　　　　　　isValidationOk = True
　　　　　　Exit Function
　　　　End If
　　　　'入力規則のリストのデータを配列に取得
　　　　If Left(.Validation.Formula1, 1) = "=" Then
　　　　　　'リストがセル範囲指定の場合
　　　　　　With Range(Mid(.Validation.Formula1, 2))
　　　　　　　　ReDim strSplit(.Count - 1)
　　　　　　　　For i = 1 To .Count
　　　　　　　　　　strSplit(i - 1) = .Item(i).Value
　　　　　　　　Next
　　　　　　End With
　　　　Else
　　　　　　'リストデータが直接指定の場合
　　　　　　strSplit = Split(.Validation.Formula1, ",")
　　　　End If
　　　　'入力規則のリスト配列にあるかの判定
　　　　For i = LBound(strSplit) To UBound(strSplit)
　　　　　　If strSplit(i) = .Value Then
　　　　　　　　isValidationOk = True
　　　　　　　　Exit Function
　　　　　　End If
　　　　Next
　　　　'入力規則のリスト配列にないのでエラー
　　　　isValidationOk = False
　　　　Exit Function
　　End With
End Function

sampleでは、選択セル範囲において、入力規則のリスト内のデータか判定し、

それ以外が入力されている場合は、メッセージを表示しています。

入力規則において、

直接、リストデータを入れている場合は、

Range.Validation.Formula1

に、"A,B,C,・・・"のように、文字列として入っていますが、

他のセル範囲を参照している場合は、

"="に続けてセル範囲のアドレスが入っています。

そこで、セル範囲の値を取得し、そのセル範囲の値になっているかを確認する必要があります。

本来、入力規則まで設定してあるのに、他の値を入れてしまう事自体に問題があり、

それは、使用者に対する注意事項として伝えるへきものではありますが、

万一、リスト以外のデータが入力されてしまった場合に、その後の処理に支障をきたすのであれば、

やはりチェックしておく必要出てきます。

そのような場合があれば、参考にして下さい。