Private Sub Worksheet_Activate() Application.Calculation = xlManualEnd Sub
其他表
Private Sub Worksheet_Activate() Application.Calculation = xlAutomaticEnd Sub