Excel VBA質問箱 IV

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

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


47783 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   こんにちは

'A列の最終データ行を取得=該当シートの最終データ行
   CE = .Range("A65536").End(xlUp).Row
   'シートにオートフィルタが設定されているかを確認。
   If .AutoFilterMode = False Then '設定されていなければ
     '2行目にオートフィルタを設定
    .Rows(2).AutoFilter
   End If
   kub = Me.ComboBox48.Value   '区分の検索条件入力
   ttan = Me.ComboBox49.Value   '担当者の検索条件入力
   tyoku = Me.ComboBox50.Value  '直間の検索条件の入力
   If kub <> "" Then
     'セルB2からB列の最終データ行までのデータを対象としてオートフィルタする
    .Range("B2:B" & CE).AutoFilter Field:=2, Criteria1:=kub '区分の検索条件がなければ無視
   End If

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 お礼

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