Макрос для обновления формул вручную только в одном листе

[Neo007]

Файл много весит из-за большого объема анализируемых данных в листе Анализ. Это приводит к большим тормозам при работе с листом Счета. Какой макрос можно написать для листа Анализ, чтобы в нем можно было делать обновление формул вручную (например нажав кнопку: "Анализ")? А в остальных листах оставить автоматическое обновление формул.

[valerij]

Сообщение от Neo007

Файл много весит из-за большого объема анализируемых данных в листе Анализ. Это приводит к большим тормозам при работе с листом Счета.

5 мб это большой объем? Какой у Вас процессор?
Ваш файл, на моем (2 х 2.4 GHz) выполняется за доли секунд!!!

[Neo007]

У меня процессор Pentium 4 3.0 Ghz.
Просто у тебя наверное в опциях стоит ручное обновление формул. А мне нужно, чтобы это было только на одном листе.

[Neo007]

В Excel есть параметр Сервис->Параметры->Вычисления->Вручную. Который отключает перерасчет.
Включение этого параметра в VBA

With Application
.Calculation = xlManual
End With

Как прописать, чтобы работал только для определенного листа?

[дмидми]

Сообщение от Neo007

Как прописать, чтобы работал только для определенного листа?

Никак. Разве что обнаружится новое секретное оружие Билла Гейтса.
См. хэлп на Calculation Property, а в нём ссылку Applies To.

[Neo007]

Всего то в модуле прописать и готово:

Sub Кнопка_Анализ ()
ActiveSheet.EnableCalculation = True
ActiveSheet.EnableCalculation = False
End Sub

[tolikman]

накладка: у Neo007 по четче вариант.

при запуске книги выключи Calculation

Private Sub Workbook_Open()
    Application.Calculation = xlCalculationManual
End Sub

лови в каждом листе Change и калькулируй нужные листы кроме листа "Анализ":
для простоты создай функцию в модуле:

Function manualCalculation()
    For Each sht In Worksheets
        If sht.Name <> "Анализ" Then
            sht.calcualte
        End If
    Next sht
End Function

во все листы воткни:

Private Sub Worksheet_Change(ByVal Target As Range)
    manualCalculation
End Sub

а при активации листа "Анализ" calculate его:

Private Sub Worksheet_Activate()
    worksheets("Анализ").Calculate
End Sub

попробуй так. Но хочу предупредить, такая мануальная терапия по моему может привести к не правильным пересчетам,если при изменении в 4 листе, изменения в первый лист попадают из 5, а в 5 из 3 и т.д. до 4 листа, т.е. через "пятое колено", тогда функцию manualCalculation надо будет повторить столько раз сколько у тебя "колен" в самой длинной "ноге"

[valerij]

Сообщение от tolikman

Но хочу предупредить, такая мануальная терапия........

А не проще сделать так(это для листа Счета, ст. D, Е, I, P, R):

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
   Select Case Sh.Index
        Case 1 To 5
        With Application
        .ScreenUpdating = False
        .EnableEvents = False
        If Sh.Index = 1 Then
         With Sh.Range("D4:E65536").Cells
        If Not Intersect(Target, .Cells) Is Nothing Then
        With .Columns(1) 'Ст. D
.FormulaR1C1 = _
"=IF(RC[-1]<>"""",IF(RC[20]<>""оплачен"",IF(RC[4]="""",""-"",IF(VLOOKUP(RC[4],Инфо!R2C1:R170C4,4,FALSE)=""питание"",R1C3-RC[-1],""-"")),""-""),""-"")"
            .Value = .Value
        End With
        With .Columns(2) 'Ст. E
.FormulaR1C1 = _
"=IF(RC[-2]<>"""",IF(RC[19]<>""оплачен"",IF(RC[3]="""",""-"",IF(VLOOKUP(RC[3],Инфо!R2C1:R170C4,4,FALSE)=""питание"",""-"",R1C3-RC[-2])),""-""),""-"")"
            .Value = .Value
        End With
With .Columns(6) 'Ст. I
.FormulaR1C1 = _
"=IF(ISBLANK(RC[-1]),"""",VLOOKUP(RC[-1],Инфо!R2C1:R170C2,2,FALSE))"
            .Value = .Value
        End With
With .Columns(13) 'Ст. P
.FormulaR1C1 = _
"=IF(RC[-1]="""","""",IF(RC[-1]=""-"",""-"",IF(RC[-10]=""FM"",VLOOKUP(RC[-1],Инфо!R2C14:R46C16,3,FALSE),""-"")))"
            .Value = .Value
        End With
With .Columns(15) 'Ст. R
.FormulaR1C1 = _
"=IF(RC[-15]="""","""",IF(RC[-10]<>"""",IF(VLOOKUP(RC[-10],Инфо!R2C1:R170C4,4,FALSE)=""питание"",R1C3+15,R1C3+30),""""))"
            .Value = .Value
        End With
    End If
    End With
    End If
    .EnableEvents = True
        .ScreenUpdating = True
    End With
End Select
End Sub

Формула исчезла......
Тогда все пересчеты формул будут отдельны, по листам и параметр вычисления - автомат.