Sub format_sample_hitoketa()
    Dim dt As Date
    Dim moji As String
    dt = #4/28/2024#
    
    moji = Format(dt, "yyyymm")
    Range("A1").Value = moji
    Range("B1").Value = Year(dt) & Month(dt)
End Sub
Sub format_sample_futaketa()
    Dim dt As Date
    Dim moji As String
    dt = #11/28/2024#
    
    moji = Format(dt, "yyyymm")
    Range("A2").Value = moji
    Range("B2").Value = Year(dt) & Month(dt)
End Sub

Sub month_evaluator()
    Dim i As Long
    Dim hiduke As Date
    
    Dim first_day As Date '今月初日
    Dim last_day As Date '今月最終日
    Dim next_month_first_day As Date '翌月初日
    Dim next_month_last_day As Date '翌月最終日
    
    '今月初日を生成する(DateSerialは講座では扱ってませんが (^^; )
    first_day = DateSerial(Year(Date), Month(Date), 1)
    
    '翌月初日を求める
    next_month_first_day = DateAdd("m", 1, first_day)
    
    '翌月初日の1日前が今月最終日
    last_day = DateAdd("d", -1, next_month_first_day)
    
    '翌々月初日の1日前が翌月最終日(変数増やしたくないので関数入れ子にして1行で書きました (^^; )
    next_month_last_day = DateAdd("d", -1, DateAdd("m", 1, next_month_first_day))
    
    'テスト出力。きちんと所望の日付を生成できていることを確認
    Debug.Print first_day            '2024/04/01
    Debug.Print last_day             '2024/04/30
    Debug.Print next_month_first_day '2024/05/01
    Debug.Print next_month_last_day  '2024/05/31
    
    'サンプルデータをセルに書き込む
    Range("E4").Value = #2/28/2024# '期待値: 前月以前
    Range("E5").Value = #4/26/2024# '期待値: 当月
    Range("E6").Value = #5/28/2024# '期待値: 翌月
    Range("E7").Value = #7/28/2024# '期待値: 翌月＋１
    
    '個別データの処理例
    For i = 4 To 7
        hiduke = Range("E" & i).Value
        Select Case hiduke
            Case Is < first_day
                '今月1日より前なら過去
                Range("F" & i).Value = "前月以前"
            Case first_day To last_day
                '今月1日以降、今月最終日まで
                Range("F" & i).Value = "当月"
            Case next_month_first_day To next_month_last_day
                '翌月1日以降、翌月最終日まで
                Range("F" & i).Value = "翌月"
            Case Else
                '上記のいずれも満たさない場合
                Range("F" & i).Value = "翌月＋１"
        End Select
        Range("G" & i).Value = hiduke
    Next
End Sub

Sub hidukecheck()
   
    Dim gyo
    For gyo = 2 To 6
        Dim hiduke As Date
        Dim nowd As Date
        Dim hidukemoji As String
        Dim nowdmoji As String
            hiduke = Range("H" & gyo).Value
            nowd = Now
            hidukemoji = Format(hiduke, "yyyymm")
            nowdmoji = Format(nowd, "yyyymm")
            
        Select Case hidukemoji
            Case Is = nowdmoji
                Range("I" & gyo).Value = "当月"
                Range("J" & gyo).Value = hidukemoji
            Case Is < nowdmoji
                Range("I" & gyo).Value = "前月以前"
                Range("J" & gyo).Value = "前月以前"
            Case Is = nowdmoji + 1
                Range("I" & gyo).Value = "翌月"
                Range("J" & gyo).Value = hidukemoji
            Case Is > nowdmoji + 1
                Range("I" & gyo).Value = "翌々月以降"
                Range("J" & gyo).Value = hidukemoji
        End Select
    Next

End Sub

Sub input_sample_data()
    ' サンプルデータをセルに書き込む部分は本編に無関係なので別に準備しました
    ' また、より丁寧に検証できるようにサンプルデータを準備しました
    
    '前々月
    Range("D4").Value = "前々月末"
    Range("E4").Value = #2/28/2024#
    
    '前月
    Range("D5").Value = "前月初日"
    Range("E5").Value = #3/1/2024#
    
    Range("D6").Value = "前月中日"
    Range("E6").Value = #3/15/2024#
    
    Range("D7").Value = "前月末日"
    Range("E7").Value = #3/31/2024#
    
    '当月
    Range("D8").Value = "当月初日"
    Range("E8").Value = #4/1/2024#
    
    Range("D9").Value = "当月中日"
    Range("E9").Value = #4/15/2024#
    
    Range("D10").Value = "当月末日"
    Range("E10").Value = #4/30/2024#
    
    '翌月
    Range("D11").Value = "翌月初日"
    Range("E11").Value = #5/1/2024#
    
    Range("D12").Value = "翌月中日"
    Range("E12").Value = #5/15/2024#
    
    Range("D13").Value = "翌月末日"
    Range("E13").Value = #5/31/2024#
    
    '翌々月
    Range("D14").Value = "翌々月初日"
    Range("E14").Value = #6/1/2024#
    
    Range("D15").Value = "翌々月中日"
    Range("E15").Value = #6/15/2024#
    
    Range("D16").Value = "翌々月末日"
    Range("E16").Value = #6/30/2024#
    
    'さらに先の月
    Range("D17").Value = "さらに先の月初日"
    Range("E17").Value = #7/1/2024#
    
    Range("D18").Value = "さらに先の月中日"
    Range("E18").Value = #7/15/2024#
End Sub

Sub month_evaluator()
    Dim i As Long
    Dim hiduke As Date
    Dim result As String '追加
    
    ' 韻を踏んだ変数名にしたいので以下のように変更した(変数名の長さも統一したい)
    Dim month_1 As Date '当月初日
    Dim month_2 As Date '翌月初日
    Dim month_3 As Date '翌々月初日
    
    month_1 = DateSerial(Year(Date), Month(Date), 1)
    month_2 = DateAdd("m", 1, month_1)
    month_3 = DateAdd("m", 2, month_1)
    
    Debug.Print month_1, month_2, month_3 'こんな書き方もあります (^^

    ' 以下のように「Select Case 内では変数に値を入れるにとどめ、最終的にその値を書き込む」
    ' としたほうが見た目スッキリします
    For i = 4 To 18
        hiduke = Range("E" & i).Value
        
        Select Case hiduke
            Case Is < month_1
                result = "前月以前"
            Case Is < month_2
                result = "当月"
            Case Is < month_3
                result = "翌月"
            Case Else
                result = "翌月＋１"
        End Select
        
        Range("F" & i).Value = result
        Range("G" & i).Value = hiduke
    Next
End Sub