40回2番めのリストの選択項目によるデータ抽出リストボックス2のテキストに応じて、テキストボックスに対応するデータを表示するようにします。今回は、Do~Loopステートメントを使って、データのあるシートから目的のデータを見つけ、対応する列のデータをフォームのテキストボックスに取得します。マクロ40回サンプルデータ)リストボックスの値によってテキストボックスが変わる今度は残る二つのテキストボックスの表示を設定します。テキストボックス1とテキストボックス2に入れるデータをリストボックス2の選択によって表示するようにします。ListBox2の上で右クリックして、コードの表示を選択するか、ダブルクリックでコードを表示します。ListBoxコントロールオブジェクトのイベントコードが表示されます。Sub探すデータは、Sheet2にあります。ListBox2にはB列のデータのどれかが表示されているので、そのデータを見つけて、隣のC列とD列のデータをテキストボックスに表示させるようにしたいわけです間に、次のようなコードを記述します。Untilを使います。""は、テキストボックス1の値をクリアしています。2)になるまでループしなさい。」という意味になります。Sub2番めのリストに対応するデータを表示フォームを起動して確認します。ListBox1からアイテムを選択すると、ListBox2のデータアイテムが表示されます。ListBox2でアイテムを選択すると、対応するデータを探して、テキストボックス1とテキストボックス2に表示します。