Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10815 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【19744】オートフィルタ時の、空白列の回避 ひだ 04/11/16(火) 14:44 質問[未読]
【19746】Re:オートフィルタ時の、空白列の回避 IROC 04/11/16(火) 14:57 回答[未読]
【19760】Re:オートフィルタ時の、空白列の回避 ひだ 04/11/16(火) 16:18 お礼[未読]
【19744】オートフィルタ時の、空白列の回避
質問  ひだ  - 04/11/16(火) 14:44 -
引用なし
パスワード
   はじめまして。

現在、ユーザーフォームで、独自にオートフィルタを作成しようとしています

オートフィルタを行なおうとするシートに、列によっては、列見出しはあるものの、「2行目以下のセルが空白」になっているものが含まれています。

ユーザーフォームの構成は、ComboBox1でシートを、ComboBox2で列を、ListBox1でセル値を選択し、フィルタリングを行なうようにしています。フィルタリングの動作は、ComboBox2で列見出しを選択した時に、フィルタリングがかかり、ListBox1にアイテムが表示されるようになっています。

そのため、ユーザーがうっかり、「2行目以下のセルが空白」の列を選択した場合、空白のセルもアイテムとして選択・取得しようとし、「数分間」の処理が行なわれてしまいます。

こうした処理を行なわせないようにするため、列の選択の際に、対象列セル値の空白の有無を確認するような検索を行なおうとしていますが、行き詰まってしまいました。

みなさまからお知恵を拝借いたしたく、投稿いたしました。
ご助言等よろしくお願いいたします。
【19746】Re:オートフィルタ時の、空白列の回避
回答  IROC  - 04/11/16(火) 14:57 -
引用なし
パスワード
   編集　ジャンプ　定数　をマクロの記録してみて下さい。
【19760】Re:オートフィルタ時の、空白列の回避
お礼  ひだ  - 04/11/16(火) 16:18 -
引用なし
パスワード
   ご助言ありがとうございます。


SpecilaCellsを調べよというご助言から、xlCellTypeLastに考えが至り、使われたセル範囲内の文字列を含むセルをFindした結果の有無により、リストアップをするか否かの条件分岐を行なうことができました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10815 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free