Excel VBA質問箱 IV

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

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


37813 / 76732 ←次へ | 前へ→

【44080】Re:オートフィルタで抽出したデータをUserForm上のListBoxに表示
回答  kobasan  - 06/11/3(金) 8:19 -

引用なし
パスワード
   おはようございます。

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

Sheet2を作業シートとして利用すれば、これでてきるかな。

Dim rng As Range
Dim LastRow As Long
  With Sheets("Sheet1")
    '一度AutoFilterを解除
    If .AutoFilterMode Then
      .Range("A1").AutoFilter
    End If
    '
    .Range("A1").AutoFilter Field:=1, _
      Criteria1:="*" & TextBox1.Text & "*"
    LastRow = .Range("A65536").End(xlUp).Row
    Set rng = .Range("A1:B" & LastRow).SpecialCells(xlCellTypeVisible)
  End With
  '
  'Sheet2を作業シートとして利用
  Sheets("Sheet2").Cells.Clear
  rng.Copy Sheets("Sheet2").Range("A1")
  'Sheet2!A1:A3 ListBox1.List =
  '
  ListBox1.ColumnCount = 2
  ListBox1.RowSource = "Sheet2!" & Sheets("Sheet2").UsedRange.Address(0, 0)
  Set rng = Nothing
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 お礼

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