Ｐａｇｅ 748 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼検索したデータをリストボックスに表示す... さる 03/2/10(月) 20:22 ┗Re:検索したデータをリストボックスに表示す... ハマゾウ 03/2/10(月) 23:09 ┗Re:検索したデータをリストボックスに表示... さる 03/2/15(土) 11:19 ┗Re:検索したデータをリストボックスに表示... ハマゾウ 03/2/15(土) 12:23 ┗Re:検索したデータをリストボックスに表示... さる 03/2/16(日) 9:51 ─────────────────────────────────────── ■題名 ： 検索したデータをリストボックスに表示す... ■名前 ： さる ■日付 ： 03/2/10(月) 20:22 -------------------------------------------------------------------------
| ユーザーフォームにtextbox1,commandbutton1,listbox1,listbox2があります。 textbox1に入力した文字列が、sheet1にあれば（入力した文字列との完全一致ではなく、入力した文字の後に任意の文字列があります。）、listbox1に表示されるようにしたいのですが、どうしたらいいのでしょうか？検索結果は１件だけではなく、複数です。 よろしくお願いします。 |
| ▼さる さん： 以下のコードをお試しください。 Private Sub CommandButton1_Click() If TextBox1.Text = "" Then Exit Sub End If With ListBox1 .Clear For Each Ce In Sheets("sheet1").UsedRange If Ce.Text Like "*" & TextBox1.Text & "*" = True Then .AddItem Ce.Text End If Next End With End Sub |
| ▼ハマゾウさん： 返事が送れて申し訳ありません。今試してみましたら出来ました。 図々しいかもしれませんが、もうひとつお聞きしたいのでお願いします。 使用するuserformは同じ物で、検索先のシートも同じです。 例えば、sheet1のA列に商品Noが、B列に商品名が入力されているとします。 textbox1に商品Noか商品名を入力して、commanndbuttonをクリックすると、 listbox1に商品名を表示する。 商品Noで検索した場合は、任意の文字列はなく、入力した商品Noのみと一致する 商品名をlistbox1に表示する。 というようなことは出来るんでしょうか？ 前回の質問で頂いた回答で、商品Noで検索すると、商品Noがそのままlistbox1に 表示されるので、コードを変えてみようと思いましたが、どこをどう変更すればいいのか わかりませんでした。面倒なこととは思いますが、よろしくお願いします。 |
| ▼さる さん： こういうことですか？ Private Sub CommandButton1_Click() If TextBox1.Text = "" Then Exit Sub End If With ListBox1 .Clear For Each Ce In Sheets("sheet1").UsedRange If Ce.Text Like "*" & TextBox1.Text & "*" = True Then .AddItem Sheets("sheet1").Cells(Ce.Row, 2).Text End If Next End With End Sub |
| ハマゾウさん、ありがとうございました。 完璧です。 さるはまだまだ勉強中ですので、また機会がありましたら、 ご指導よろしくお願いします。 本当にありがとうございました。 |