Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

47790 / 76732

←次へ　｜　前へ→


	【33888】複数の検索条件をクリアーした情報をリス...

GREEN - 06/1/23(月) 13:47 -


	引用なし

	パスワード

いつもありがとうございます。また困っています。ご助力を御願い致します。ワークシートの情報　　　Ａ　　　Ｂ　　　Ｃ　　　Ｄ　　　・・・１２　Ｎｏ．　区分　担当者　　直間　　　・・・３　　１　　見積　　　Ａ　　　直　　　・・・４　　２　　見積　　　Ｂ　　　間　　　・・・５　　４　　引合　　　Ａ　　　直　　　・・・６　　５　　見積　　　Ｂ　　　間　　　・・・７　　８　　引合　　　Ｃ　　　間　　　・・・・・・と、いうような感じです。行は入力をして増えていきますので限界は決まっていません。区分・担当者・直間での複数検索でヒットした列のＮｏ．をリストボックスに全て表示させたいのです。 Cells(1.2).Select Selection.AutoFilter ActiveSheet.AutoFilterMode = False kub = ComboBox48.Value　　　'区分の検索条件入力 ttan = ComboBox49.Value　　 '担当者の検索条件入力 tyoku= ComboBox50.Value　　 '直間の検索条件の入力 Selection.AutoFilter If kub <> "" Then Selection.AutoFilter Field:=2, Criteria1:=kub　 '区分の検索条件がなければ無視 End If If ttan <> "" Then Selection.AutoFilter Field:=3, Criteria1:=ttan　'同じく、担当者 End If If ttan <> "" Then Selection.AutoFilter Field:=4, Criteria1:=tyoku '同じく、直間 End If Dim CT2 As Range, Cel As Range, LB2tb() As String CE = ActiveSheet.Range("A65536").End(xlUp).Row Set CT2 = Range("A3:A" & CE).SpecialCells(xlCellTypeVisible) ListBox1.Clear ListBox1.List = CT2.Value Set CT2 = Nothing このように組んでみました。それでマクロを走らせて区分の検索条件に「見積」を入力するとリストボックスには、「１」「２」しか表示されません。ワークシートを確認するとオートフィルターがかかっており表示は、３行目（Ｎｏ．１）４行目（Ｎｏ．２）６行目（Ｎｏ．５）とされています。改善の方法を教えて頂けないでしょうか？リストボックスに正常に表示がされるのでしたら、オートフィルターにこだわりません。宜しく御願い致します。