エクセル新規ファイルでマクロを自動実行する方法

2013/04/14 17:27

このQ&Aのポイント

エクセル新規ファイルでマクロを自動実行する方法について説明します。
personal.xlsでSub auto_open()とすることで、新規にエクセルを開いたときにマクロを実行することができます。
ただし、ファイル名にABCが含まれる場合にのみマクロを実行するには、どのファイルを開いてもマクロが自動的に実行される方法が必要です。

ogawawa
お礼率95% (58/61)

その他MS Office製品
回答数3
ありがとう数3

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

keithin
ベストアンサー率66% (5278/7941)

2013/04/14 17:44 回答No.2

アプリケーションイベントを使うため、いつもより少し準備をします。手順：ＶＢＥ画面でPersonal.xlsに挿入メニューから「クラスモジュール」を追加するクラスモジュールに下記をコピー貼り付ける Public WithEvents App As Application Private Sub App_WorkbookOpen(ByVal Wb As Workbook) 　If InStr(Wb.Name, "abc") > 0 Then 　　Wb.Worksheets(1).Range("A1") = 111 　End If End Sub Personal.xlsのThisWorkbookに下記をコピー貼り付ける Dim x As New Class1 Private Sub Workbook_Open() 　Set x.App = Application End Sub エクセルを再起動する。個人用マクロブックの変更を問われたら、当然はいと答える。新規じゃなく既存のブックを開いて動作を確認する。

質問者

お礼 2013/04/14 23:21

さっそくのご回答ありがとうございました。完璧です。イベントを使うということですね。プログラムの細かい意味は別途こちらで調べますが、動作は確認し、OKでした。とても助かりました。本当にありがとうございました。

ログインすると、全ての回答が全文表示されます。

その他の回答 (2)

cj_mover
ベストアンサー率76% (292/381)

2013/04/14 19:39 回答No.3

こんにちは。お邪魔します。ちょっとしたこと、、、なのですが、そういう目的だと、ThisWorkbook モジュールに集約してすべてPrivateスコープに統一するのがＶＢＡらしくていいかなぁ、と、思います。好みだとは思いますし、実践例も恐らく半々程度に分かれると思いますが、Class モジュールの扱いも知った上で ThisWorkbook モジュールでの実装、不足が出たならClass モジュールというのが、私も実践している私のお奨めです。メンテが容易というのが唯一のメリットですが、デメリットはないと私は思います。 ' ' =========PERSONAL.XLS=========== ' ' ====ThisWorkbook モジュール==== Option Explicit Private WithEvents xlApp As Application Private Sub Workbook_Open() 　　Set xlApp = Application End Sub Private Sub xlApp_WorkbookOpen(ByVal Wb As Workbook) 　　If InStr(1, Wb.Name, "abc", vbTextCompare) > 0 Then 　　　　Wb.Sheets(1).Range("A1") = 111 　　End If End Sub ' ' ============================== 因みに、こういう場合はauto_openは使わない方が簡単ですので、標準モジュールの方でauto_openが動かないようにしておいた方が良いと思います。以上です。

質問者