Excel VBAの非表示について（初心者）

Excel VBAを勉強中の者です。

A列に日付が連続で入っている表で、A1に入力されている一番古い日付から
昨日の日付までを非表示にし、今日の日付を先頭に表示したいと思っています。

Findメソッドで昨日の日付が入っているセルを検索し、A1セルから昨日のセルまでを
非表示にしようと思い下記のようにしてみたのですができませんでした。

Dim i As Range
Dim x As Byte
Dim y As Byte

Set i = Range("A1:A65536").Find(What:=Date-1)

x = i.Row
Rows("1:x").Hidden = True

または

x = i.Address
Range("A1:x").EntireRow.Select
Selection.Hidden = True


教えてください。
よろしくお願いします。

No.2 ベストアンサー 回答者： kmetu 回答日時： 2011/04/16 18:27

おしいですね

Rows("1:x").Hidden = True

x まで " で囲むと x も文字列として扱われてしまいますのでエラーになります。

Rows("1:" & x).Hidden = True

にしてください。

この回答へのお礼

実際に自分の書いたコードを添削していただけるのが一番身に付くようで有難く思っています。ありがとうございます。

その上で他のより良い方法もみなさんに教えていただけたのでとても参考になりました。みなさん、ありがとうございました。

お礼日時：2011/04/17 10:43

No.3 回答者： imogasi 回答日時： 2011/04/16 19:58

質問者のコードの修正回答は、既に出ている。

それとは別に、参考に
Sub test01()
Range("A2", Range("A1:A65536").Find(What:=Date - 1)).Select
Selection.EntireRow.Hidden = True
End Sub
のように変数も必要なく、３行にも出来る。Ａ１セルは見出し文言とみて残した。

この回答へのお礼

すばらしいです。
とても参考になります。
ありがとうございました。

お礼日時：2011/04/17 10:33

No.1 回答者： tom04 回答日時： 2011/04/16 18:01

こんにちは！

色々方法はあるかと思います。

FINDメソッドではなく、For～Nextでの方法です。
一例です。

Sub test()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) < DateValue(Date) Then
Rows(i).Hidden = True
End If
Next i
End Sub

こんな感じではどうでしょうか？m(__)m

この回答へのお礼

なるほど。全く思い付きませんでした。とても参考になります。
ありがとうございます。

お礼日時：2011/04/17 10:42