Excel VBA質問箱 IV

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

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


58570 / 76732 ←次へ | 前へ→

【22888】Re:リストボックスの表示方法
質問  たかし E-MAIL  - 05/3/6(日) 11:23 -

引用なし
パスワード
   ▼G-Luck さん:
private sub conbobox1_change()
で、オートフィルターできました。
それで、Listbox1_Click()でオートフィルターをかけようとしたのですが、
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の列を
  機種の値でオートフィルターしてしまう。

いい方法があれば、教えていただけないでしょうか?
オートフィルターで1行に絞れたとして、その行番号の取得はどうすればいいのでしょうか?よろしくお願いいたします。

1 hits

【22853】リストボックスの表示方法 たかし 05/3/5(土) 0:52 質問
【22871】Re:リストボックスの表示方法 G-Luck 05/3/5(土) 13:42 発言
【22879】Re:リストボックスの表示方法 たかし 05/3/5(土) 15:04 発言
【22881】Re:リストボックスの表示方法 G-Luck 05/3/5(土) 18:08 回答
【22882】Re:リストボックスの表示方法 たかし 05/3/5(土) 19:38 お礼
【22883】Re:リストボックスの表示方法 たかし 05/3/5(土) 20:57 質問
【22884】Re:リストボックスの表示方法 G-Luck 05/3/5(土) 21:10 発言
【22888】Re:リストボックスの表示方法 たかし 05/3/6(日) 11:23 質問
【22889】Re:リストボックスの表示方法 G-Luck 05/3/6(日) 11:47 発言
【22893】Re:リストボックスの表示方法 たかし 05/3/6(日) 13:21 質問
【22895】Re:リストボックスの表示方法 G-Luck 05/3/6(日) 14:57 発言
【22896】Re:リストボックスの表示方法 たかし 05/3/6(日) 16:19 質問

58570 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free