日付を表示する

前回、指定された年月の最終日を求めることができたので、1日からループでセルに入力していきます。
For 〜 Next を使用し、日付列に入力します。

表に日付と曜日を自動的に表示するのメニューに戻る

スポンサーリンク





実行画面

2010年9月の日付なので、1〜30日までの日付が記入されました。
日付が記入されたシート

スポンサーリンク



プログラムソース

'日付を表示する
Private Sub DateDisp()
    Dim lastday As Long
    Dim i As Long
    
    '末日を取得
    lastday = MonLastDay(Range("C2"), Range("C3"))
    '日付を表示
    For i = 1 To lastday
        Cells(6 + i, 3) = i
    Next
End Sub

'作成開始ボタン
Private Sub CommandButton1_Click()
    If Range("C2") = "" Then
        MsgBox "作成する年を入力してください。"
        Exit Sub
    End If
    
    If Range("C3") = "" Then
        MsgBox "作成する月を入力してください。"
        Exit Sub
    End If
    
    '日付の表示
    Call DateDisp
End Sub

表に日付と曜日を自動的に表示するのメニューに戻る




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


Copyright (c) Excel-Excel ! All rights reserved