InStr関数を使う際は

質問

エクセルｖｂａなのですが、InStr関数を使う際は、どの比較モードを使えばいいのでしょうか？

Sub あ()
Dim myStr As String
myStr = "あいうえお"

Debug.Print InStr(1, myStr, "い", vbBinaryCompare)
Debug.Print InStr(1, myStr, "い", vbTextCompare)

Debug.Print InStr(1, myStr, "い", vbUseCompareOption) 'エラーになる
Debug.Print InStr(1, myStr, "い", vbDatabaseCompare) 'エラーになる
End Sub

vbBinaryCompareとvbTextCompareならエラーになりませんが
この二つの違いが判りません。

回答No.2

kkkkkm · ベストアンサー

> vbBinaryCompareとvbTextCompareならエラーになりませんが
> この二つの違いが判りません。

vbBinaryCompare
大文字と小文字が区別されます。
vbTextCompare
大文字と小文字は区別されませんし、ひらがなカタカナも区別されません。
sub test()
Dim myStr As String
myStr = "abcd"

Debug.Print InStr(1, myStr, "A", vbBinaryCompare)
Debug.Print InStr(1, myStr, "A", vbTextCompare)

myStr = "あいうえお"

Debug.Print InStr(1, myStr, "い", vbBinaryCompare)
Debug.Print InStr(1, myStr, "イ", vbBinaryCompare)
Debug.Print InStr(1, myStr, "イ", vbTextCompare)
end sub

vbUseCompareOption
Option Compare Text
もしくは
Option Compare Binary
上記の指定をプロシージャ外で指定して利用するようなりますが、実際変数定義されていませんのでエラーになります。VBA以外で利用できるのを誤記しているのかもしれません。

お礼

ありがとうございました。

回答No.3

kkkkkm

訂正：
変数定義されていません
↓
vbUseCompareOption定数がシステムで定義されていません

お礼

ありがとうございました。

回答No.1

noname#212058

以下のページにそれぞれの意味が解説されています。
http://note.phyllo.net/?eid=1106064

vbDatabaseCompare は Access のみ使用可（Excel では使用不可）なのでエラーになります。

vbUseCompareOption を指定した場合は "Option Compare" の設定になりますが、これはデフォルトでは Binary モード（vbBinaryCompare）なので通常であれば使えるはずです。試しに手元の Excel 2010 で試したら動きました。本当に動かないですか？

お礼

ありがとうございました。