| |
▼たかし さん：
>Listbox1に表示している3つのセルの1番左の値でのオートフィルターしか
>できません。
>
>Dim CT2 As Range, Cel As Range, LB2tb() As String
> Worksheets("データ１").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 '特殊セルの取得
を使ってみてはどうですか？
|
|
G-Luck
- 05/3/6(日) 11:47 -
