作成したマクロのコピーと編集

マクロ講座5回

マクロのコピー、編集

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

■前回の復習■

　前回、マクロの構文は、大きく２つだけと言いました。
　内容をおさらいすると、

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

　　その１つが、


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

　　もう一つは、


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

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

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

　思い出しましたか？


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

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

（1） それでは、前回のマクロの中身を表示させてください。

コードは以下のようになっています。

Sub Macro10()
'選択範囲をコピーして新規ブックに貼り付け
    Selection.Copy '選択したものをコピー
    Workbooks.Add 'ワークブックを追加
    ActiveSheet.Paste 'アクティヴシートに貼り付ける
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, _
        Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 End Sub

コードの変更　新規ブックを新規シートに変更する　

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

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

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

選択範囲をコピーし新規シートに貼り付ける列幅も　

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

Sub 選択範囲をコピーし新規ブックに貼り付ける列幅も()
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Selection.PasteSpecial Paste:=xlPasteColumnWidths
End Sub
    

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

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

編集したマクロはブックの保存と同時に保存されるので、
ここでは保存せすに閉じてしまっても大丈夫です。
どうしても心配なら、先に保存アイコンをクリックしてください。