Sub 指定SHEET計算()
Sheet2.Select
ActiveWorkbook.PrecisionAsDisplayed = False
ActiveSheet.Calculate
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheet2.Select
End Sub
Sub 自動計算()
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
.CalculateBeforeSave = True
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Range("A1").Select
End Sub
Sub 手動計算()
With Application
.Calculation = xlManual
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Range("A1").Select
End Sub