今日の日付を取得して、表示・非表示を行いたい

Question

今日の日付を取得して、エクセルの行を表示/非表示で切り替えたいです。

V列には「20/01/02」などの日付が並んでいます。
そのV列と今日の日付が一致するセルを見つけ、その行を基準に上下15行分（計30日分）自動で表示・非表示されるようにしたいです。

下記マクロを書きましたが、「型が一致しません」となってしまいます。
申し訳ございませんが、ご教授頂けますと幸いです。

Sub display()
    Dim i As Long
    Dim buf As String
    
    buf = Date
    
       

   Set Wb2 = Workbooks("日付.xlsx").Worksheets("sheet1")

    For i = 50 To 785　　'50行目から785行目に二年間分の日付があります。

            If Wb2.Range("V" & i).Value = _
              buf Then

             Rows("i - 15 : i + 15").Hidden = False

    End If
    
    Next i
    
End Sub

Comments

[meg_]

どの行で「型が一致しません」となったのでしょう？

Answer 1

Rows("i - 15 : i + 15")

これは、まずいですね。
ダブルクォーテーションで纏めてしまうと、単に
「i - 15 : i + 15」という文字列になってしまいます。

Rows(i - 15 & ":" & i + 15)

と変数や計算の部分は文字列に含めてはいけません。

数値を数字として文字を連結して、一連の文字列を作ります。
文字列を作ることに特化して、練習してみてはいかがでしょう？
むやみやたらに実践に向っても基礎が追い付いてないです。

あと、
VBAでループ処理を書かなくても、
エクセルは強力な関数群が存在しますので、
そちらを利用するとよりよいかと。

Sub test()
    Dim rngDate As Range
    Dim ix As Long

    Set rngDate = ThisWorkbook.Worksheets("Sheet1").Range("V50:V785")
    rngDate.EntireRow.Hidden = True
    On Error GoTo ErrHandler
    ix = WorksheetFunction.Match(CDbl(Date), rngDate, 1)
    On Error GoTo 0
    rngDate(ix - 15).Resize(30).EntireRow.Hidden = False
    Exit Sub

Errhanler:
End Sub

セル範囲も変数に代入できるとより良いかと思います。
そのままMatch関数の第2引数に指定できますし。
あと、ResizeプロパティやEntireRowプロパティも使えるようになりましょう。
ExcelVBAではセル範囲の指定は必須です。
語彙を増やしましょう。

Comments

[退会済みユーザー]

丁寧に教えて頂き、ありがとうございます。基礎から勉強し直します。
ちなみに上記では「行ラベルが定義されていません」と「On Error GoTo ErrHandler」の部分が指摘されてしまいました。

[radames1000]

「Errhanler:」を「ErrHandler:」にしてみてください。

[退会済みユーザー]

ありがとうございました。本当に助かりました。

[退会済みユーザー]

また、こちらって現在本日の日付から15日分上下の行をあける処理をしてくださったのだと思うのですが、
上を30行分、下を5行分とすることは可能でしょうか？

[mattuwan]

>可能でしょうか？
という聞き方はやめましょうよ。
rngDate(ix - 15).Resize(30).EntireRow.Hidden = False
↑ここの行にブレークポイントをおいて、
プログラムを仮に止めて、
イミディエイトウィンドウに
?rngDate(ix - 15).Resize(30).address[Enter]
([Enter]はエンターキー押下の意味）
と入力してみてください。
セルのアドレスが返ってくるので、
あとは、数値を微調整して、
?rngDate(ix - 30).Resize(35).address[Enter]
もういっかい確認してみる。
で、意図するセルアドレスが得られそうなら、
本文を書き換えてF5キー押下でプログラム再開
などとしてみてください。
コードを解読しようと努力されてます？
解読しようとされていたら、「可能でしょうか？」というような、
聞き方にはならないかと思います。

radames1000さん＞
フォローありがとうございます。

Answer 2

下記の部分をこう変更することができます。
Rows("i - 15 : i + 15").Hidden = False

Rows(i - 15 & ":" & i + 15).Hidden = Not Rows(i - 15 & ":" & i + 15).Hidden
Exit For

なお、上下15行分でしたら合計31日分になるのでご注意くださいね。