VBA 列に指定した値以外の値が入力されているか調べたい

Question

ある列の値が指定した値以外なのかどうかを調べたいです。
例えば、K列のセルにa,b,c以外の値になっているセルがあれば、「K列にa,b,c以外の値が入っています。」というようなメッセージボックスに表示させられるようにしたいです。

私が調べた中では、K列のセルを1行目から for each で取得して、セルの値を判定する方法までは見つけることができましたが、それでは”指定した値”が入力されているかどうかを調べることには使えますが、”指定した値以外の値”が入力されているかどうかというのはわかりません。

指定した値以外がセルに入力されているかどうかを判定する方法はないでしょうか。
教えて頂けますと幸いです。

Answer 1

a,b,cのセルの数とK列全体の文字列をカウントした数で比較してみました。

Sub nonSpecified()

Dim str(3) As String
str(1) = "a"
str(2) = "b"
str(3) = "c"

With WorksheetFunction
    Dim i As Long, j As Long
    For i = 1 To UBound(str)
        j = j + .CountIf(Columns(11), str(i))
    Next
    If .CountA(Columns(11)) <> j Then
        MsgBox "K列にa,b,c以外の値が入っています。"
    End If
End With

End Sub

オートフィルターでしぼって件数を確認する方法もあるかもしれません。

Comments

[tttkkk]

すみません…。
今の私のVBAのスキルがなさ過ぎて、uboundなどまだ理解の足りない部分がありました。
もう少し勉強した後、radames1000さんのコードを読みかえしたいと思います！。

Answer 2

IF文で判定する場合以下のようになります。

If セルの値 <> "" and セルの値 <> 指定した値1 and セルの値 <> 指定した値2 and セルの値 <> 指定した値3 Then