Excel VBA質問箱 IV

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

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


25367 / 76732 ←次へ | 前へ→

【56706】Re:オートフィルターのフィルタリング行数について
回答  まさ  - 08/7/1(火) 9:36 -

引用なし
パスワード
   ご回答ありがとうございます。

>エラー対策を考慮すると
>MsgBox WorksheetFunction.Subtotal(3, ActiveSheet.AutoFilter.Range.Columns(1)) > 1
>で良いかと。

If WorksheetFunction.Subtotal(3, ActiveSheet.AutoFilter.Range.Columns(1)) > 1 Then
というif文で分岐させてみたのですが、フィルタリングでヒットした件数が0件の場合も1件以上の場合もこの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 発言

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