加算する週の数値を設定して週末を計算する関数、週末は金曜日となります、土曜日は翌金曜日に変換されます 。
VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法
登録されたら、シート上からユーザー関数「WeekEnd 」が使用できます。
使い方は
ワークシート上で = WeekEnd (日付,[加算する週の数値])の関数として使用できます。
【例】
WeekEnd(#2019/5/4#) → #2019/05/10#
WeekEnd(#2019/5/4#,1) → #2019/05/17#
Function WeekEnd(GDate As String, Optional N As Long) As Variant
’週末を計算する関数、加算する週の数値を設定可能
’ 週末は金曜日となります、土曜日は翌金曜日に変換されます
’ WeekEnd(日付,[加算週])
’ 例1 WeekEnd(#2019/5/4#) → #2019/05/10#
’ 例2 WeekEnd(#2019/5/4#,1) → #2019/05/17#
Dim WD As Long
Dim WP As Long
On Error GoTo EXITFEnd
WP = 7 * N
If IsDate(GDate) = True Then
WD = Weekday(GDate)
If WD = 7 Then
WD = 0
End If
WeekEnd = DateAdd(“d”, (6- WD + WP), GDate)
Else
WeekEnd = GDate
End If
Exit Function
EXITFEnd:
End Function
ここで紹介したコード使用による損害に対しては一切責任は負えません。