VBA：英字以外に処理をしたい

Question

前提・実現したいこと

VBAについて質問です。
以下のプログラムは
「B列にもし半角スペース,全角スペースがあれば色を付ける」　という処理をしています。

B列には英語の文字列と漢字の文字列があり、
漢字の文字列のみに処理をしたいです。

該当のソースコード

Sub test()

Dim ws As Worksheet
Set ws = Worksheets("Sheet1")
Dim i

 
 For i = 1 To Range("B10000").End(xlUp).Row
  
If InStr(ws.Range("B" & i), " ") > 0 Or InStr(ws.Range("B" & i), "　") > 0 Then
   
     ws.Range("B" & i).Interior.ColorIndex = 3
End If

  Next

End Sub

試したこと

英字以外に処理をする　というコードを書けばいいのかと思い、
調べたところ

  Dim reg     As New RegExp       '// 正規表現クラスオブジェクト
    
    '// 検索条件＝英字以外を抽出
    reg.Pattern = "[^a-zA-Z]"

このプログラムがでてきたのですが、これをどうIF文のなかにいれればいいのかが
わからないです。

よろしくお願いいたします。

Answer 1

英字以外に処理をする
つまり、
英字を含まないセルに対して処理をする
ということでよいのなら、
Like演算子を使って、

If Not ws.Range("B" & i) Like "*[a-zA-Z]*" Then
     ws.Range("B" & i).Interior.ColorIndex = 3
End If

Comments

[aaaskw123123]

ご回答ありがとうございます。
なるほどです！
IF　Not
初めて知りました!
勉強になります。

Answer 2

こんな感じで。

If reg.Test(ws.Range("B" & i)) Then

Comments

[aaaskw123123]

Dim reg As New RegExp

reg.Pattern = "[^a-zA-Z]"
If reg.Test(ws.Range("B" & i)) Then

End If
End sub

[aaaskw123123]

ご回答ありがとうごいます。
↑のようなコードになるのでしょうか？

[jinoji]

そうです。

[aaaskw123123]

Dim　reg As New RegExp

のところでユーザ定義型は定義されていません

とエラーメッセージがでてしまいます。

[jinoji]

参照設定をする必要があります。

[aaaskw123123]

設定変更をしたら実行できたのですが、
英字にも処理がされてしまいます。

[hex309]

横から失礼します。
実際に作成されたコードを提示されたほうがよろしいかと思います。

[aaaskw123123]

最初のコードと同じです。

[jinoji]

ちゃんと
If reg.Test(ws.Range("B" & i)) Then
ws.Range("B" & i).Interior.ColorIndex = 3
End If
と囲みました？

Answer 3

ご参考まで

https://q.hatena.ne.jp/1528175331

Comments

[aaaskw123123]

ご回答ありがとうございます!参考になります.