Excel のVBAでの文字列比較

Question

VBAについてご教示ください。

buffer_split(10) の中身は「今日はジョンソンが勝ちました」「終了時のマイケルは明るい」などの短文が入っています。
人の名前で処理を分岐をしたいと考えておりますが、下記ではうまく比較が出来ておりません。

MsgBox buffer_split(10)
If InStr(buffer_split(10), "*ジョンソン*") > 0 Then
    MsgBox "Jonson"
ElseIf InStr(buffer_split(10), "*マイケル*") > 0 Then
    MsgBox "Mikel"
End If

MsgBoxでbuffer_split(10)を表示させた場合に人名が含まれているのですが、MsgBoxでJonsonやMikelが表示されません。
分岐時の条件に一致していないためと思われますが、どのように変更すれば一致するでしょうか？

Answer 1

部分一致の比較の２つの方法をゴッチャにしているようです。

Like演算子

buffer_split(10) Like "*ジョンソン*"

InStr関数

InStr(buffer_split(10), "ジョンソン") > 0

Comments

[zeijaku.net]

比較に関する公式が混ざってしまっていたようです。
こちら修正を行い問題が解決しました。
大変助かりました。
ありがとうございます。

Answer 2

分岐時の条件に一致していないためと思...

それが怪しいと思っているなら 試してください。

If文の最後に Else をおいて、そこのコードが実行されるようなら 条件式が おかしい ということに。

Comments

[zeijaku.net]

説明が不足しておりました。
最後にElseを置いて実行した場合は、その部分が実行されるので何らかの原因で条件に一致していないと考えております。
しかしbuffer_split(10)には対象となる文字列が含まれておりMsgBoxで表示されていることもあり、恥ずかしながらなぜ一致しないのかが分からない状態となっております。

[BeatStar]

そもそも buffer_split() には何が入っているのでしょうか。
例文"今日はジョンソンが勝ちました" とかがはいっているのでしょうけど、
どういう風に入っているのかすら...

たとえば、C言語みたいに
0番目: "今"
1番目: "日"
2番目: "は"
...

となっていて、それの 10番目 にアクセスしているつもりなのか、

それの 10番目ではなくて 11個 ( 0 ～ 10 ) を...って言う意味としてなのか...

とかのような条件次第で意味が変わってきます。

なので、質問の方の"編集" だったかな。
あれで追加してください。