Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

58638 / 76807

←次へ　｜　前へ→


	【22895】Re:リストボックスの表示方法

G-Luck - 05/3/6(日) 14:57 -


	引用なし

	パスワード

▼たかしさん：
>リストボックスには"機種"、"管理番号"、"シリアル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　は可視セルです。

1 hits

▼

【22853】リストボックスの表示方法 たかし 05/3/5(土) 0:52