Ｅｘｃｅｌ２０１０、ＶＢＡで繰り返しが止まる時の対処方法

Ｅｘｃｅｌ２０１０は、手頃な価格で高機能な表計算ソフトです。
ファイル（ブック）には複数のシートを作成できて、色々な表やグラフを作れます。

しかし、Ｅｘｃｅｌ２０１０のＶＢＡで繰り返しが止まる時が有ります。この対策として、繰り返しの途中に
ＤｏＥｖｅｎｔｓを追記すると良くなります。本ページでは、更に改良する方法を検討しました。使用したパソ
コンは、下記のソフトを使用していました。

ＯＳ　　　　　　　：　Ｗｉｎｄｏｗｓ１０（６４ｂｉｔ）バージョン1909（ＯＳビルド 18362.657）
表計算ソフト　　　：　Ｅｘｃｅｌ２０１０（３２ｂｉｔ）

以下、Ｅｘｃｅｌ２０１０、ＶＢＡで繰り返しが止まる時の対処方法を記載して行きます。

（項目１）
　・Ｅｘｃｅｌ２０１０のＶＢＡで繰り返しが止まる時が有ります。この対策として、繰り返しの途中に
　　ＤｏＥｖｅｎｔｓを追記すると良くなります。本ページでは、更に改良する方法を検討しました。

（項目２）
　・繰り返しの途中で毎回ＤｏＥｖｅｎｔｓを実行すると、実行速度が低下してしまいます。
　・そこで、１回／１００回の頻度でＤｏＥｖｅｎｔｓを実行する様にします。
　・また、進行状況が分かる様に、ステータスバーの表示も行いました。

（項目３）
　・ＶＢＡコードは、以下の通りです。

　　Sub test1()

　　Dim i As Long

　　Application.ScreenUpdating = False
　　Application.Calculation = xlCalculationManual
　　Application.DisplayStatusBar = True

　　i = 20
　　Do Until Range("B" & i) = ""
　　　　Range("C6:F16").Calculate
　　　　Range("C16:F16").Select
　　　　Selection.Copy
　　　　Range("C" & i).Select
　　　　Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False,_
　　　　Transpose:=False
　　　　i = i + 1

　　　　'100ループに1回実行（フリーズ防止）
　　　　If i Mod 100 = 0 Then
　　　　　　'ステータスバーへの表示更新
　　　　　　Application.StatusBar = "i=" & i & "/1000"
　　　　　　'エクセルのイベント処理
　　　　　　DoEvents
　　　　End If

　　Loop

　　Application.StatusBar = False
　　Application.Calculation = xlCalculationSemiautomatic
　　Application.ScreenUpdating = True

　　End Sub

（項目４）
　・以上で、Ｅｘｃｅｌ２０１０、ＶＢＡで繰り返しが止まる時の対処方法は終了です。