[[20210915164329]]　『「当月以外の列を非表示」にするマクロ』（T・I）　ページの最後に飛ぶ

『「当月以外の列を非表示」にするマクロ』（T・I）

お世話になります。
E6～BL6に日付が入っています。
（9/1　9/2　…　日付形式）
この日付を見て「当月以外の列を非表示」にするマクロを教えて下さい。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 Sub SAMPLE()
    Dim cl As Long
    For cl = 5 To 64
        If Month(Cells(6, cl).Value) = Month(Date) Then Columns(cl).Hidden = True
    Next cl
 End Sub
（通りすがり助六） 2021/09/15(水) 16:56

 ごめんなさい。逆でした。

 Sub SAMPLE()
    Dim cl As Long
    For cl = 5 To 64
        If Month(Cells(6, cl).Value) <> Month(Date) Then Columns(cl).Hidden = True
    Next cl
 End Sub

 年も絡むならYearも足してください。
（通りすがり助六） 2021/09/15(水) 16:58

できました！
早々にありがとうございました。

（T・I） 2021/09/15(水) 17:16

コメント返信：

[ 一覧(最新更新順) ]

[[20210915164329]] 『「当月以外の列を非表示」にするマクロ』（T・I） ページの最後に飛ぶ

[[20210915164329]]　『「当月以外の列を非表示」にするマクロ』（T・I）　ページの最後に飛ぶ