投稿/コメントを表示します。

解説「カレンダー作成マクロ」
1枚のシート内で12ヶ月を横に並べたカレンダーを作成する

浦山大さんの投稿

(投稿ID: 3502)

おはようございます。
コードの添削、ありがとうございました！
曖昧な部分がクリアになりました。
こういう微妙な部分は、勉強会等に参加させて頂いて、
「いつもひっかかるんですけどどういうことですか？」
「…そんなことか！」
って一つ一つ潰していけると更に伸びそうだなって感じました。
11月or12月に参加したいと考えています。
それまでに発展編1については一通りこなしておきたいと思います！
Option Explicit

Sub Yokonarabe()

Worksheets("Sheet1").UsedRange.Interior.ColorIndex = xlNone '[*1]
Worksheets("Sheet1").UsedRange.ClearContents                '[*2]    '↓一枚のシートでの話なので、これ不要では？

'ワークシート変数　1枚のシートでも、宣言して明示したほうがいいのかな？ってあいまいでした。
'インデント不正部分は、変数の値を設定する際、
'毎回「1インデント前」にずらしていました（手前側のほうがええのかな？とかそんないい加減なレベルでした）。
'ハナコのステップで作業してたら間違わないような気がします…。

Dim daHiduke As Date
Dim cMigi As Long
Dim loTitle As Long
Dim loYoko As Long
    daHiduke = #1/1/2015#
    cMigi = 2
    loTitle = -6
    loYoko = -4
    Do While Year(daHiduke) = 2015
        If Day(daHiduke) = 1 Then '↓インデント不正→一つ奥にずらしました
            loTitle = loTitle + 5
            loYoko = loYoko + 5
            cMigi = 2
            With Range("A1")
                .Offset(, loTitle + 1).Value = "Date"
                .Offset(, loTitle + 2).Value = "weekday"
                .Offset(, loTitle + 3).Value = "memo"
                .Offset(, loTitle + 4).Value = "comment"
                .Offset(, loTitle + 2).ColumnWidth = 10.89
                .Offset(, loTitle + 3).ColumnWidth = 30
                .Offset(, loTitle + 4).ColumnWidth = 20
            End With
        End If
        Range("A" & cMigi).Offset(, loYoko - 1).Value = daHiduke
        Range("B" & cMigi).Offset(, loYoko - 1).Value = WeekdayName(Weekday(daHiduke), True)
        Select Case Range("B" & cMigi).Offset(, loYoko - 1).Value
            Case Is = "土"
                Range("A" & cMigi & ":D" & cMigi).Offset(, loYoko - 1).Interior.Color = vbBlue
            Case Is = "日"
                Range("A" & cMigi & ":D" & cMigi).Offset(, loYoko - 1).Interior.Color = vbRed
        End Select '↓インデント不正→一つ奥にずらしました
        daHiduke = DateAdd("d", 1, daHiduke)
        cMigi = cMigi + 1
    Loop
End Sub

2017/10/12 18:29