Excel VBA質問箱 IV

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

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


25382 / 76735 ←次へ | 前へ→

【56694】オートフィルターのフィルタリング行数について
質問  まさ  - 08/6/30(月) 21:10 -

引用なし
パスワード
   オードフィルタで絞り込み検索を行った時にフィルタリングにヒットした個数(行数)を取得し、条件分岐させたいのですが、下記のように実装しても動作しません、

 Dim r As Range

 'Selection.AutoFilterにてフィルタリングを実施。

 Set r = ActiveSheet.AutoFilter.Range
 Set r = Intersect(r.Offset(1), r.Columns(1))

 If xlVisible <= 0 Then
  MsgBox "No"
 Else
  MsgBox "YES"
 End If

上記のように実装した場合、フィルタリングの個数(行数)に関係なく全て"YES"に入り込むのですが、問題点をご指摘願います。
初心者でもう訳ありませんが、よろしくお願いします。
0 hits

【56694】オートフィルターのフィルタリング行数について まさ 08/6/30(月) 21:10 質問
【56695】Re:オートフィルターのフィルタリング行数... ponpon 08/6/30(月) 21:47 発言
【56698】Re:オートフィルターのフィルタリング行数... n 08/6/30(月) 23:22 発言
【56706】Re:オートフィルターのフィルタリング行数... まさ 08/7/1(火) 9:36 回答
【56709】Re:オートフィルターのフィルタリング行数... n 08/7/1(火) 11:42 発言
【56710】Re:オートフィルターのフィルタリング行数... n 08/7/1(火) 13:03 発言
【56705】Re:オートフィルターのフィルタリング行数... まさ 08/7/1(火) 9:28 発言
【56714】Re:オートフィルターのフィルタリング行数... ponpon 08/7/1(火) 19:56 発言

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