Excel VBA質問箱 IV

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

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


47790 / 76732 ←次へ | 前へ→

【33888】複数の検索条件をクリアーした情報をリス...
質問  GREEN  - 06/1/23(月) 13:47 -

引用なし
パスワード
   いつもありがとうございます。
また困っています。ご助力を御願い致します。

ワークシートの情報
   A   B   C   D   ・・・

2 No. 区分 担当者  直間   ・・・
3  1  見積   A   直   ・・・
4  2  見積   B   間   ・・・
5  4  引合   A   直   ・・・
6  5  見積   B   間   ・・・
7  8  引合   C   間   ・・・



と、いうような感じです。
行は入力をして増えていきますので限界は決まっていません。

区分・担当者・直間での複数検索でヒットした列のNo.を
リストボックスに全て表示させたいのです。


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


このように組んでみました。
それでマクロを走らせて区分の検索条件に「見積」を入力すると
リストボックスには、「1」「2」しか表示されません。
ワークシートを確認するとオートフィルターがかかっており
表示は、3行目(No.1)4行目(No.2)6行目(No.5)と
されています。

改善の方法を教えて頂けないでしょうか?
リストボックスに正常に表示がされるのでしたら、
オートフィルターにこだわりません。

宜しく御願い致します。
1 hits

【33888】複数の検索条件をクリアーした情報をリス... GREEN 06/1/23(月) 13:47 質問
【33893】Re:複数の検索条件をクリアーした情報を... GREEN 06/1/23(月) 14:28 質問
【33894】Re:複数の検索条件をクリアーした情報をリ... Statis 06/1/23(月) 14:32 回答
【33896】Re:複数の検索条件をクリアーした情報を... GREEN 06/1/23(月) 15:32 質問
【33897】Re:複数の検索条件をクリアーした情報を... Statis 06/1/23(月) 15:56 回答
【33901】Re:複数の検索条件をクリアーした情報を... GREEN 06/1/23(月) 16:18 お礼
【33906】Re:複数の検索条件をクリアーした情報を... Statis 06/1/23(月) 16:53 回答
【33911】Re:複数の検索条件をクリアーした情報を... GREEN 06/1/23(月) 17:13 お礼

47790 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free