![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
現在 、
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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBA 複数条件の分岐処理の上手な方法
Visual Basic(VBA)
-
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
VBA一覧取得 再投稿
Visual Basic(VBA)
-
-
4
エクセルVBAについて
Visual Basic(VBA)
-
5
Excelのマクロについて教えてください。
Visual Basic(VBA)
-
6
vba 削除
Visual Basic(VBA)
-
7
Excel 範囲指定スクショについて Excelで範囲指定してスクリーンショットする機能がありますが
Visual Basic(VBA)
-
8
以下のコードを実行しても、オブジェクト変数または、withブロック変数が設定されていませんとエラーが
Visual Basic(VBA)
-
9
VBAに詳しい方教えてください。
Visual Basic(VBA)
-
10
Excel-VBAのmsgBox()の不思議
Visual Basic(VBA)
-
11
VBA SaveChanges 上書きされない
Visual Basic(VBA)
-
12
エクセルVBAについて
Visual Basic(VBA)
-
13
Vba SelStart、SelLen教えてください教えてください
Visual Basic(VBA)
-
14
VBA レジストリの値の読み方について教えてください
Visual Basic(VBA)
-
15
VBA指定行削除
Visual Basic(VBA)
-
16
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
17
vba アクティブシートの名前変更について教えてください
Visual Basic(VBA)
-
18
Vba 実数および実数タイプの変数について教えてください
Visual Basic(VBA)
-
19
エクセルVBA
Visual Basic(VBA)
-
20
VBAなくなるの?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
1、Rstudioで回帰直線を求める...
-
JavaScriptの定数名が取り消し...
-
フィルターかけた後、重複を除...
-
pythonで同じコード内で複数の...
-
マクロ 連続印刷
-
変数名「cur」について
-
c言語 入力した二つの数字の足...
-
VBA リストボックス(複数条件...
-
UWSCでMOUSEORG関数が上手く処...
-
欠番の抽出について
-
VBAで一つのファンクションの中...
-
ユーザーフォームに2つのコン...
-
おすすめのPHPフレームワークは?
-
(再質問) .NETでエクセル解...
-
演算子(+=)について
-
Exel VBA 別ブックから該当デ...
-
sinカーブの表示のさせ方
-
レイヤー(?)、z-index(?)...
-
VBA 現在のセル番地を記憶、復...
-
特定行の背景色を変えたいのですが
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
フィルターかけた後、重複を除...
-
1、Rstudioで回帰直線を求める...
-
1日に1人がこなせるプログラム...
-
access2003 クエリSQL文に...
-
エクセルVBAコードで教えて下さ...
-
Exel VBA 別ブックから該当デ...
-
JavaScriptの定数名が取り消し...
-
COBOLの文法
-
access2021 VBA メソッドまたは...
-
PreviewKeyDownイベントが2回...
-
JANコードとPOSコードは同じ?
-
過剰なオブジェクト指向脳から...
-
特定行の背景色を変えたいのですが
-
ACCESSユニオンクエリでORDER B...
-
変数名「cur」について
-
Nullの使い方が不正です。
-
◾️Excel VBA 統合について Cons...
-
欠番の抽出について
-
VBA リストボックス(複数条件...
-
ACCESSで、履歴事項を管理する...
おすすめ情報