[[20140223142501]]　『『エクセルでサジェスト機能』（部分一致）』（ナッツ）　ページの最後に飛ぶ

『『エクセルでサジェスト機能』（部分一致）』（ナッツ）

過去の質問2013年5月24日（20130524131615）にて、
「エクセルでサジェスト機能」を前方一致で可能とする方法が記載されています。
これを「前方一致」ではなく「部分一致」で行う記述方法を教えていただけないでしょうか。

＜使用 Excel：Excel2007、使用 OS：Windows7 ＞

下記のように変更するとどうでしょうか

 If c.Value Like Tg.Value & "*" Then
 を
 If c.Value Like "*" & Tg.Value & "*" Then

（マナ） 2014/02/23(日) 15:38

できました！！
助かりました。本当にありがとうございます。
（ナッツ） 2014/02/23(日) 16:07

追加の質問で恐れ入ります。
このケースで、全角・半角を問わず検索することは可能でしょうか？

たとえば、「エクセル」と入力して、
検索対象範囲にある「ｴｸｾﾙ」を検索することは可能でしょうか。
（ナッツ） 2014/02/23(日) 21:52

横から失礼します。

 「StrConv 関数」が便利です。

 以下ヘルプ抜粋のコピーです。

 StrConv 関数の定数

 vbUpperCase 1 文字列を大文字に変換します。 
 vbLowerCase 2 文字列を小文字に変換します。 
 vbProperCase 3 文字列の各単語の先頭の文字を大文字に変換します。 
 vbWide 4 文字列内の半角文字 (1 バイト) を全角文字 (2 バイト) に変換します。国別設定.の設定が中国、韓国、および日本の場合に適用されます。 
 vbNarrow 8 文字列内の全角文字 (2 バイト) を半角文字 (1 バイト) に変換します。国別情報の設定が中国、韓国、および日本の場合に適用されます。

 > If c.Value Like "*" & Tg.Value & "*" Then
 ↓
 If StrConv(c.Value ,8) Like "*" & StrConv(Tg.Value ,8) & "*" Then

 又は

 If StrConv(c.Value ,4) Like "*" & StrConv(Tg.Value ,4) & "*" Then

（カリーニン） 2014/02/23(日) 22:13

できました。
ヘルプをよく確認せず、恐縮です。

マナさま、カリーニンさま、
迅速かつ正確なお返事ありがとうございました。
（ナッツ） 2014/02/23(日) 22:27

 ちんたら書いている内にレスが・・・。
 一応書いておきます。

 こっちかな？

[[20090225013003]]　『EXCEL VBA Findで逆方向に検索』（たちお）
（カリーニン） 2014/02/23(日) 22:30

コメント返信：

[ 一覧(最新更新順) ]

[[20140223142501]] 『『エクセルでサジェスト機能』（部分一致）』（ナッツ） ページの最後に飛ぶ

[[20140223142501]]　『『エクセルでサジェスト機能』（部分一致）』（ナッツ）　ページの最後に飛ぶ