条件によって○印をつけるエクセルマクロの作成例 | エクセルマクロマスターへの道！【基本をしっかり！初心者向け勉強方法～作成方法・使い方】

エクセルであるデータを管理しているとき、シート上に「男」「女」や「夫」「妻」など、何カ所かに選択欄があり、どれかに「○」印をつけていきたい場合を考えてみましょう。

オートシェイプを使って、○印をつけていくこともできますが、データの量が多いときなどは、手間がかかってたいへんですし、間違えることもありそうですよね。

それでは、ある条件のときに印をつける、というマクロを作成してみましょう。

まずは、「ALT」＋「F１１」キーで、VBEを開きます。
そして、次のようなマクロのコード記述をしてください。

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

以上のコードを、VBEエディタ上に記入したら、画面を閉じ、ワークシートに戻ります。

それでは、「ALT」＋「F８」キーで、マクロ一覧を開き、このマクロを実行してみましょう。
マクロ「sirusi」を選択した状態で、「オプションボタン」などから、マクロへのショートカットを設定しておきます。
とりあえず、「Y」という文字をショートカットに入れましょう。

それでは、適当なセルを選択し、「Ctrl」＋「Y」を押してみましょう。
さきほど設定したショートカットで、作成した「sirusi」というマクロが正しく実行されると、そのセルに「○」が表示されます。

まだトラックバックがありません。