イベントの発生・無効をコントロール(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 |
実行結果
関連記事
-
-
ブック作成時のシート数の取得・設定(SheetsInNewWorkbook プロパティ)
SheetsInNewWorkbook プロパティ Excel で新規ブックに自 …
-
-
Excel を全画面表示(DisplayFullScreen プロパティ)
DisplayFullScreen プロパティ DisplayFullScree …
-
-
ブックのコピーを保存(SaveCopyAs メソッド)
SaveCopyAs メソッド SaveCopyAs メソッド は、現在開いてい …
-
-
新規ブック作成(Add メソッド)
新規にワークブックを作成する Workbooks コレクションの Add メソッ …
-
-
印刷の先頭のページ番号を設定(PageSetup.FirstPageNumber プロパティ)
PageSetup.FirstPageNumber プロパティ PageSetu …
-
-
ウィンドウを整列(Windows.Arrange メソッド)
ウィンドウを整列(Windows.Arrange メソッド) Windows コ …
-
-
分割したウィンドウの取得(Panes コレクション,Pane オブジェクト)
分割したウィンドウ 「ウィンドウ枠の固定」や「ウィンドウの分割」での、すべての領 …
-
-
ワークブックを保護・保護を解除(Protect メソッド・Unprotect メソッド)
Protect メソッド・Unprotect メソッド Protect メソッド …
-
-
印刷実行前に総ページ数を取得(ExecuteExcel4Macro メソッド)
印刷の総ページ数を取得(ExecuteExcel4Macro メソッド) Exc …
-
-
スクロール(LargeScroll メソッド、Smallscroll メソッド)
ワークシートをスクロールする ワークシートをスクロールするには、LargeScr …
