画面の更新を停止(ScreenUpdating プロパティ)
画面の更新を停止
マクロを実行すると、画面が更新されます。これにより、実行速度が遅くなったり、画面がちらついたりします。ScreenUpdating プロパティ を False に設定すると、画面の更新が停止します。
【書式】
object.ScreenUpdating = boolean
引数・戻り値
- object ・・・ 対象となる Application オブジェクトを指定します。
- boolean ・・・ 画面の更新を停止するには、False 、画面を更新するには、True を指定します。
ScreenUpdating プロパティ 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
Sub Sample_ScreenUpdating() '画面更新を停止 Application.ScreenUpdating = False 'ここの部分から画面更新を行わない ---------------------------------------- Range("A1").CurrentRegion.Select Selection.Copy Dim i As Integer For i = 1 To 3 With ActiveWorkbook.Worksheets.Add(after:=ActiveSheet) .Name = "新規 " & i .Paste ActiveWindow.Zoom = 150 End With Next i 'コピーモード・切り取りモードを解除 Application.CutCopyMode = False </div> 'ここの部分まで画面更新を行わない ---------------------------------------- '画面更新を再開 Application.ScreenUpdating = True End Sub |
実行結果
関連記事
-
-
カレントフォルダの取得・設定(DefaultFilePath プロパティ)
DefaultFilePath プロパティ カレントフォルダとは、ブックを開いた …
-
-
VBA で正規表現を使う(RegExp オブジェクトのプロパティ)
RegExp オブジェクトのプロパティ RegExp オブジェクトの詳細に関して …
-
-
指定した値を8進数で表記した文字列に変換する(Oct 関数)
Oct 関数 の使い方 【書式】 result = Oct ( expressi …
-
-
出力位置、書き込み位置を設定(Tab 関数)
出力位置、書き込み位置を設定 Tab 関数 は、Print メソッド、または P …
-
-
xlFileFormat 列挙型
xlFileFormat 列挙型 Workbook.SaveAs メソッド の引 …
-
-
VBA で正規表現を使う(RegExp オブジェクトのメソッド)
RegExp オブジェクトのメソッド RegExp オブジェクトの詳細に関しては …
-
-
Option Compare ステートメント
Option Compare ステートメントの使い方 【書式】 Option C …
-
-
Join 関数(配列の要素を結合)
Join 関数 1次元配列の各要素を指定した区切り文字で連結します。 【書式】 …
-
-
文字列:文字を指定数並べた文字列を返す(String 関数)
String 関数 【書式】 result = String ( number, …
-
-
XlThemeColor 列挙型
XlThemeColor 列挙 定数 値 内容 xlThemeColorDark …
