どのファイルを開いた時もマクロを自動実行。エクセル

解決済

質問者：ogawawa
質問日時：2013/04/14 17:27
回答数：3件

新規にエクセルを開いたときだけマクロを自動実行するには、
personal.xlsで
Sub auto_open()
' Macro1 Macro
Range("A1").Value = "111"
End Sub
とすれば良いかと思いますが、
新規に開くどのファイルに対しても　ファイル名ＡＢＣ　を含んでいる時だけ
マクロを自動的に実行するにはどうしたらよいでしょうか？
（ファイルを開いてから　マクロボタンを押して　マクロに”ファイル名を
チェックしてA1にデータを書き込む”があるのはだめです。）
（アドインでツールバーボタンを押すのもだめです。）
エクセルは２００３　OSはＸＰです。
説明不足でしたらすみません。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： keithin
回答日時：2013/04/14 17:44

アプリケーションイベントを使うため、いつもより少し準備をします。

手順：
ＶＢＥ画面で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

エクセルを再起動する。個人用マクロブックの変更を問われたら、当然はいと答える。
新規じゃなく既存のブックを開いて動作を確認する。

- 0
- 件

通報する

この回答へのお礼

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

通報する

お礼日時：2013/04/14 23:21

No.3

回答者： cj_mover
回答日時：2013/04/14 19:39

こんにちは。

お邪魔します。
ちょっとしたこと、、、なのですが、
そういう目的だと、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が
動かないようにしておいた方が良いと思います。

以上です。