VBA IF文をCASE文にしたいのですが

質問

お尋ねします。VBAで以下のようなIF文をCASE文に書き換えたいのですが、うまくいきません。
どなたかアドバイスをいただけないでしょうか。
よろしくお願いします。

部分だけ抜き出していますが、文字列が日本語かどうかを判定しています。

CD = Asc(strNm)

If CD >= -30561 And CD <= -26510 Then 　　　'漢字(第一水準)"
　　i = i + 1 '文字数記録
ElseIf CD >= -26415 And CD <= -5468 Then 　　'"漢字(第二水準)"
　　i = i + 1
ElseIf CD >= -31936 And CD <= -31850 Then　 '"カタカナ"
　　i = i + 1
ElseIf CD >= -32097 And CD <= -32015 Then 　'"ひらがな"
　　i = i + 1
ElseIf CD >= -1444 And CD <= -949 Then 　　　'"漢字(その他)"
　　i = i + 1
End If

回答No.2

mu2011 · ベストアンサー

こんな方法もあります。
Select Case True
Case　CD >= -30561 And CD <= -26510 Or _
　　　CD >= -26415 And CD <= -5468 Or _
　　　CD >= -31936 And CD <= -31850 Or _
　　　CD >= -32097 And CD <= -32015 Or _
　　　CD >= -1444 And CD <= -949
i = i + 1
End Select

お礼

ありがとうございます。
うまくいきました！！感謝です。

回答No.1

kmee

どう置き換えたら、どううまくいかなかったのですか?

http://msdn.microsoft.com/ja-jp/library/office/gg278665.aspx
toで範囲指定でできそうな気がしますが