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

Step 5 日付を入れていく

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

スポンサーリンク



Homeに戻る > Excelでアプリケーションソフトを作ってみよう

標準モジュールコードのVBA

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

'月の末日を取得
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に戻る > Excelでアプリケーションソフト > 日程表を作ってみよう

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


Copyright (c) Excel-Excel ! All rights reserved