ベストアンサー

VBAの「This Workbook」について

2007/07/22 07:07

VBAの「This Workbook」にコードを書くことについて教えて下さい。ここにコードを書きと、例えばどんな便利な機能があるのでしょうか？よろしくお願いします。私は下記の意味はだいだいわかります。 Private Sub Workbook_BeforeClose(Cancel As Boolean) Private Sub Workbook_Open()

taka1012
お礼率92% (1804/1954)

Visual Basic
回答数2
ありがとう数3

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

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

ベストアンサー

imogasi
ベストアンサー率27% (4737/17070)

2007/07/22 09:32 回答No.2

VBEのVBAProjectにSheet1などシートモジュールがあります。そのWorkBook版だと思えばよいと思います。（１）Workbookのイベントのプロシージュアー（２）各個々のSheetに関連して、その上（どのシートにおいてもそのイベントが起これば）のレベルでシートのイベントを捉える（３）Window画面関連（４）その他などをここに書く。（１）はOpen、Close、Activate、それらのBefoe版（２）はSheettXXXの形のもの、Newsheet （３）はWindowActivateなど（４）その他PivotTableやAddinとの絡みーー＞便利な機能があるのでしょうか便利というか、ユーザーが利用したいとき、あれば使えて貴重、無ければどうするかというものだと思います。これ以外のほしいものは無いのか、とは思います。（１）以外は、高等な使い方をする方向きの選択肢という気がします。

質問者

お礼 2007/07/23 04:42

ご回答ありがとうございます。よくわかりました。

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

その他の回答 (1)

temtecomai2
ベストアンサー率61% (656/1071)

2007/07/22 08:46 回答No.1

例えば各シートには Activate イベントがあります。 TshisWorkbook にも SheetActivate イベントがあります。これらの違いをよ～く見てください。 Sheet1 の Activate イベントは Private Sub Worksheet_Activate() となっており、 ThisWorkbook の方は Private Sub Workbook_SheetActivate(ByVal Sh As Object) となっています。違いが分かりましたか？ ThisWorkbook の Activate イベントには引数がありますね。この引数は何だと予想しますか？アクティブになったシートを表す Worksheet オブジェクトです。シートがアクティブになったときに何らかの処理をしたい場合、それが Sheet1 の場合だけなら Sheet1 の Activate イベントに記述すれば済みますが、いくつかのシートである程度共通した処理をしたい場合は ThisWorkbook の SheetActivate イベントを利用します。下記コードはアクティブになったシートのセル A1 に、現在の日時を書き込み、さらにはシートの名前によって処理を分けています。（具体的な処理は書いてませんが） Private Sub Workbook_SheetActivate(ByVal Sh As Object) 　　Sh.Cells(1, 1).Value = Now() 　　Select Case Sh.Name 　　　　Case "Sheet1" 　　　　　　' 処理1 　　　　Case "Sheet2" 　　　　　　' 処理2 　　　　Case "Sheet3" 　　　　　　' 処理3 　　End Select End Sub

質問者