Excel VBA質問箱 IV

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

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


37817 / 76732 ←次へ | 前へ→

【44076】オートフィルタで抽出したデータをUserForm上のListBoxに表示
質問  たかし  - 06/11/2(木) 18:27 -

引用なし
パスワード
   いつもお世話になっています。
過去ログを参考に、下記のコードを作成しました。
Private Sub CommandButton3_Click()
 Dim CT2 As Range, Cel As Range, LB2tb() As String
 
 Worksheets("Result").Range("A1").AutoFilter Field:=1, _
  Criteria1:="*" & TextBox1.Value & "*"
 CE = Worksheets("Result").Range("A65536").End(xlUp).Row
  Set CT2 = Worksheets("Result").Range("A2:B" & CE).SpecialCells _
       (xlCellTypeVisible)
   ListBox1.ColumnCount = 2
   Cnt = 0
   For Each Cel In CT2
     On Error Resume Next
     mt = Application.Match(Cel, ListBox1.List, 0)
     If IsError(mt) Or mt = Empty Then
      Cnt = Cnt + 1
      ReDim Preserve LB2tb(1 To Cnt)
      LB2tb(Cnt) = Cel
     End If
     ListBox1.List = LB2tb
     ERR.Clear
     On Error GoTo 0
   Next
   ListBox1.List = CT2.Value
   Set CT2 = Nothing
   Erase LB2tb
   Application.ScreenUpdating = True
End Sub

質問なんですが、このコードだとオートフィルタ後のデータの、上から
連続した行しかListBoxに表示されません。
データ数が多い為、他のセルでもオートフィルタをかけ、絞込み後にListBox
から欲しい行を抽出しようとしたのですが、やはりListBoxに表示されるのは
上から連続した行のみになってしまいます。

例えば、オートフィルタ後に抽出された行が2,3,6,7,9だったとすると、
ListBoxに表示される行は、2,3だけになってしまいます。

オートフィルタ後に表示されている全ての行をListBoxに表示する方法はないでしょうか?
よろしくお願いします。

0 hits

【44076】オートフィルタで抽出したデータをUserForm上のListBoxに表示 たかし 06/11/2(木) 18:27 質問
【44079】Re:オートフィルタで抽出したデータをUser... ToShiYo 06/11/3(金) 7:27 発言
【44080】Re:オートフィルタで抽出したデータをUser... kobasan 06/11/3(金) 8:19 回答
【44081】Re:オートフィルタで抽出したデータをUser... kobasan 06/11/3(金) 8:28 発言
【44083】Re:オートフィルタで抽出したデータをUser... たかし 06/11/3(金) 10:26 質問
【44087】Re:オートフィルタで抽出したデータをUser... kobasan 06/11/3(金) 12:31 発言
【44089】Re:オートフィルタで抽出したデータをUser... kobasan 06/11/3(金) 13:17 発言
【44090】Re:オートフィルタで抽出したデータをUser... たかし 06/11/3(金) 14:15 お礼

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