Like演算子の否定を条件にする方法を紹介します。他言語を経験した人は「!」「エクスクラメーション」が頭に浮かぶと思いますが、 VBAでは「Not演算子」を使用します。
Not演算子を使って解決する
条件式の先頭にNotをつけるだけとなります。条件式をカッコで囲うかどうかは好みの問題ですが、筆者的には範囲が明確になるためカッコで囲うことをお勧めします。
サンプルプログラムを確認する(コピペOK)
Sub sample()
If "abcdefg" Like "abc*" Then
Debug.Print "OK1" ' OK1が表示される
End If
If Not ("abcdefg" Like "abc*") Then
Debug.Print "OK2" ' OK2が表示されない
End If
End Sub