Excel VBA質問箱 IV

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

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


25363 / 76732 ←次へ | 前へ→

【56710】Re:オートフィルターのフィルタリング行数について
発言  n  - 08/7/1(火) 13:03 -

引用なし
パスワード
   補足。
MsgBox ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
#...でも良いとは思いますが、SpecialCellsは不連続範囲数約8,000くらいまでという制限あるそうです。
#しかもなんか遅いし。

Sub test()
  MsgBox afCount(ActiveSheet)
End Sub

Function afCount(ws As Worksheet)
  Dim r  As Range
  Dim ret

  On Error GoTo errH
  Set r = ws.AutoFilter.Range
  Set r = r.SpecialCells(xlCellTypeVisible)
  ret = CLng(r.Count) - 1
  Set r = Nothing
errH:
  If Err.Number <> 0 Then ret = Err.Number & ":" & Err.Description
  Set r = Nothing
  afCount = ret
End Function

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 発言

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