エクセル[Excel] マクロを１から解説しています。

エクセルのマクロを使って、セルに「印」を付ける設定を作ってみましょう。

【例題】

エクセルシート上に「男」「女」「夫」「妻」など、数箇所に選択欄を設置して、それぞれのいずれかに「○」を設定してください。

という例題があるとします。

マクロではなくオートシェイプで「○」をつけていくという方法もあるのですが、件数が多いとその分時間も掛かってしまって面倒ですよね。間違えてしまうかもしれないですし、、、。

以下のようなマクロをＶＢＥ（visual basic editor）上にコーディングしてみてください。

ＶＢＥは、Alt＋F11で開けます。

Sub sirusi()
Dim a As Range
　If TypeName(Selection) = "Range" Then
　　Set a = Selection
　　ActiveSheet.Shapes.AddShape(msoShapeOval, a.Left,　_
　　　　　 a.Top, a.Width, a.Height).Select
　　Selection.ShapeRange.Fill.Visible = msoFalse
　　a.Select
　End If
End Sub

以上です。

これをＶＢＥ上に表記し、画面を閉じてください。

次に実行してみましょう。

Alt＋F8でマクロ一覧を開き、sirusiを選択します。この状態で「オプションボタン」などを選択し、ショートカットに任意の文字を設定しておきましょう。ここでは「Y」あたりにしておきます。

エクセル上で適当なセルを選択した上で、Ctrl＋Yを押下してみてください。

そのセルに「○」が表示されるようになっているのを確認しましょう。上手く出来ましたか？