Excel VBA質問箱 IV

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

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


47786 / 76732 ←次へ | 前へ→

【33894】Re:複数の検索条件をクリアーした情報をリス...
回答  Statis  - 06/1/23(月) 14:32 -

引用なし
パスワード
   ▼GREEN さん:
こんにちは
これで如何かな?

Dim CT2 As Range, CE As Long, C As Range
Dim kub As String, ttan As String, tyoku As String
With ActiveSheet
   CE = .Range("A65536").End(xlUp).Row
   If .AutoFilterMode = False Then
    .Rows(2).AutoFilter
   End If
   kub = Me.ComboBox48.Value   '区分の検索条件入力
   ttan = Me.ComboBox49.Value   '担当者の検索条件入力
   tyoku = Me.ComboBox50.Value  '直間の検索条件の入力
   If kub <> "" Then
    .Range("B2:B" & CE).AutoFilter Field:=2, Criteria1:=kub '区分の検索条件がなければ無視
   End If
   If ttan <> "" Then
    .Range("C2:C" & CE).AutoFilter Field:=3, Criteria1:=ttan '同じく、担当者
   End If
   If tyoku <> "" Then
    .Range("D2:D" & CE).AutoFilter Field:=4, Criteria1:=tyoku '同じく、直間
   End If
   Set CT2 = .Range("A3:A" & CE).SpecialCells(xlCellTypeVisible)
   Me.ListBox1.Clear
   For Each C In CT2
     Me.ListBox1.AddItem C.Value
   Next C
   Set CT2 = Nothing
   .AutoFilterMode = False
End With

0 hits

【33888】複数の検索条件をクリアーした情報をリス... GREEN 06/1/23(月) 13:47 質問
【33893】Re:複数の検索条件をクリアーした情報を... GREEN 06/1/23(月) 14:28 質問
【33894】Re:複数の検索条件をクリアーした情報をリ... Statis 06/1/23(月) 14:32 回答
【33896】Re:複数の検索条件をクリアーした情報を... GREEN 06/1/23(月) 15:32 質問
【33897】Re:複数の検索条件をクリアーした情報を... Statis 06/1/23(月) 15:56 回答
【33901】Re:複数の検索条件をクリアーした情報を... GREEN 06/1/23(月) 16:18 お礼
【33906】Re:複数の検索条件をクリアーした情報を... Statis 06/1/23(月) 16:53 回答
【33911】Re:複数の検索条件をクリアーした情報を... GREEN 06/1/23(月) 17:13 お礼

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