Excel

「ファイル」→「オプション」→「アクセシビリティ」→「操作をアニメーションで表示する」のチェックを外す

'■ThisWorkbook に書く

Private Sub Workbook_Activate()

    '1.開いた直後は自動計算

    Application.Calculation = xlCalculationAutomatic

    Application.Calculate

    didFirstCalc = True

    '2.手動計算に切替

    Application.Calculation = xlCalculationManual

End Sub

Private Sub Workbook_Deactivate()

    '他のブックを操作するときは自動計算に切替

    Application.Calculation = xlCalculationAutomatic

End Sub

'■基本手動計算としたいシートに書く

Private Sub Worksheet_Activate()

    '1.開いた直後は自動計算

    Application.Calculation = xlCalculationAutomatic

    Application.Calculate

    didFirstCalc = True

    '2.指定されたシートは手動計算

    Application.Calculation = xlCalculationManual

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("A:HI")) Is Nothing Then

        Dim r As Long

        r = Target.Row

        Me.Range(r & ":" & r).Calculate

        'Me.Range("G" & r).Calculate

    End If

End Sub

Private Sub Worksheet_Deactivate()

    '他のシートを操作するときは自動計算

    Application.Calculation = xlCalculationAutomatic

End Sub