マクロの自動記録と実行:Excel VBA入門

ここではExcel2003までの方法を説明しています。
Excel2007の場合はマクロの自動記録と実行（Excel2007編）を参照してください。
Excel2010の場合はマクロの自動記録を利用するをご覧ください。

スポンサードリンク

マクロの自動記録

マクロの自動記録を利用して、マクロを作成して実行してみましょう。
以下の例では、名前をふりがな順に並べ替るマクロを作成し、実行してみます。

元になるデータを作成します。下表のような名簿を作成しました。

名前は手入力で行います。(ふりがな情報を使って並べ替えるためです)
下の表をコピーした場合には漢字コード順に並べ替えられます。

	B	C
2	No	名前
3	1	山本
4	2	大野
5	3	内田
6	4	児玉
7	5	相沢
8	6	木下
9	7	井上
10	8	河合
11	9	桑野
12	10	江川

メニューバーの【ツール】→【マクロ】→【新しいマクロの記録】を選択します。
【マクロの記録】ダイアログが表示されますので、「マクロ名」「マクロの保存先」を確認して、【OK】をクリックします。
一般操作での並べ替えと同じように操作します。
1. C2セルをアクティブにします。
2. 標準ツールバーの【昇順で並べ替え】ボタンをクリックします。
3. 【記録】ツールバーの【記録終了】ボタンをクリックします。
  - (メモ)記録終了のツールバーを閉じてしまった場合
    メニューバーの表示→ツールバー→記録終了を選択すると表示できます。
【Alt】+【F11】でVisual Basic Editor (以下VBEと表記します)を開きます。
(メニューバーからは、【ツール】→【マクロ】→【Visual Basic Editor】を選択します)
標準モジュールのModule1にMacro1が記録されました。
確認できたら、VBEのウィンドウを閉じましょう。
上記2～3の手順で、Noの昇順に並べ替える操作をマクロの自動記録で作成します。
Macro2とします。

(参考)VBAコードは以下のように記録されました。サンプルはこちら→vba_01.xls(約30KB)

Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 :
'

'
Range("C2").Select
Range("B2:C12").Sort Key1:=Range("C2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortTextAsNumbers
End Sub
---------------------
Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 :
'

'
Range("B2").Select
Range("B2:C12").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortTextAsNumbers
End Sub