Excelで日程表を作ってみよう

Step 5 日付を入れていく

Excel VBAで日程表の日付を、一ヶ月分入力します。

Home > アプリケーションソフト > 日程表を作ってみよう > Step5 日付を入れていく


スポンサーリンク



標準モジュールコード

下のプロシージャを下記に変更してください。

'月の末日を取得
Public Function MonthLastDay(yy As Integer, mm As Integer) As Integer
    Dim i As Integer
    Dim tdate As Date
    
    tdate = Format(yy & "/" & mm & "/1", "yyyy/mm/dd")
    i = 28
    Do
        i = i + 1
    Loop Until Day(tdate + i - 1) = 1
    MonthLastDay = i - 1
End Function

スポンサーリンク



実行

横方向に日付が セットされました。
日付がセット

スポンサーリンク





Home > アプリケーションソフト > 日程表を作ってみよう > Step5 日付を入れていく

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved