Как протестировать ActiveSheet

Question

Вот мой код

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 

Set Sh = ActiveSheet 
If ActiveSheet.Name = "Entrada" Then 
    Application.Calculation = xlManual 
Else 
    Application.Calculation = x1automatic 
End If 
End Sub 

но все листы собираются вручную расчет, Что ошибка?

thx!

Answer 1

Просто мысли о Sh переменное назначение. Когда Sh передается в макрос события Workbook_SheetActivate, он is рабочий лист активируется. Вам не нужно устанавливать его на активный лист. Следующее всегда будет сообщать имя нового рабочего листа, которое будет вновь активировано в окне Immediate (включая вновь созданные рабочие листы).

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 
    Debug.Print Sh.Name 
End Sub 

Таким образом, ваш условный оператор может затягиваться до чего-то вроде,

Private Sub Workbook_SheetActivate(ByVal Sh As Object) 
    If Sh.Name = "Entrada" Then 
     ' do something here 
    Else 
     ' do something else here 
    End If 
End Sub 

Answer 2

Вы пытаетесь изменить расчет на уровне приложения. Я предполагаю, что вы хотите использовать

ActiveSheet.EnableCalculation = True ' or False 

Answer 3

Значения, установленные для расчета должны быть: xlCalculationManual и xlCalculationAutomatic, не xlManual и x1automatic

См MSDN и этот сайт http://www.cpearson.com/excel/optimize.htm