Dim bFlag As Boolean Private Sub Worksheet_Change(ByVal Target As Range) Static sAfter As String '更新後のセル範囲アドレス Static sBefore As String '更新前のセル範囲アドレス If Target.Row <= 5 Or Target.Column <= 5 Then Exit Sub If bFlag T…

'holiday(祝祭日テーブル)を使用して指定した日付が祝祭日、土日かをチェックする関数 '祝祭日、土日の場合はTrueを返す Public Function CheckHoliday(dt As Date) As Boolean '時刻が含まれるデータが指定された場合は考慮して日付部分だけ(時刻を00:00:00…