Excel VBA質問箱 IV

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

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


25378 / 76732 ←次へ | 前へ→

【56695】Re:オートフィルターのフィルタリング行数について
発言  ponpon  - 08/6/30(月) 21:47 -

引用なし
パスワード
   ▼まさ さん:
こうゆうことかな?
違ったらごめんなさい。

>オードフィルタで絞り込み検索を行った時にフィルタリングにヒットした個数(行数)を取得し、条件分岐させたいのですが、下記のように実装しても動作しません、
>
> Dim r As Range
>
> 'Selection.AutoFilterにてフィルタリングを実施。
>
> Set r = ActiveSheet.AutoFilter.Range
> Set r = Intersect(r.Offset(1), r.Columns(1))

  If r.SpecialCells(xlVisible).Rows.Count <= 0 Then

>  MsgBox "No"
> Else
>  MsgBox "YES"
> End If
>
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 発言

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