Excelで日程表を作ってみよう：Step5 日付を入れていく
指定された年月の月の末日を取得し、1ヶ月の日付を入力するVBAを作成します。
Excel VBAで日程表の日付を、1ヶ月分入力します。
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
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
実行画面のシート
横方向に日付が セットされました。
Excelで日程表アプリ作成
- Step 1 日程用の新しいブックを作成する
- Step 2 同じブック名は作成できないようにする
- Step 3 作成条件部分の作成
- Step 4 作成年月部分の作成
- Step 5 日付を入れていく
- Step 6 平日・土曜・日曜・祭日の色をつける
- Step 7 罫線を引く(完成）
Homeに戻る > Excelでアプリケーションソフト > 日程表を作ってみよう
■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します
Copyright (c) Excel-Excel ! All rights reserved