| |
いつもありがとうございます。
また困っています。ご助力を御願い致します。
ワークシートの情報
Ａ Ｂ Ｃ Ｄ ・・・
１
２ Ｎｏ． 区分 担当者 直間 ・・・
３ １ 見積 Ａ 直 ・・・
４ ２ 見積 Ｂ 間 ・・・
５ ４ 引合 Ａ 直 ・・・
６ ５ 見積 Ｂ 間 ・・・
７ ８ 引合 Ｃ 間 ・・・
・
・
・
と、いうような感じです。
行は入力をして増えていきますので限界は決まっていません。
区分・担当者・直間での複数検索でヒットした列のＮｏ．を
リストボックスに全て表示させたいのです。
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
このように組んでみました。
それでマクロを走らせて区分の検索条件に「見積」を入力すると
リストボックスには、「１」「２」しか表示されません。
ワークシートを確認するとオートフィルターがかかっており
表示は、３行目（Ｎｏ．１）４行目（Ｎｏ．２）６行目（Ｎｏ．５）と
されています。
改善の方法を教えて頂けないでしょうか？
リストボックスに正常に表示がされるのでしたら、
オートフィルターにこだわりません。
宜しく御願い致します。
|
|
GREEN
- 06/1/23(月) 13:47 -
