エクセルVBAコードで教えて下さい！

現在 、
Sub 円楕円1_Click()

Dim i As Range
Set i = ActiveCell
With ActiveSheet.Shapes.AddShape(msoShapeOval, i.Left, i.Top, i.Width, i.Height)
.Fill.Visible = False
.Line.ForeColor.RGB = RGB(0, 0, 0)
End With
Set i = Nothing
End Sub

上記コードで該当（土日）に〇を付けて編集しています。
このコードを結合したセルにも使えるようにするには、どのようにコードを編集すれば
良いでしょうか？

ご教授のほどよろしくお願いいたします。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2024/06/18 19:06

こんばんは

＞上記コードで該当（土日）に〇を付けて編集しています。
土日の判断などは、ご提示のコード内では行っていませんね。

とりあえず、結合セルでも対応できるようにするだけなら・・
＞Set i = ActiveCell
の部分を
　Set i = ActiveCell.MergeArea
に置き換えれば可能と思います。

この回答へのお礼

fujillin 様
　 ご回答頂き有難うございます。

　出来ました！！
　
　ご承知のとおりこのコードは、選んだセルに〇をするようになっており
　土日の判断をしておりません。

お礼日時：2024/06/19 09:24