現在 、
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ベストアンサー
- 回答日時:
こんばんは
>上記コードで該当(土日)に〇を付けて編集しています。
土日の判断などは、ご提示のコード内では行っていませんね。
とりあえず、結合セルでも対応できるようにするだけなら・・
>Set i = ActiveCell
の部分を
Set i = ActiveCell.MergeArea
に置き換えれば可能と思います。

fujillin 様
ご回答頂き有難うございます。
出来ました!!
ご承知のとおりこのコードは、選んだセルに〇をするようになっており
土日の判断をしておりません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) QRコード作成マクロについて 3 2022/11/26 16:55
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 【VBA】写真の縦横比を変えずに貼り付ける 5 2023/06/13 11:42
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 複数セルに〇印をつけるマクロ 4 2022/09/07 05:33
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Excel(エクセル) エクセルVBA、ファイル名をセルの値で保存の方法を教えてください。 おそれいります。こちらで数々のエ 6 2023/06/30 22:17
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
access2021 VBA メソッドまたは...
-
フィルターかけた後、重複を除...
-
python コードについて(初学者...
-
JANコードとPOSコードは同じ?
-
1日に1人がこなせるプログラム...
-
pythonで同じコード内で複数の...
-
VBA 現在のセル番地を記憶、復...
-
JavaScriptの定数名が取り消し...
-
ActiveReportの改ページ不具合...
-
コンパイルエラー 変数が定義...
-
プログラムの記法 インラインコ...
-
ペンダントライトのコードの色...
-
VSコードでバックスペースキー...
-
VLookup関数を使ってラベルに表...
-
改ページ
-
VSコードでHTMLに(リンク)フ...
-
過剰なオブジェクト指向脳から...
-
ユーザーフォームに2つのコン...
-
sinカーブの表示のさせ方
-
ExcelVBAで「Shift_JIS(MS932)...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
1日に1人がこなせるプログラム...
-
JavaScriptの定数名が取り消し...
-
access2021 VBA メソッドまたは...
-
JANコードとPOSコードは同じ?
-
PreviewKeyDownイベントが2回...
-
エクセルに見えない文字(JISX0...
-
オートフィルタで抽出結果に 罫...
-
Excelシート上で右クリックがで...
-
Exel VBA 別ブックから該当デ...
-
access2003 クエリSQL文に...
-
変数名「cur」について
-
Nullの使い方が不正です。
-
【VB6】実行ファイルとした後、...
-
VBAでファイルオープン後にコー...
-
COBOLの文法
-
Accessでの抽出で完全一致。
-
AccessでReplace関数を使うときに…
-
Access DCountでの連番について
-
sinカーブの表示のさせ方
おすすめ情報


