エクセルの文字にクリックしたら丸〇印をつけるVBA

日常生活でカレンダーに〇印を付ける事をエクセルでもやりたいなあ～って悩んだことありませんか？

もちろんできますが、1個や2個だけ〇印をつけるならいいのですが、たくさんあったらとても面倒で作業効率が悪いですよね。

そこで、コマンドボタン1回押せば〇印をつけたいセルに〇印が付けられるようにしましょう。

とりっぷぼうる

〇丸印をつけるにはshapesコレクションを使います。

選択したセルに〇丸印をつける
1. 〇印を付けたいセルをクリック
2. 指定したセルに〇丸印をつける
〇丸印の代わりに四角やハート型で囲む（オートシェイプ）

選択したセルに〇丸印をつける

ここでは、カレンダーの日付の数字に〇をつけるVBAコードをコマンドボタンに書いている事例をお話しします。

〇印を付けたいセルをクリック

この方法ならば、まず〇印をつけたいセル（日付）をクリックすることにより、セルが選択されます（Activecell）

次に、ワークシート上に配置されたコマンドボタンを押すと、選択されていたセルの枠線内に〇丸印をつけることができます。

〇丸印の色もRGBにて好きな色に指定もできますので、1か所ずつ好きな場所に〇丸印をつけてみましょう。

選択したセルに〇丸印をつけるVBA

Sub 丸印つけ()
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, 255)
End With
Set i = Nothing
End Sub

VBA解説

「丸印つけ」という名のマクロを実行する
セルを扱う（Range型）変数「i」を宣言する
変数「i」は選択されているセルで代入する
選択されているセルの大きさに合わせて形は〇丸印にする
グラフの枠線を書く
色はRBGの青色にする
Withステートメント終了
グラフの〇丸印の塗りつぶしはしない
マクロ記録終了

これで、〇丸印をつけたいセルをまずクリックしてからコマンドボタンを押すと〇丸印をつけることができました。

ちなみに今回は〇丸印の色を青色に指定しましたが、RGBの色設定によりお好みの色に変更することができますので色見本などは下記よりご覧くださいませ。

条件に応じてラベルの色を変えるVBA（色見本付き）

ユーザーフォームのラベルの色をセルの値によって自由に変えたいって思いませんか？例えば、セルの値が重複した時だけ赤色文字にするとか、80点以上は青色で30点以下は赤色にできたら便利ですよ。

指定したセルに〇丸印をつける

さきほどの方法だとどこでも自由にセルの文字に〇丸印をつけることができますが、あらかじめコマンドボタンにセルを指定してしまえば、ボタンを押すだけで指定したセルの文字に〇丸印をつけることができます。

たった1行VBAコードを足すだけなので、とても簡単ですよ。

ボタンに〇丸印をつけるセル番地を書き込む

Sub 丸印A1 ()
Range(“A1”).Select
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, 255)
End With
Set i = Nothing
End Sub

赤色のアンダーラインの部分「Range(“A1”).Select」を足しただけです。

もし、決まったセルにいつも〇丸印をつける事が多いなら、A1以外のセルをしたいしたコマンドボタンを複数用意しておけば、コマンドボタンを押すだけで〇丸印をつけることができ、セルを選択する手間が省けて作業効率化できます。

とりっぷぼうる

セルの文字に〇丸印をつけることができたのならば、今度は反対に〇丸印を消すことができないと困りますよね。

さらについでに、消去つながりで、エクセルVBAで表示したり非表示にしたり、つけたり消したりなど様々なことができますので、ぜひ参考にして下さいね。

ここでは、カレンダーをワークシートで作成しているのですが、ユーザーフォームを使って日付ボタンを押すことができるようにしませんか？

ユーザーフォームカレンダー機能を使って日付入力がオブジェクトエラーになる

VBAのユーザーフォームでカレンダーを作成して日曜祝日ならば赤色、土曜日は青色・と祝日取得判定をしてコマンドボタンの色を変えて見栄え良くしませんか？エクセル初心者が作る自作エクセルカレンダー。

〇丸印の代わりに四角やハート型で囲む（オートシェイプ）

基本的に〇丸印で文字を囲むことが多いと思いますが、遊び心で四角やハート型などで文字を囲むこともできます。

方法は簡単で、丸で囲む事を指定したShapesコレクションのAddShapeメソッドの定数（〇丸印はmsoShapeOval）の部分➡黄色のアンダーバーの部分を変更するだけです。

値	図形	定数	形
1		msoShapeRectangle	四角形
2		msoShapeParallelogram	平行四辺形
3		msoShapeTrapezoid	台形
4		msoShapeDiamond	ひし形
5		msoShapeRoundedRectangle	角丸四角形
6		msoShapeOctagon	八角形
7		msoShapeIsoscelesTriangle	二等辺三角形
8		msoShapeRightTriangle	直角三角形
9		msoShapeOval	楕円
10		msoShapeHexagon	六角形
11		msoShapeCross	十字形
12		msoShapeRegularPentagon	ホームベース
13		msoShapeCan	円柱
14		msoShapeCube	直方体
15		msoShapeBevel	斜角
16		msoShapeFoldedCorner	メモ
17		msoShapeSmileyFace	スマイル
18		msoShapeDonut	ドーナツ
19		msoShapeNoSymbol	禁止
20		msoShapeBlockArc	アーチ
21		msoShapeHeart	ハート
22		msoShapeLightningBolt	稲妻
23		msoShapeSun	太陽
24		msoShapeMoon	月
25		msoShapeArc	円弧
26		msoShapeDoubleBracket	大かっこ
27		msoShapeDoubleBrace	中かっこ
28		msoShapePlaque	ブローチ
29		msoShapeLeftBracket	左大かっこ
30		msoShapeRightBracket	右大かっこ
31		msoShapeLeftBrace	左中かっこ
32		msoShapeRightBrace	右中かっこ
33		msoShapeRightArrow	右向きブロック矢印
34		msoShapeLeftArrow	左向きブロック矢印
35		msoShapeUpArrow	上向きブロック矢印
36		msoShapeDownArrow	下向きブロック矢印
37		msoShapeLeftRightArrow	左右ブロック矢印
38		msoShapeUpDownArrow	上下2方向ブロック矢印
39		msoShapeQuadArrow	4方向ブロック矢印
40		msoShapeLeftRightUpArrow	左右上の3方向ブロック矢印
41		msoShapeBentArrow	90°の曲線に続くブロック矢印
42		msoShapeUTurnArrow	U字型のブロック矢印
43		msoShapeLeftUpArrow	左および上矢印の2方向ブロック矢印
44		msoShapeBentUpArrow	90°の鋭角線に続くブロック矢印
45		msoShapeCurvedRightArrow	右カーブブロック矢印
46		msoShapeCurvedLeftArrow	左カーブブロック矢印
47		msoShapeCurvedUpArrow	上カーブブロック矢印
48		msoShapeCurvedDownArrow	下カーブブロック矢印
49		msoShapeStripedRightArrow	先にストライプの付いた右向きのブロック矢印
50		msoShapeNotchedRightArrow	右向きのV字型矢印
51		msoShapePentagon	ホームベース横
52		msoShapeChevron	山形
53		msoShapeRightArrowCallout	右矢印の付いた吹き出し
54		msoShapeLeftArrowCallout	左矢印の付いた吹き出し
55		msoShapeUpArrowCallout	上矢印の付いた吹き出し
56		msoShapeDownArrowCallout	下矢印の付いた吹き出し
57		msoShapeLeftRightArrowCallout	左右矢印の付いた吹き出し
58		msoShapeUpDownArrowCallout	上下のブロック矢印の付いた吹き出し
59		msoShapeQuadArrowCallout	4方向矢印の付いた吹き出し
60		msoShapeCircularArrow	180°の曲線に続くブロック矢印
61		msoShapeFlowchartProcess	処理フローチャート記号
62		msoShapeFlowchartAlternateProcess	代替処理フローチャート記号
63		msoShapeFlowchartDecision	判断フローチャート記号
64		msoShapeFlowchartData	データフローチャート記号
65		msoShapeFlowchartPredefinedProcess	定義済み処理フローチャート記号
66		msoShapeFlowchartInternalStorage	内部記憶フローチャート記号
67		msoShapeFlowchartDocument	書類フローチャート記号
68		msoShapeFlowchartMultidocument	複数書類フローチャート記号
69		msoShapeFlowchartTerminator	端子フローチャート記号
70		msoShapeFlowchartPreparation	準備フローチャート記号
71		msoShapeFlowchartManualInput	手操作入力フローチャート記号
72		msoShapeFlowchartManualOperation	手作業フローチャート記号
73		msoShapeFlowchartConnector	結合子フローチャート記号
74		msoShapeFlowchartOffpageConnector	他ページ結合子フローチャート記号
75		msoShapeFlowchartCard	カードフローチャート記号
76		msoShapeFlowchartPunchedTape	せん孔テープフローチャート記号
77		msoShapeFlowchartSummingJunction	和接合フローチャート記号
78		msoShapeFlowchartOr	論理和フローチャート記号
79		msoShapeFlowchartCollate	照合フローチャート記号
80		msoShapeFlowchartSort	分類フローチャート記号
81		msoShapeFlowchartExtract	抜き出しフローチャート記号
82		msoShapeFlowchartMerge	組み合わせフローチャート記号
83		msoShapeFlowchartStoredData	記憶データフローチャート記号
84		msoShapeFlowchartDelay	論理積ゲートフローチャート記号
85		msoShapeFlowchartSequentialAccessStorage	順次アクセス記憶フローチャート記号
86		msoShapeFlowchartMagneticDisk	磁気ディスクフローチャート記号
87		msoShapeFlowchartDirectAccessStorage	直接アクセス記憶フローチャート記号
88		msoShapeFlowchartDisplay	表示フローチャート記号
89		msoShapeExplosion1	爆発
90		msoShapeExplosion2	爆発2
91		msoShape4pointStar	星4
92		msoShape5pointStar	星5
93		msoShape8pointStar	星8
94		msoShape16pointSta	星16
95		msoShape24pointStar	星24
96		msoShape32pointStar	星32
97		msoShapeUpRibbon	リボンの端よりも上に中央面があるリボン
98		msoShapeDownRibbon	リボンの端よりも下に中央面があるリボン
99		msoShapeCurvedUpRibbon	上カーブリボン
100		msoShapeCurvedDownRibbon	下カーブリボン
101		msoShapeVerticalScroll	縦巻き
102		msoShapeHorizontalScroll	横巻き
103		msoShapeWave	大波
104		msoShapeDoubleWave	小波
105		msoShapeRectangularCallout	四角形吹き出し
106		msoShapeRoundedRectangularCallout	角丸四角形吹き出し
107		msoShapeOvalCallout	円形吹き出し
108		msoShapeCloudCallout	雲形吹き出し
109		msoShapeLineCallout1	枠付き水平の吹き出し線の付いた吹き出し
110		msoShapeLineCallout2	斜めの直線の付いた吹き出し
111		msoShapeLineCallout3	折れ線の付いた吹き出し
112		msoShapeLineCallout4	U字型の吹き出し線分の付いた吹き出し
113		msoShapeLineCallout1AccentBar	水平の強調線の付いた吹き出し
114		msoShapeLineCallout2AccentBar	斜めの吹き出し線と強調線の付いた吹き出し
115		msoShapeLineCallout3AccentBar	折れた吹き出し線と強調線の付いた吹き出し
126		msoShapeActionButtonHome	ホーム
127		msoShapeActionButtonHelp	ヘルプ
128		msoShapeActionButtonInformation	情報
129		msoShapeActionButtonBackorPrevious	戻る
130		msoShapeActionButtonForwardorNext	進む
131		msoShapeActionButtonBeginning	コマ戻し
132		msoShapeActionButtonEnd	コマ送り
133		msoShapeActionButtonReturn	戻る
134		msoShapeActionButtonDocument	文書
135		msoShapeActionButtonSound	サウンド
136		msoShapeActionButtonMovie	ビデオ

※116～120・137は同一模様の為省略