rouber590324

DEAR SIR
¦p¤U¥i¦Û¦æ«ü©w »Ý¨D­pºâ¤§ SHEET

Sub «ü©wSHEET­pºâ()
    Sheet2.Select
    ActiveWorkbook.PrecisionAsDisplayed = False
    ActiveSheet.Calculate
    ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
    Sheet2.Select
End Sub

Sub ¦Û°Ê­pºâ()
    With Application
        .Calculation = xlAutomatic
        .MaxChange = 0.001
        .CalculateBeforeSave = True
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
    Range("A1").Select
End Sub

Sub ¤â°Ê­pºâ()
    With Application
        .Calculation = xlManual
        .MaxChange = 0.001
        .CalculateBeforeSave = False
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
    Range("A1").Select
End Sub