浦山大さん:

オンライン、対面、それぞれ良さがありますね。
またお会い出来るのを楽しみにしております☆

> おはようございます。
> コードの添削、ありがとうございました！
> 曖昧な部分がクリアになりました。
> こういう微妙な部分は、勉強会等に参加させて頂いて、
> 「いつもひっかかるんですけどどういうことですか？」
> 「…そんなことか！」
> って一つ一つ潰していけると更に伸びそうだなって感じました。
> 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/15 21:11