dポイントプレゼントキャンペーン実施中！

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

受付中

  • 質問者：TAKA0315m
  • 質問日時：
  • 回答数：1件

現在 、
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

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

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

通報する
質問の本文を隠す
  • 画像を添付する （ファイルサイズ：10MB以内、ファイル形式：JPG/GIF/PNG）
  • 今の自分の気分スタンプを選ぼう！
あと4000文字

A 回答 (1件)

No.1

  • 回答者： fujillin
  • 回答日時：

こんばんは



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

とりあえず、結合セルでも対応できるようにするだけなら・・
＞Set i = ActiveCell
の部分を
　Set i = ActiveCell.MergeArea
に置き換えれば可能と思います。
    • good
    • 0
    • 件
通報する
この回答へのお礼

助かりました

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

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

通報する
お礼日時：2024/06/19 09:24

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

Q質問する（無料）

関連するカテゴリからQ&Aを探す

ページトップページトップ

Q質問する（無料）

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

おすすめ情報