連携 Excelの起動・アクティブ・終了時にマクロを実行-イベント内に記述する方法

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][連携 Excelの起動・アクティブ・終了時にマクロを実行-イベント内に記述する方法]
  • WorkbookEvent
  1. 自動実行には2通りの方法がある
  2. エクセル起動後全てに発生させるAuto_Open
  3. 各ブック単位で発生させるワークブックイベント
  4. ここではワークブックイベントの記述方法を紹介します。
WorkbookEvent/06.jpg
  1. Visual Basic Editor起動
  2. ThisWorkbook オブジェクト
  3. ダブルクリック
  4. ※Sheetに対しても設置可能です。
  1. 右上の
  2. Object
  3. Workbookにする
  4. Workbookしかない
WorkbookEvent/08.jpg
  1. いきなり
  2. Workbook_Openが記述されます。
  3. 不要な場合は後で消せます。
  1. 他のイベントを選択するには
  2. 図のように選択します。
  3. イベント名とその働きは下図を参考にして下さい。
Option Explicit


Private Sub Workbook_Open()
    MsgBox "Workbook_Open"
End Sub


Private Sub Workbook_Activate()
    MsgBox "Workbook_Activate"
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    MsgBox "Workbook_BeforeClose"
End Sub

Workbookイベント一覧<2000>

イベント 対象 働き(タイミング)
Workbook Activate ブック アクティブになったら発生
AddinInstall アドインとして組み込まれたら発生
AddinnUninstall アドインから解除されたら発生
BeforeClose 閉じられる前
BeforePrint 印刷される前
BeforeSave 保存される前
Deactive アクティブでなくなったら発生
NewSheet 新規シートを追加されたら発生
Open 開かれたら発生
SheetActive シート アクティブになったら発生
SheetBeforeDoubleClick ダブルクリックされたら発生
SheetBeforeRightClick 右クリックされたら発生
SheetCalculate 再計算されたら発生
SheetChange セルの値が変更されたら発生
SheetDeactive アクティブでなくなったら発生
SheetFollowHyperlink ハイパーリンクをクリックしたら発生
SheetSelectionChange セルの選択範囲が変更されたら発生
WindowActivate ウインドウ アクティブになったら発生
WindowDeactivate アクティブでなくなったら発生
WindowResize 大きさが変更されたら発生
Worksheetkイベント一覧
Option Explicit


Private Sub Worksheet_Activate()
'アクティブになったら発生
End Sub


Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)      '引数が必要
'ダブルクリックされたら発生
End Sub


Private Sub Worksheet_BeforeRightClick _
(ByVal Target As Range, Cancel As Boolean)      '引数が必要
'右クリックされたら発生
End Sub


Private Sub Worksheet_Calculate()
'再計算されたら発生
End Sub


Private Sub Worksheet_Change _
(ByVal Target As Range)                         '引数が必要
'セルの値が変更されたら発生
End Sub


Private Sub Worksheet_Deactivate()
'アクティブでなくなったら発生
End Sub


Private Sub Worksheet_FollowHyperlink _
(ByVal Target As Hyperlink)                     '引数が必要
'ハイパーリンクをクリックしたら発生
End Sub


Private Sub Worksheet_SelectionChange _
(ByVal Target As Range)                         '引数が必要
'セルの選択範囲が変更されたら発生
End Sub





Production Japan Import Application. Since 1998