こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

エクセル オートフィルタで摘出したデータだけをカウントしたい vba

エクセルでオートフィルタして摘出したデータをカウントしたいのですその結果をVBAのメッセージボックスで表示させてたいです。
オートフィルタについては、シート上で自ら条件を出しますので、ただカウントだけしたいです。
カウントさせるセルはA列の10番から110番です。
データは数値です
お忙しいところどなたかご教授ください

投稿日時 - 2006-04-03 20:38:06

QNo.2069641

a32

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

こんにちは。

>A10は変更無いのですが、A110の部分はまちまちになります

-----------------------------------------------
Sub Test555()

  Dim LastRow As Long

  LastRow = Range("A65536").End(xlUp).Row

  MsgBox Range("A10:A" & LastRow).SpecialCells(xlCellTypeVisible).Count

End Sub
-----------------------------------------------

Range("A65536").End(xlUp).RowでA列の最後の行が取得できます。

以上です。

投稿日時 - 2006-04-04 15:10:22

ANo.1

こんばんは。

シンプルなのをひとつ。。(--;;

-------------------------------------------
Sub Test()

 MsgBox Range("A10:A110").SpecialCells(xlCellTypeVisible).Count

End Sub
--------------------------------------------

以上です。

投稿日時 - 2006-04-03 21:14:38

補足

ありがとうございます。あわせて A10は変更無いのですが、A110の部分はまちまちになります。お手数おかけしますが、おしえていただけますか?

投稿日時 - 2006-04-03 21:24:44

あなたにオススメの質問