ブックが開いたとき自動で (mm0817)

ブックが開いたとき何かしたい場合の色々な方法について説明します

(1) ブックが開いたとき何か処理をする色々な方法

(a)標準モジュールでプロシジャ名をauto_openにする方法 → (2) で解説
(b)ThisWorkbookでWorkbook_Openを利用する方法 → (3) で解説
一般的にはブックが開いたときに[フォームを開く]、[ウィンドウを最大化する]、 [ツールバーを非表示にする]、[特定のシートを開く]などに使われます

(2) 標準モジュールでプロシジャ名をauto_openにする方法

プロシジャを作成して、その名前をauto_openにするとブックが開くときエクセルは自動的にそのプロシジャを実行します
これについてはExcel_VBA_HELP の「RunAutoMacros メソッド」に書かれています
具体例：ブックが開いたとき、必ずSheet5を開くようにする↓
```
   Sub auto_open() 
      Worksheets("Sheet5").Activate
   End Sub
```
このようにSub auto_open()とEnd Subの間に起動した時にすべきことをコードとして、書きます
逆に閉じるときにすべきことは auto_close() にコードを書きます
参考ページ
- [[20040622103241]] 『指定のシートを開くマクロ』（さとし）
- ↑[HISA]さん、いつもありがとう

(3) ThisWorkbookでWorkbook_Openを利用する方法

これはブックを開いたときに発生するOpenイベントです
これについてはExcel_VBA_HELP の「Open イベント」に書かれています
手順
- ワークシートから[Alt]キー+[F11]キーでVBEの世界へ入ります
- 左側にあるプロジェクトエクスプローラの中で自分のブックの ThisWorkbookをダブルクリックします
- 右側に白紙が表示され、白紙の上端左[オブジェクト]欄に(General) 、白紙の上端右[プロシージャ]欄に (Declarations) が表示されます
- この[オブジェクト]欄のコンボボックスをクリックして、 [Worksbook]を選択します
- すると右側の[プロシージャ]欄は[Open]になります。この手順で下のように、プロシジャの枠組みが作成されます
```
      Private Sub Workbook_Open()

      End Sub
```
- このPrivate Sub Workbook_open()とEnd Subの間に起動した時にすべきことをコードとして、書きます
- 逆に閉じるときにすべきことは Workbook_BeforeClose() 又は Workbook_BeforeSave() にコードを書きます
ブックを開いたとき、特定の文字をセットする例
[[20040527161528]] 『ファイルを開いたとき常に同じ文字を』（なな）
　↑[川野鮎太郎]さん、[マーヤ]さん、いつもありがとう

(4) auto_open を書く場所と auto_open を働かせたくないとき

(a)auto_openは標準モジュールに書きます
(b)auto_openを働かせたくない場合は、ブックのアイコンをダブルクリックする時に[Shift]キーを押したままダブルクリックすることで可能です
参考ページ
- [[20040115102015]] 『自動的にファイルを開く』（MOMOKA☆）
- ↑[INA]さん、[jun53]さん、いつもありがとう

(5) auto_openとWorkbook_Openの実行順序と間接起動時の関係

(a)Workbook_Open → auto_openの順に実行されます。
逆に閉じるときはWorkbook_Close → auto_closeの順に実行されます
(b)ブック1から別のブック2を開く場合、下↓のようにするとブック2のauto_openのworkbook_openも動きません
- [ブック1]
```
  Workbooks.Open Filename:= _
  "C:\Documents and Settings\kazu\My Documents\excel\Book2.xls"
```
(c)エクセルのVBA_HELPにはブック1からブック2を開いて、ブック2（ANALYSIS.XLS）のauto_openを動かす方法が書かれています
- [ブック1]
```
  Workbooks.Open "ANALYSIS.XLS"
  ActiveWorkbook.RunAutoMacros xlAutoOpen
```
(d)実際にエクセルのブック1からブック2を開いて、ブック2のauto_openを動かす作業をマクロの自動記録で調べると下↓のようになっています
- [ブック1]
```
      Workbooks.Open(Filename:= _
        "C:\Documents and Settings\kazu\My Documents\excel\Book2.xls"). _
        RunAutoMacros Which:=xlAutoOpen
```
- このWhichiで使用できる定数は、下のいずれかです
  - xlAutoActivate ： Auto_Activate マクロ
  - xlAutoClose ： Auto_Close マクロ
  - xlAutoDeactivate ： Auto_Deactivate マクロ
  - xlAutoOpen ： Auto_Open マクロ

2024/03/29：更新 2004/08/17：登録訪問者：