フィルタをかける際に再計算されずにかける方法はあり

質問

関数がたくさん入ってるシートにvbaでフィルタをかけると、
再計算されるせいかものすごく時間がかかります。

フィルタをかけるvbaコードは

With Range("a1").CurrentRegion
.AutoFilter Field:=COL, Criteria1:="="
End With

こんな感じです。

この時、１０秒くらいかかります。
多分シートにたくさん関数が入ってるからだと思います。

フィルタをかける際に再計算されずにかける方法はありますか？

回答No.1

pringlez · ベストアンサー

こんな感じでどうでしょう

' 再計算・再描画の抑止
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

処理

' 再計算・再描画の抑止解除
Application.ScreenUpdating = True
Calculate
Application.Calculation = xlCalculationAutomatic

お礼

ご回答ありがとうございました。