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

丸印をつける図形の操作

調べたいExcel-VBAの使用例などキーワードを入力してください

スポンサーリンク

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

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

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

とりっぷぼうる
とりっぷぼうる

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

スポンサーリンク

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

ここでは、カレンダーの日付の数字に〇をつける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解説
  1. 「丸印つけ」という名のマクロを実行する
  2. セルを扱う(Range型)変数「i」を宣言する
  3. 変数「i」は選択されているセルで代入する
  4. 選択されているセルの大きさに合わせて形は〇丸印にする
  5. グラフの枠線を書く
  6. 色はRBGの青色にする
  7. Withステートメント終了
  8. グラフの〇丸印の塗りつぶしはしない
  9. マクロ記録終了

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

丸印をつける

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

スポンサーリンク

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

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

たった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で表示したり非表示にしたり、つけたり消したりなど様々なことができますので、ぜひ参考にして下さいね。

スポンサーリンク

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

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

方法は簡単で、丸で囲む事を指定した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上下2方向ブロック矢印msoShapeUpDownArrow上下2方向ブロック矢印
394方向ブロック矢印msoShapeQuadArrow4方向ブロック矢印
40左右上の3方向ブロック矢印msoShapeLeftRightUpArrow左右上の3方向ブロック矢印
4190°の曲線に続くブロック矢印msoShapeBentArrow90°の曲線に続くブロック矢印
42U字型のブロック矢印msoShapeUTurnArrowU字型のブロック矢印
43左および上矢印の2方向ブロック矢印msoShapeLeftUpArrow左および上矢印の2方向ブロック矢印
4490°の鋭角線に続くブロック矢印msoShapeBentUpArrow90°の鋭角線に続くブロック矢印
45右カーブブロック矢印msoShapeCurvedRightArrow右カーブブロック矢印
46左カーブブロック矢印msoShapeCurvedLeftArrow左カーブブロック矢印
47上カーブブロック矢印msoShapeCurvedUpArrow上カーブブロック矢印
48下カーブブロック矢印msoShapeCurvedDownArrow下カーブブロック矢印
49先にストライプの付いた右向きのブロック矢印msoShapeStripedRightArrow先にストライプの付いた右向きのブロック矢印
50右向きのV字型矢印msoShapeNotchedRightArrow右向きのV字型矢印
51ホームベース横msoShapePentagonホームベース横
52山形msoShapeChevron山形
53右矢印の付いた吹き出しmsoShapeRightArrowCallout右矢印の付いた吹き出し
54左矢印の付いた吹き出しmsoShapeLeftArrowCallout左矢印の付いた吹き出し
55上矢印の付いた吹き出しmsoShapeUpArrowCallout上矢印の付いた吹き出し
56下矢印の付いた吹き出しmsoShapeDownArrowCallout下矢印の付いた吹き出し
57左右矢印の付いた吹き出しmsoShapeLeftRightArrowCallout左右矢印の付いた吹き出し
58上下のブロック矢印の付いた吹き出しmsoShapeUpDownArrowCallout上下のブロック矢印の付いた吹き出し
594方向矢印の付いた吹き出しmsoShapeQuadArrowCallout4方向矢印の付いた吹き出し
60180°の曲線に続くブロック矢印msoShapeCircularArrow180°の曲線に続くブロック矢印
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爆発2msoShapeExplosion2爆発2
91星4msoShape4pointStar星4
92星5msoShape5pointStar星5
93星8msoShape8pointStar星8
94星16msoShape16pointSta星16
95星24msoShape24pointStar星24
96星32msoShape32pointStar星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折れ線の付いた吹き出し
112U字型の吹き出し線分の付いた吹き出しmsoShapeLineCallout4U字型の吹き出し線分の付いた吹き出し
113水平の強調線の付いた吹き出しmsoShapeLineCallout1AccentBar水平の強調線の付いた吹き出し
114斜めの吹き出し線と強調線の付いた吹き出しmsoShapeLineCallout2AccentBar斜めの吹き出し線と強調線の付いた吹き出し
115折れた吹き出し線と強調線の付いた吹き出しmsoShapeLineCallout3AccentBar折れた吹き出し線と強調線の付いた吹き出し
126ホームmsoShapeActionButtonHomeホーム
127ヘルプmsoShapeActionButtonHelpヘルプ
128情報msoShapeActionButtonInformation情報
129戻るmsoShapeActionButtonBackorPrevious戻る
130進むmsoShapeActionButtonForwardorNext進む
131コマ戻しmsoShapeActionButtonBeginningコマ戻し
132コマ送りmsoShapeActionButtonEndコマ送り
133戻る2msoShapeActionButtonReturn戻る
134文書msoShapeActionButtonDocument文書
135サウンドmsoShapeActionButtonSoundサウンド
136ビデオmsoShapeActionButtonMovieビデオ

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

タイトルとURLをコピーしました