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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: テキストファイル（UTF-8）を読み込み、書き出し（ADODB.Stream）

Stream オブジェクト ADO（ActiveX Database Objec …

: CPU に制御を移す（DoEvents 関数）

DoEvents 関数 DoEvents 関数を実行すると、CPU に制御を移し …

: IME の現在の状態を取得します（IMEStatus 関数）

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

: VBA で正規表現を使う（RegExp オブジェクトのメソッド）

RegExp オブジェクトのメソッド RegExp オブジェクトの詳細に関しては …

: ある数値が、複数の範囲のどの範囲に含まれるかを示す文字列を返す（Partition 関数）

Partition 関数の使い方 Partition 関数は、ある数値が、区切 …

: 指定した数値に対応する選択肢の値・数式を返す（Choose 関数）

Choose 関数の使い方 Choose 関数は、指定されたインデックス値（１ …

: 文字列：文字列の空白を削除（Trim 関数, LTrim関数, RTrim関数）

Trim 関数・LTrim 関数・RTrim 関数の使い方【書式】＜先頭と末 …

: 列挙型変数（Enum ステートメント）

列挙型変数を使う列挙型変数を使用するには、Enum ステートメントを使って、宣 …

: データ型を調べてそのデータ型を示す文字列を返す（TypeName 関数）

TypeName 関数の使い方 TypeName 関数は、引数に、データ型を調 …

: フォント名（Name,ThemeFont,StandardFont）

フォント名を取得・設定する（Name プロパティ） Name プロパティは、オブ …

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