サンプルDL検索結果が複数ある場合はFindNextメソッドを利用します。Findメソッドは最初に検索されたデータを返してきますが、データがいつも単一でしか存在しないということはありませんから、複数のデータを検索して、その処理をしたいときが出てきます。そんなときに覚えておきたいのが、FindNextメソッドを使った検索です。前回のFindメソッドのファイルをもとに複数検索も出来るようにコードを書き換えていきましょう。シート上のテキストボックスやコマンドボタンはそのままで、今回はコードだけを修正します。テキストボックスには、「txtkenskau」という名前でコンボボックスには、「cmbkensaku」という名前のままです。コードは赤字の部分が修正されたり追加された部分になります。Variant'まず検索用テキストボックスの中に文字の入力があるかどうかをチェックします。Then'氏名の列であるB列の中に検索する氏名があるかどうかをチェックします。LookIn:=xlValues)'検索結果が発見できれば、そのセルを赤くします。「検索氏名」のアドレスを代入します。検索氏名.AddressDo'今回の処理は検索セルに赤い色を付けます。3'ここでFindNextメソッドで検索氏名の次の検索へ移動します。Columns("B:B").FindNext(検索氏名)'検索値がなくなるか、検索値がひとつしかない場合にループから抜けます。firstAddress'検索結果が発見できなければ、次のメッセージを表示します。"検索した氏名は登録されていません。"検索する氏名を入力して下さい。Whileステートメントを使って、連続して検索を行うようにします。FindNextメソッドで最初に検索した値の次の値を検索させ、検索された値にセルを移動させます。If[前へ][トップ][次へ][サンプルファイルダウンロード]。