スケジュールマクロ

何とか自力で書きました。

ちゃんと動きました。

Sub 曜日()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 2) = Format(Cells(i, 1), "aaa")
Select Case Cells(i, 2).Value
Case Is = "火", "木", "土"
Cells(i, 3) = "●"
Case Is = "月", "水", "金"
Cells(i, 3) = "×"
Case Else
Cells(i, 3) = "休"
Range(Cells(i, 1), Cells(i, 3)).Interior.ColorIndex = 3
Range(Cells(i, 1), Cells(i, 3)).Font.ColorIndex = 1
End Select
Next i
End Sub

Weekday関数というのが何か知らないので、またお勉強します。