ブックを開いたときにマクロを自動的に実行する

注: 最新のヘルプ コンテンツをできるだけ早く、お客様がお使いの言語で提供したいと考えております。このページは、自動翻訳によって翻訳されているため、文章校正のエラーや不正確な情報が含まれている可能性があります。私たちの目的は、このコンテンツがお客様の役に立つようにすることです。お客様にとって役立つ情報であったかどうかを、このページの下部でお知らせください。簡単に参照できるように、こちらに英語の記事があります。

特定のブックを開いたときに、記録しておいたマクロを自動的に実行したい場合があります。 次の手順では、例を使って方法を説明します。 Excel の起動時にマクロを自動的に実行したい場合もあります。

作業を開始する前に、[開発] タブがリボンに表示されていることを確認します。詳細については、「 [開発] タブを表示する」を参照してください。

次の例を使用するには、新しいブックを開きます。

重要: VBA コードを元に戻すことはできないため、空白のブックまたは既存のブックのコピーでコードをテストしてください。必要なコードが実行されない場合は、変更を保存せずにブックを閉じることができます。

  1. [開発]、[Visual Basic] の順にクリックします。

    [開発] タブの [コード] グループ

  2. 左側のvba プロジェクトエクスプローラーで、ブックのvba プロジェクトフォルダーを展開し、 ThisWorkbookモジュールをダブルクリックします。[プロジェクトエクスプローラー] が表示されていない場合は、[表示]、[プロジェクトエクスプローラー] の順に移動するか、ctrl キーを押しながら研究を行うことができます。

    Visual Basic Editor (VBE) の ThisWorkbook モジュール
  3. 右側に表示される [モジュール] ウィンドウで、次のコードを挿入します。

    Private Sub Workbook_Open()
    ' Put your code here
    End Sub
  4. sub 行とEnd subの間の sub プロシージャに、記録されたコードを貼り付けます。

    Visual Basic Editorを閉じます (何も保存する必要はありません)。

  5. ブックをExcel マクロ有効ブック (* xlsm)として保存し、それを閉じます。

次にブックを開いたときに、 Workbook_Openプロシージャに追加したコードが自動的に実行されます。

作業を開始する前に、[開発] タブがリボンに表示されていることを確認します。次の操作を行います。

  1. メニューで、[ Excel ]、[環境設定]、[リボンとツールバー] の順にクリックします。

  2. [リボンのユーザー設定] カテゴリの [メインタブ] の一覧で、[開発] チェックボックスをオンにします。

  3. [保存] をクリックします。

次の例を使用するには、新しいブックを開きます。

重要: VBA コードを元に戻すことはできないため、空白のブックまたは既存のブックのコピーでコードをテストしてください。必要なコードが実行されない場合は、変更を保存せずにブックを閉じることができます。

  1. [開発]、[Visual Basic] の順にクリックします。

  2. 左側のvba プロジェクトエクスプローラーで、ブックのvba プロジェクトフォルダーを展開し、 ThisWorkbookモジュールをダブルクリックします。

  3. 右側に表示される [モジュール] ウィンドウで、次のコードを挿入します。

    Private Sub Workbook_Open()
    ' Put your code here
    End Sub
  4. sub 行とEnd subの間の sub プロシージャに、記録されたコードを貼り付けます。

    Visual Basic Editorを閉じます (何も保存する必要はありません)。

  5. ブックをExcel マクロ有効ブック (* xlsm)として保存し、それを閉じます。

次にブックを開いたときに、 Workbook_Openプロシージャに追加したコードが自動的に実行されます。

補足説明

Excel Tech Community では、いつでも専門家に質問できます。Microsoft コミュニティでは、サポートを受けられます。また、Excel User Voice では、新機能についての提案や改善案を送信することができます。

Office のスキルを磨く
トレーニングの探索
新機能を最初に入手
Office Insider に参加する

この情報は役に立ちましたか?

ご意見をいただきありがとうございます。

フィードバックをお寄せいただき、ありがとうございます。Office サポートの担当者におつなぎいたします。

×