エクセルマクロを実行する時は、マクロを呼び出して「マクロの名前」を選び実行します。
マクロの実行ボタンを作成し、ボタンにマクロを登録しておくことができます。
ボタンをクリックするだけで、マクロを実行することができて便利です。
ここでは、テキストボックスを使って マクロの実行ボタン を作ります。
マクロの実行ボタンの作り方
マクロが作成されている、Excelのファイルを開きます。
「挿入タブ」＞「図」＞「図形」＞「正方形/長方形」をクリックします。
マウスポインターが「十字」になりますので、Excelの画面上でクリックします。
テキストボックスが作成されます。
テキストボックスを「Wクリック」して、「実行」と入力します。
図形のサイズを適当な大きさにして、好きな所に位置を移動します。
塗りつぶしの色やフォントサイズなどを変更することもできます。
マクロを実効ボタンに登録する方法
作成したボタンにExcelマクロを登録するには、次のようにします。
作成したボタンを「右クリック」して、メニューの中の「マクロの登録」をクリックします。
「マクロの登録」がでますので、登録するマクロ名を選んで「OK」をクリックします。
これで、ボタンにマクロが登録されましたので、ボタンをクリックすればマクロが実行されます。
マクロの記録でマクロの実行ボタンを作る方法
上で作成した「実行ボタン」を マクロの記録 で作ることができます。
Excelで一連の操作の流れを、マクロの記録で作成します。
マクロの記録までの操作
- エクセルのファイルを開きます。
- 「開発タブ」＞「マクロの記録」をクリックします。
- 「マクロの記録」のダイアログが開きます。
- 必要に応じて名前を入力して、「OK」をクリックします。
- マクロの記録が「開始」されます。
エクセルの操作手順
- Excelの「挿入タブ」＞「図」＞「図形」＞「正方形/長方形」をクリックします。
- マウスポインターが「十字」になりますので、Excelの画面上でクリックします。
テキストボックスが作成されます。 - テキストボックスを「Wクリック」して、「実行」と入力します。
- 図形のサイズを適当な大きさにして、好きな所に位置を移動します。
- 「開発タブ」の「記録終了」をクリックします。
一応コードを表示しておきますので、参考にしてください。
表示されているコードは、作り方（操作）によって変わります。
このマクロを作っておくと、Excelの画面にボタンを作ることができますので便利です。
■ コード内を「Wクリック」で選択できます。
Sub Macro1()
'
' Macro1 Macro
<pre><code>ActiveSheet.Shapes.AddShape(msoShapeRectangle, 183, 32.25, 72, 72).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "実行"
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 2). _
ParagraphFormat
.FirstLineIndent = 0
.Alignment = msoAlignLeft
End With
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 2).Font
.NameComplexScript = "+mn-cs"
.NameFarEast = "+mn-ea"
.Fill.Visible = msoTrue
.Fill.ForeColor.ObjectThemeColor = msoThemeColorLight1
.Fill.ForeColor.TintAndShade = 0
.Fill.ForeColor.Brightness = 0
.Fill.Transparency = 0
.Fill.Solid
.Size = 11
.Name = "+mn-lt"
End With
Selection.ShapeRange.ScaleWidth 0.5729166667, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 0.3645833333, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.IncrementLeft -12
Selection.ShapeRange.IncrementTop -30
Selection.ShapeRange.IncrementLeft -0.75
Selection.ShapeRange.IncrementTop 5.25
Range("A1").Select</code></pre>
End Sub
このマクロを実行すると、次のようにExcel画面に「実行」ボタンが作成されます。
以上で「エクセルマクロの実行ボタンを作る方法」の説明を終わります。