|
▼たかし さん:
>Listbox1に表示している3つのセルの1番左の値でのオートフィルターしか
>できません。
>
>Dim CT2 As Range, Cel As Range, LB2tb() As String
> Worksheets("データ1").Activate
> LtW = ListBox1.List(ListBox1.ListIndex)
> Range("E1").AutoFilter Field:=4, Criteria1:=LtW
> ↑
> これを何に変えてもオートフィルターで選択する値が変更できない。
> シリアルNoでオートフィルターしたいのに、シリアルNoの列を
> 機種の値でオートフィルターしてしまう。
AutoFilter を三回かけてみては?
AutoFilter の Field:=1 がフィルターの対象列になります。
左から1,2,3です。
>オートフィルターで1行に絞れたとして、その行番号の取得はどうすればいいのでしょうか?よろしくお願いいたします。
AutoFilter.Range でオートフィルターの対象範囲が取得できます。
それと、
Offset 'セル範囲の移動
Resize 'セル範囲の変更
Specialcell '特殊セルの取得
を使ってみてはどうですか?
|
|