|
いつもありがとうございます。
また困っています。ご助力を御願い致します。
ワークシートの情報
A B C D ・・・
1
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)と
されています。
改善の方法を教えて頂けないでしょうか?
リストボックスに正常に表示がされるのでしたら、
オートフィルターにこだわりません。
宜しく御願い致します。
|
|