|
7万行、10列のデータをから、1行ごとに3列目のデータ抽出し、
抽出データをもとにソートをかけるような場合なのですが、どうも高速化するために記述しているコードが邪魔をして、うまく並び替えができません。
高速化のコードを消せばうまく作動するのですが、高速化のコードがあると並べ替えができずに完了してしまします。
いったいどのコードが原因なのかご教示ください。
以下記述している高速化のコード
' ウィンドウを最小化する
Application.WindowState = xlMinimized
'高速化
Application.EnableEvents = False '動作の停止
Application.Calculation = xlCalculationManual '自動計算の停止
Application.ScreenUpdating = False '画面更新の停止
Application.DisplayAlerts = False '確認ダイアログ非表示
〜処理コード〜
'高速化停止
Application.EnableEvents = True '動作の開始
Application.Calculation = xlCalculationAutomatic '自動計算の開始
Application.ScreenUpdating = True '画面更新の開始
Application.DisplayAlerts = True '確認ダイアログ表示
'ウィンドウを最大化する
Application.WindowState = xlMaximized
|
|