ＶＢＡ ＩＦステートメントがうまくできません

質問

Sub tset1()
Dim URL As String
URL = "http://oshiete.coneco.net/mypage#tabs"

If URL Like "http://oshiete.coneco.net/mypage#tabs" Then
MsgBox "成功！"
End If

End Sub

を実行すると、URL の値は"http://oshiete.coneco.net/mypage#tabs"なのに、
"成功！"が表示されません。

#が曲者のような気がしますが、これ以上わかりません。

URL = "http://oshiete.coneco.net/mypage"にすれば、うまくいきした。

#があっても、ＩＦステートメントが使えるようにするにはどうすればいいでしょうか？
ご回答よろしくお願いします。

回答No.3

tsubuyuki · ベストアンサー

> #が曲者のような気がしますが、これ以上わかりません。

ここまでわかったら、もう一捻りでしたね。
比較する式にLike演算子を使っちゃったので、
「＃はワイルドカード文字（任意の数字１文字）なんだろう」
と判断してしまったようですね。

なので、
> #があっても、ＩＦステートメントが使えるように
これの直接の回答としては
　　If URL = "http://oshiete.coneco.net/mypage#tabs" Then
として、＃をワイルドカードと見せない方法が一番早いですね。

色々試してみるのが一番です。
例えば
Sub test1()
Dim URL As String
　　URL = "http://oshiete.coneco.net/mypage2tabs"

　　If URL Like "http://oshiete.coneco.net/mypage#tabs" Then
　　　　MsgBox "成功！"
　　End If
End Sub
これは動きます。
Ifで比較する文字列の＃の位置が「２」と言う数字１文字だからです。

例えば、代入する文字列を
　　URL = "http://oshiete.coneco.net/mypage12tabs"
としてやると、これは動きません。
比較する文字列の＃の位置に「１２」と数字が２文字、入っていますから。
これを目的通り動かしたいなら、
　　If URL Like "http://oshiete.coneco.net/mypage##tabs" Then
としてやる必要があります。

例えば、代入する文字列を
　　URL = "http://oshiete.coneco.net/mypageAtabs"
としてやると、これもやっぱり動きません。
Ifで比較する文字列の＃の位置が「A」と言う文字だからです。
文字列も許可するのであれば、
　　If URL Like "http://oshiete.coneco.net/mypage?tabs" Then
として、「任意（文字も数字も含めて）の１文字」としてやらないといけません。

「VBA Like」などで検索すると、噛み砕かれた説明をしてくれているサイトが
バシバシヒットしてきますので、参考になさってくださいませ。

お礼

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

回答No.2

emanon112

正しい使い方か自信はありませんが、以下例文です。
(詳しい方から見ると場繋ぎ的な対処法かもしれません……。)

Sub tset1()
Dim URL As String
URL = "http://oshiete.coneco.net/mypage#tabs"

If URL Like "http://oshiete.coneco.net/mypage[#]tabs" Then
MsgBox "成功！"
End If

End Sub

【解説】
Like関数では「*」や「#」がワイルドカードとして扱われるため、「[]」でワイルドカード文字を括ってワイルドカードとして認識させない方法です。
# (任意の1文字の数字 (0-9))を[#]とすることで、[]で括られた文字のどれかという認識のさせ方です。
ここでは#しかくくっていないので、必然的に#が選択されます。

もう少し詳しい[]の使い方の詳細は以下参照ください。
http://www.geocities.jp/cbc_vbnet/kisuhen/enzanshi.html#hikaku

お礼

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

回答No.1

keithin

意図があってやってるのでなければ、Like演算子なんてわざわざ使わずふつーに

If URL = "http://oshiete.coneco.net/mypage#tabs" Then

としてください。

＃補足
ダメな理由はＶＢＡのヘルプでLike演算子の使い方をキチンと読んでみると、＃の文字がパターンマッチングのワイルドカードになっていることが書いてあります。
どうしてもLikeを使いたいなら、＃を含んだ文字をどうやって検査したらいいのかもそこに書いてあります。

お礼

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