マクロの記録の作成手順と使い方

「Excel を使っているけど、マクロはやったことがない」という人が、マクロを作れるようになるにはどうしたら良いでしょうか？

というように、覚えていくのが良いと思います。

マクロの記録の使い方

たとえば、次のようなエクセルの操作を、VBAのコードで書いてマクロを作る場合で考えてみます。

たった、これだけのことでもマクロで書く場合、はじめての人には何をどう書いたら良いかわからないと思います。

しかし、「マクロの記録」を使えば次のようなコードになることがわかります。

Sub Macro1()
'
' Macro1 Macro
'
    Range("B2").Select　
    ActiveCell.FormulaR1C1 = "5"　
End Sub

「マクロの記録」を使うには、むずかしい操作はいりません。
また、VBAの用語もほとんど必要ありません。

「マクロの記録」を使うとエクセルの操作が記録されるので、コードがわからなくてもマクロを作ることができます。

マクロ記録の作成手順

エクセルの機能にある「マクロの記録」を使って、次のような簡単なマクロを作ります。

１．エクセルのシートを新しく開きます。
現在のシートはSheet1です。

２．開発タブの「マクロの記録」をクリックします。

３．「マクロの記録」ダイアログになります。
「マクロ名」は変更することができます。
「OK」をクリックします。

４．「マクロの記録」が始まります。
セルB2を選択します。
セルB2に「こんにちは！はじめてのマクロです。」と入力します。

５．セルA１を選択します。
マクロの記録の「記録終了」をクリックします。
これで、マクロが完成しました。

マクロのコードを見る方法

「マクロの記録」のコードが、どのようになっているかを見ることができますので紹介します。

１．開発タブの「Visual Basic」のボタンをクリックします。

２．VBE（Visual Basic Editor）の画面が開きます。
標準モジュールにあるプラス（＋）をクリックします。

２．「Module1」を「Wクリック」します。
右側にコードが表示されます。

３．セルB2に「こんにちは！はじめてのマクロです。」と表示するマクロのコードです。

Sub Macro1()
'
' Macro1 Macro
'
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "こんにちは！はじめてのマクロです。"
    Range("A1").Select
End Sub

マクロの記録でワークシートを追加する方法

１．エクセル画面を開き、ワークシートタブを「右クリック」します。
メニューの「挿入」をクリックします。

２．ワークシートのダイアログが開きますので、必要なものを選択して「OK」をクリックします。

３．ワークシートを選択してクリックすると、「Sheet4」が追加されました。

■　マクロの記録でワークシートの追加をする方法

上記の手動のエクセルの操作を「マクロの記録」を使って、ワークシートを追加するには次の操作をします。

Sub シート追加()
'
' シート追加 Macro
'
    Sheets("Sheet1").Select
    Sheets.Add
End Sub

マクロの記録で月名を自動で入れるマクロを作る

ここで作成するマクロは、次の図のようなエクセルの「A列」に1月から12月までの月名を、自動で入力するマクロです。

「開発タブ」＞「Visual Basic」を開いてコードを確認すると次のようになります。

Sub 月名()
'
' 月名 Macro
'

'
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "１月"
    ActiveCell.Characters(2, 1).PhoneticCharacters = "ガツ"
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "２月"
    ActiveCell.Characters(2, 1).PhoneticCharacters = "ガツ"
    Range("A1:A2").Select
    Selection.AutoFill Destination:=Range("A1:A12"), Type:=xlFillDefault
    Range("A1:A12").Select
    Range("A1").Select
End Sub

■　コードの説明
•　Range("A1") = "1月"
　’Range("A1")のセルに、「1月」を代入するという意味です。
•　Range("A1:A2").Select
　’Range("A1:A2")　A1とA2のセルを選択する。
•　Selection.AutoFill Destination:=Range("A1:A12")
　’選択したA1とA12のセルをオートフィルします。
•　Destination:=Range("A1:A12")
　’オートフィルしたものをA１からA12のセルに出力します。

■　横方向（列）に月名を入れるマクロ
今回のマクロは、縦方向（行）に月名を入力しましたが、横方向（列）に月名を入力するマクロは、簡単に想像できると思います。

マクロの記述は次のようになります。

Sub 月名入力列方向()
　　Range("A1") = "1月"
　　Range("B1") = "2月"
　　Range("A1:B1").Select
　　Selection.AutoFill Destination:=Range("A1:L1")
End Sub

このマクロを実行すると、次のように横方向に「月名」が入力されます。

以上で「マクロの記録の作成手順と使い方」の説明を終わります。