エクセル マクロ入門（分岐 IF Then～ End If）

ステップ　４　分岐のコマンド　If Then ～　Endif

今までと同様に

Sub ボタン2_Click()
 For i = 2 To 10
   Range("B" & i).Value = Date + i - 2
   If Weekday(Date + i - 2) = 1 Then
    Range("B" & i).Interior.ColorIndex = 7
   End If
 Next
End Sub

をVBエディターで作成します。

だいぶ長くなりましてね、For　～Next　の中に

   If Weekday(Date + i - 2) = 1 Then
    Range("B" & i).Interior.ColorIndex = 7
   End If

があります。Weekday関数は、指定した日付の曜日を返します。

日曜日が１　月曜日が２・・・・・土曜日が７です。

Range("B" & i).Interior.ColorIndex = 7

Rnageのプロパティで塗りつぶし（Interior）の色番号（ColorIndex）　を　７（ピンク）にしろと命令

これで、日曜日の日付の場合に(IF)　セルの塗りつぶしを実行　出来ます。

この様な条件によって、行う作業を分けるので、分岐と呼ばれています。

IF 条件式　Then で覚えましょう。　条件式も多数の内容が使えます。

ここまで理解していれば、かなり複雑な操作を自動化できるでしょう。