Sub マクロサンプル_VBA速度UP()
'最初
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
.DisplayAlert = False
End With
’自分の作った計算式等々
'最後
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
.CutCopyMode = False
End With
End Sub