Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：ＶＢＡで画面更新がチラツク時の対策

Ｏｆｆｉｃｅ３６５は、表計算ソフト、ワープロソフト、プレゼンテーションソフト、データベースソフト等が
入っているオフィスソフトです。これをインストールして置けば、家庭や仕事で多くの事が出来る様になります。

しかし、ＥｘｃｅｌＶＢＡでで画面更新がチラツク現象が発生しました。
使用したパソコンは、下記のソフトを使用していました。

ＯＳ　　　　　　　：　Ｗｉｎｄｏｗｓ１０（６４ｂｉｔ）バージョン22H2（ＯＳビルド 19045.3086）
オフィスソフト　　：　Ｅｘｃｅｌ　ｆｏｒ　Ｍｉｃｒｏｓｏｆｔ　３６５　ＭＳＯ（16.0.16501.20074）
　　　　　　　　　　　６４ｂｉｔ

以下、Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：ＶＢＡで画面更新がチラツク時の対策を記載して行きます。

（項目１）
　・ＥｘｃｅｌＶＢＡでで画面更新がチラツク現象が発生しました。
　・ＶＢＡコードの以下の通りでした。
　・�@画面更新ＯＦＦ、�A画面更新ＯＮの制御をかけています。

　　Sub data_kousin()

　　　Dim i As Long

　　　Rows("17:454").Select
　　　Selection.EntireRow.Hidden = False

　　　Application.ScreenUpdating = False '画面更新ＯＦＦ　←　�@

　　　For i = 18 To 453

　　　　Application.StatusBar = "進行状況： " & i & "/" & 453

　　　　If Range("AB" & i) = Range("AB3") Or Range("AB" & i) = Range("AB4") Or
　　　　　Range("AB" & i) =Range("AB5") Or Range("AB" & i) = Range("AB6") Or
　　　　　Range("AB" & i) = Range("AB7") Then
　　　　　Rows(i & ":" & i).EntireRow.Hidden = False '行を表示
　　　　Else
　　　　　Rows(i & ":" & i).EntireRow.Hidden = True '行を非表示
　　　　End If

　　Next i

　　Application.ScreenUpdating = True '画面更新ＯＮ　←　�A

　　Application.StatusBar = False

　　Range("AD6").Select

　End Sub

（項目２）
　・種々検討した所、画面更新の制御を最初と最後で行うとチラツクは無くなりました。
　・ＶＢＡコードの以下の通りです。
　・�B画面更新ＯＦＦ、�C画面更新ＯＮの制御をかけています。

　Sub data_kousin2()

　　Dim i As Long

　　Application.ScreenUpdating = False '画面更新ＯＦＦ　←　�B

　　Rows("17:454").Select
　　Selection.EntireRow.Hidden = False '全行を再表示

　　'条件に該当しない行は非表示
　　For i = 18 To 453

　　　Application.StatusBar = "進行状況： " & i & "/" & 453

　　　If Range("AB" & i) = Range("AB3") Or Range("AB" & i) = Range("AB4") Or
　　　　Range("AB" & i) = Range("AB5") Or Range("AB" & i) = Range("AB6") Or
　　　　Range("AB" & i) = Range("AB7") Then
　　　　Rows(i & ":" & i).EntireRow.Hidden = False '行を表示
　　　Else
　　　　Rows(i & ":" & i).EntireRow.Hidden = True '行を非表示
　　　End If

　　Next i

　　Application.StatusBar = False

　　Range("AD6").Select

　　Application.ScreenUpdating = True '画面更新ＯＮ　←　�C

　End Sub

（項目３）
　・以上で、Ｏｆｆｉｃｅ３６５、Ｅｘｃｅｌ：ＶＢＡで画面更新がチラツク時の対策は終了です。