イベントの発生・無効をコントロール(EnableEvents プロパティ)
2015/12/19
EnableEvents プロパティ
EnableEvents プロパティに True を指定するとイベントの発生を有効にし、False を指定するとイベントが発生しなくなります。
<取得>
object.EnableEvents
<設定>
object.EnableEvents = boolean
引数・戻り値
- object ・・・ 対象となる Application オブジェクトを指定します。
- boolean ・・・ True または、False を指定します。
通常、EnableEvents プロパティは、True です。一時的に、イベントを無効にしたい時に、False を指定します。
例えば、起動時にマクロが実行するブックをマクロを起動させずにブックを開きたい時などに使用します。
Application.EnableEvents = False
Workbook.Open(“Book1.xlsm”)
Application.EnableEvents = True
- object ・・・ 対象となる Application オブジェクトを指定します。
- boolean ・・・ True または、False を指定します。
通常、EnableEvents プロパティは、True です。一時的に、イベントを無効にしたい時に、False を指定します。
例えば、起動時にマクロが実行するブックをマクロを起動させずにブックを開きたい時などに使用します。
Application.EnableEvents = False
Workbook.Open(“Book1.xlsm”)
Application.EnableEvents = True
EnableEvents プロパティ 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 |
Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.Value = Target.Address End Sub |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Sub Sample_EnableEvents() With Worksheets("Sheet1") .Range("A5").Activate .Range("B3").Activate Application.EnableEvents = False .Range("A1").Activate Application.EnableEvents = True .Range("B7").Activate End With End Sub |
実行結果
関連記事
-
-
アクティブプリンタを変更(ActivePrinter プロパティ)
ActivePrinter プロパティ ActivePrinter プロパティを …
-
-
0 を表示するかどうかを設定(DisplayZeros プロパティ)
DisplayZeros プロパティ DisplayZeros プロパティに、T …
-
-
印刷の倍率(拡大/縮小)(PageSetup.Zoom プロパティ)
PageSetup.Zoom プロパティ PageSetup.Zoom プロパテ …
-
-
ウィンドウの位置を入れ替える(ActivatePrevious メソッド、ActivateNext メソッド)
ウィンドウの位置を入れ替える ActivatePrevious メソッド、Act …
-
-
枠線の表示・非表示の設定(DisplayGridlines プロパティ)
枠線の表示・非表示の設定 枠線の表示・非表示を設定するには、DisplayGri …
-
-
ブックの表示・非表示(Visible プロパティ)
ブック表示・非表示(Visible プロパティ) ブック(ウィンドウ)が表示され …
-
-
WorksheetView オブジェクト
WorkSheetView オブジェクト 行列番号や枠線の表示・非表示の設定など …
-
-
ブックの変更が保存されているかを確認する(Saved プロパティ)
ブックの変更が保存されているかを確認する(Saved プロパティ) Saved …
-
-
印刷実行前に総ページ数を取得(ExecuteExcel4Macro メソッド)
印刷の総ページ数を取得(ExecuteExcel4Macro メソッド) Exc …
-
-
選択されているシートを参照する(SelectedSheets プロパティ)
SelectedSheets プロパティ 選択されているすべてのシートをあらわす …
