カレンダーの休みの日にオートシェイプ表示

カレンダーで土日祝日にオートシェイプで丸を付けたい。
ここに質問の内容を詳しく書いてください。
B8に日にち・C8に曜日・D8に非表示で休が縦に表示されます。
C8から土・日は判別できるのですが、D8の休も識別できるように作るにはどうすればいいでしょうか？

ソースコード

Sub test()
Dim S As Shape
Dim i As Long

For Each S In ActiveSheet.Shapes
    If S.Name Like "丸*" Then
        S.Delete
    End If
Next S



For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
    Select Case Cells(i, "C").Text
    Case "土", "日"
        With Range(Cells(i, "B"), Cells(i, "C"))
            With ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top, .Width, .Height)
                .Name = "丸" & i
                .Fill.Visible = msoFalse
                .Line.Weight = 1.5
                .Line.ForeColor.RGB = RGB(255, 0, 0)
            End With
        End With
    End Select
Next i

End Sub

行動規範の内容に同意します

回答1件

ベストアンサー

SelectをIfに置き換えただけですが。。。

VBA
1
2	For i = 1 To Cells(Rows.Count, "B").End(xlUp).Row
3		If Cells(i, "C").Text = "土" Or Cells(i, "C").Text = "日" Or Cells(i, "D").Text = "休" Then
4			With Range(Cells(i, "B"), Cells(i, "C"))
5				With ActiveSheet.Shapes.AddShape(msoShapeOval, .Left, .Top, .Width, .Height)
6					.Name = "丸" & i
7					.Fill.Visible = msoFalse
8					.Line.Weight = 1.5
9					.Line.ForeColor.RGB = RGB(255, 0, 0)
10				End With
11			End With
12		End If
13	Next i
14