Like演算子
書名の検索を学習しています。フルネームで書籍名を入力できればそれにこしたことはありませんが、書名の一部しかわからない場合には「Like演算子」とワイルドカード文字「*」を使用して抽出条件を設定します。
(注) ワイルドカード文字「*」は、任意の文字列に対応します。書名が「月」を含む文字列を表すには「Like"*月*"」のように記述します。
例： If Cells(I,”C”) like “月” Then
【練習問題9】
あいまい検索をしてみましょう。書名の中に「月」が含まれている書名をメッセージボックスで表示してみましょう。書名はＣ列に入っています。検索結果は3件です。実行する前に必ずワークシート「検索結果」を戻しておきましょう。
サンプルデータvba-exercises.xlsm「VBA練習問題」とサンプルデータbooks-list.xlsx「図書目録」をダウンロードし、同一フォルダーに保存しておいてください。
【解答例】
- Sub 練習問題9() 'あいまい検索
- Dim Ws As Worksheet
- Dim i As Integer
- Dim c As Integer 'データの最終行
- Set Ws = Worksheets("検索結果")
- c = Ws.Range("A2").End(xlDown).Row
- For i = 2 To c
- If Cells(i, "C") Like "*月*" Then
- MsgBox Cells(i, "C")
- End If
- Next i
- End Sub