トップページ(目次)

360.月末を取得する_指定の月

<実行前後>
 → 
Sub 月末を取得する_指定の月()
    
    指定の月 = Range("B1")
    
    MsgBox DateSerial(Year(Date), 指定の月 + 1, 0) '0で前月月末

End Sub

Copyright © 2021 https://excel3000.web.fc2.com/ All Rights Reserved.
    inserted by FC2 system