|
▼たかし さん:
>リストボックスには"機種"、"管理番号"、"シリアルNo"
>が表示されていて、オートフィルターをかけると、選択した行の"機種"列にある
>機種名(たとえば"AAA")で"管理番号""シリアルNo"もオートフィルターをかけ
>てしまうので、シートには何も表示されなくなってしまいます。
Val = List(N,M)
のようにすれば、リストの任意の値が取得できます。
Range("E1").AutoFilter Field:=1, _
Criteria1:=ListBox1.List(ListBox1.ListIndex,0)
Range("E1").AutoFilter Field:=2, _
Criteria1:=ListBox1.List(ListBox1.ListIndex,1)
Range("E1").AutoFilter Field:=3, _
Criteria1:=ListBox1.List(ListBox1.ListIndex,2)
のような感じで出来ませんか?
>>AutoFilter.Range でオートフィルターの対象範囲が取得できます。
>これは、最後にオートフィルターをして獲得したセルを取得でいいのですかね?
全体ですね。
対象範囲がA2:N10ならA2:N10です。
>>Specialcell '特殊セルの取得
>>を使ってみてはどうですか?
>特殊セルとは、たとえばどんなセルですか?
引数によって変わります。
Helpを参照してください。
いろいろ有りますので、
たとえば、xlCellTypeVisible は可視セルです。
|
|