画面の更新を停止(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 |
実行結果
関連記事
-
-
セルのデータを固定長形式で複数のセルに分割する(TextToColumns メソッド・Parse メソッド)
固定長形式でセルを分割 TextToColumns メソッドや Parse メソ …
-
-
RGB 値一覧表(XlRgbColor 列挙型)
RGB 値(XlRgbColor 列挙型)一覧表 RGB 関数を使用して、出力さ …
-
-
Option Compare ステートメント
Option Compare ステートメントの使い方 【書式】 Option C …
-
-
文字列:指定した文字の文字コードを取得する(Asc 関数)
Asc 関数 【書式】 result = Asc ( string ) 引数・戻 …
-
-
エラー(CVErr 関数・IsError 関数・Error 関数)
CVErr 関数(エラー番号をエラー値に変換する)の使い方 【書式】 retur …
-
-
対象のオブジェクトをクリアする(Clear メソッド)
Clear メソッド 対象となるオブジェクト全体をクリアします。Range オブ …
-
-
フォント 太字・斜体(Bold, Italic, FontStyle プロパティ)
太字の設定(Bold プロパティ) Bold プロパティは、フォントを太字にする …
-
-
配列の添字の最小値を「1」に設定する
Option Base ステートメントを使用する 【書式】 Option Bas …
-
-
変数がオブジェクト型かどうかをチェックする( IsObject 関数 )
IsObject 関数の使い方 【書式】 result = IsObject ( …
-
-
メッセージボックスを表示(MsgBox関数)
MsgBox関数 【書式】 result = MsgBox ( Prompt [ …