エクセル2013VBAでのInStr関数でのvbUseCompareOption

Question

https://msdn.microsoft.com/ja-jp/library/office/gg264811(v=office.15).aspx

上記のページにてinstr関数のcompare 引数の設定値に

vbUseCompareOptionが記載されていますが、これを記述すると

変数が定義されていません

というエラーになりvbUseCompareOption部分が反転表示されます。

(Option Compare TextはOption Explicitとともに指定してます。)

vbBinaryCompare

vbTextCompare 

上記の2個についてはエラーになりません。

オブジェクトブラウザでみてもvbUseCompareOptionが存在しないのですが、何か参照設定とかで設定しないといけないものがあるのでしょうか。

VBAのバージョンは1049となっています。Version 1049 　VBA Retail7.1.1049

Answer 1

AddinBox_Tsunoda さん、アドバイスありがとうございます。

kmetu さん、こんにちは。

マイクロソフト コミュニティへの投稿、ありがとうございます。

サポートページの表記の通りに記述するとエラーが表示されるのですね。

調べてみてもほかに vbUseCompareOption での有効な情報が書いてあるようなページは見つかりませんでした。

実際にエラーが出てしまっている状況なので、サポートページ側の間違いの可能性が高いと思います。。

お手数をおかけしますが、＜今回のページ＞の下の方にある『このページは役に立ちましたか。』の欄で『いいえ』を選択すると意見を送信することができますので、そちらからフィードバックをお願いします。

Answer 2

該当ページでいいえを選択しフィードバックにてエラーになる旨報告させていただきました。

Answer 3

回答ありがとうございます。

古いバージョンでの定義も見ていただきありがとうございました。

ヘルプページ以外の解説ページでもちらほらvbUseCompareOptionが利用できると説明してるところがありますが、ヘルプを丸写しで検証してないんですね。

VB6とかの古いバージョンの時代(この時代のエクセルのバージョンはわかりませんが)で使えたもののヘルプをそのまま修正されずに今まで残ってるのかもと思われるページを見つけました。

VB5でVB6の関数を実現するコードに

Public Const vbUseCompareOption = -1

をわざわざ入れてるのでそんな気がします。

http://www5b.biglobe.ne.jp/~yone-ken/VB/Func/vbTips006.txt

ちなみに、VB2013のヘルプでvbUseCompareOptionを検索しても出てきませんでした。

どちらにしてもヘルプページの間違いでしたら直していただきたいものですよね。

Answer 4

こんにちは。

vbUseCompareOption は Excel97 -2010 でも 未定義になってますし、

その値である筈の [ -1 ] を指定するとエラーになります（当然、第１引数も指定）。

ヘルプの間違いでしょう。

昔からの間違いが修正されずに残っている事は、よくある事です。