Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

画面の更新を停止（ScreenUpdating プロパティ）

2015/08/30

画面の更新を停止

マクロを実行すると、画面が更新されます。これにより、実行速度が遅くなったり、画面がちらついたりします。ScreenUpdating プロパティ を False に設定すると、画面の更新が停止します。

【書式】

object.ScreenUpdating = boolean

引数・戻り値

object ・・・対象となる Application オブジェクトを指定します。
boolean ・・・画面の更新を停止するには、False 、画面を更新するには、True を指定します。

ScreenUpdating プロパティ使用例

サンプルVBAソース

　
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

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

　

実行結果

- VBA基本 Application オブジェクト, ScreenUpdating プロパティ, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 式の値に応じて多分岐を行う（Switch 関数）

Switch 関数の使い方 Switch 関数は、「式・値」を対にして指定して …

: 日付時刻：時・分・秒を取得（Hour、Minute、Second 関数）

日付時刻から時・分・秒を取得する関数【書式】 time_hour = Hour …

: 文字列：指定した文字の文字コードを取得する（Asc 関数）

Asc 関数【書式】 result = Asc ( string ) 引数・戻 …

: 引数が省略されたかどうかをチェックする（ IsMissing 関数）

IsMissing 関数の使い方【書式】 result = IsMissing …

: 文字列：文字列の指定した位置から指定文字数取得（Mid 関数,MidB 関数）

Mid 関数・MidB 関数の使い方【書式】 result_mid = Mi …

: 日付時刻：数値から日付・時刻データを取得（ DateSerial 関数、TimeSerial 関数）

DateSerial 関数（数値を使って日付データを取得）【書式】 date …

: 文字列：指定した数の空白（スペース）からなる文字列を返す（Space 関数）

Space 関数【書式】 result = Space ( number ) …

: 引数の整数部分を取得する（Fix 関数・Int 関数）

Fix 関数・Int 関数の使い方【書式】 number_fix = Fix …

: インプットボックスを表示する（InputBox関数・InputBoxメソッド）

「InputBox関数」と「InputBoxメソッド」の違い「InputBox …

: VBA の演算子（演算子の優先順位）

演算子の優先順位演算子の優先順位とは、１つの式の中に演算子が複数ある場合、どの …

PREV: VBA で、ワークシート関数を使用（WorksheetFunction プロパティ）
NEXT: 列名を取得、列番号を取得（Address プロパティ,Column プロパティ）