マクロのコピー、編集～やさしいマクロ講座

マクロ講座menu

マクロのコピー、編集

前回の復習とマクロの応用例として、生成されたコードを編集して実務に役立つ一行マクロを作成しましょう。。選択範囲をコピーし新規シートに貼り付け
（サンプルファイルは、こちらからマクロ講座5回サンプルデータ）

■前回の復習■

　前回、マクロの構文は、大きく２つだけと言いました。

　内容をおさらいすると、
　

　　実は、マクロのコードは、たった２つの構文で成り立っているからです。

　　その１つが、

　　　「対象．属性＝値」構文です。
　　　　
　　　　つまり対象（選ばれた物）の属性を○○にする

　　もう一つは、

　　　　「対象．動作」構文です。
　　　　
　　　　意味は、対象を動作する
　　　　
　　　　
　　マクロのコードは、この２つの構文しかないのですから、
　　たとえ、英語で書かれているからといっても、恐れることはないんです。

　そして、次ののマクロを作成しましたね。　

選択範囲をコピーして新規ブックに貼り付けマクロ

　思い出しましたか？

マクロを保存してない人は、前回のサンプルをダウンロードしてください。

マクロの有効活用　選択範囲をコピーし新規シートに貼り付けるマクロ　

（1）それでは、前回のマクロの中身を表示させてください。
　　[ツール]メニューの[マクロ]から[マクロ…]を選択します。
　　[マクロ]ダイアログボックスが表示されます。
　　ここで、［マクロ名]のリストから表示させたいマクロを選択し、
　　［編集]をクリックします。

（2）マクロ本文の意味は、

Selection.Copy 　　選択したものをコピー

Workbooks.Add 　ワークブックを追加

ActiveSheet.Paste　アクティヴシートに貼り付ける

　 Workbooks.Add で、ワークブックを追加という意味になりますから、
　その Workbooksをシートを追加に変更してみましょう。

（3）コードを選択し、コピーします。

コードの左上端にマウスポインタを合わせ、
マウスポインタが右向きに変わったら、左端を下にドラッグしてコードを
選択します。
マウスの右ボタンをクリックして、表示されるメニューからコピーを選択します。

貼り付けます。
コードの一番下にカーソルを置き、マウスの右ボタンをクリックして、
メニューから[貼り付け]を選択します。

コピーしたコードをその真下に貼り付けたところです。
このままでは、同じ名前のマクロが2つあることになりエラーが起きてしまいます。
まず名前を変更しましょう。

（4）マクロ名を変更

コピーしたマクロの名前部分、
新規ブックを新規シートに変更しました。

（5）マクロ本文の編集
　Workbooks　を　Sheets に書き換えます。

（'の部分は説明の邪魔なので省略します）

変更前

Sub 選択範囲をコピーし新規ブックに貼り付け()
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
End Sub

変更後

Sub 選択範囲をコピーし新規シートに貼り付け()
    Selection.Copy
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Paste
End Sub

（6）右上隅の｢閉じる」ボタンをクリックして、VisualBasicEditorを閉じます。

編集したマクロはブックの保存と同時に保存されるので、
ここでは保存せすに閉じてしまっても大丈夫です。

どうしても心配なら、先に保存アイコンをクリックしてください。

次の講義へ

「マクロ講座5回」～マクロのコピー、編集～