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