【VBA備忘録】給料日が土日祝のとき前日を取得する（会社カレンダー用テンプレあり〼）

'配列の添え字の最小値を1に指定
Option Base 1

Sub 給料日はいつかいな()

'===============================================
'ワークシート
Dim thisws As Worksheet, syukuzitu As Worksheet
Set thisws = ActiveSheet
Set syukuzitu = Worksheets("祝日")

'祝日リスト
Dim holidaylist As Range
Set holidaylist = syukuzitu.ListObjects(1).ListColumns(1).DataBodyRange


'出力用配列
Dim box(12, 1)
'===============================================


For i = 1 To 12

        dt = thisws.Cells(4 + i, 2).Value

        ' 土日調整
        Select Case Weekday(dt, vbSunday)
            Case vbSaturday ' 土曜
                dt = dt - 1
            Case vbSunday ' 日曜
                dt = dt - 2
        End Select

        ' 祝日調整：祝日 or 土日に戻ったら繰り返す
        Do While WorksheetFunction.CountIf(holidaylist, dt) > 0 _
              Or Weekday(dt, vbSunday) = vbSaturday _
              Or Weekday(dt, vbSunday) = vbSunday

            ' 月曜だったら金曜に戻す、それ以外は1日前
            If Weekday(dt, vbSunday) = vbMonday Then
                dt = dt - 3
            Else
                dt = dt - 1
            End If
        Loop

        box(i, 1) = dt

Next i


thisws.Range("C5:C16") = box
End Sub