【Excel VBA】フィルタで指定した値を取得したい

質問

行列　値
1 A1　選択▼
2 A2　　1
3 A3　　1
4 A4　　2
5 A5　　3　

A2～A5の値をフィルタを利用して絞り込みます。
この時、絞り込んだ値（つまり選択した値）をVBAで取得したいのですが、どうのようにコーディングすればよろしいでしょうか？

目的としては、
A列には1～31の数字が入力されており（←日付として）、
その選択された日付により印刷範囲をコントロールしたいのです。

よろしくお願いします。

回答No.2

merlionXX

No1です。
フィルターとかかれていたので昨日はオートフィルターのことかと思い回答しましたが、画像を見ると、これって「入力規則」のリストではないのでしょうか？
ならばセルは特定されているので単にそのセルのValueを取得できますよね？
意味不明です・・・・。

お礼

ご回答、ありがとうございました。

※お礼が遅くなりまして申し訳ありませんでした。

回答No.1

merlionXX

MsgBox Range("A2", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)(1).Value

では？