Оптимизация кода Excel VBA, добавление новой строки с фурмулами и кодами - PullRequest
Новая
       46

Оптимизация кода Excel VBA, добавление новой строки с фурмулами и кодами

0 голосов
/ 10 июня 2018

Я новичок в VBA.Я создал макрос для вставки строки в верхнюю часть таблицы, и он также скопирует шрифт и формулы из строки ниже.Формулы таковы, они импортируют данные из другого файла Excel.Но теперь у меня есть проблема, когда он становится очень медленным, мерцает и т. Д. Я искал в интернете, чтобы оптимизировать свой код VBA, но я не смог найти что-то полезное.

Это мой код, как я могу оптимизировать это: 

Sub Add_row()
'Add_row Macro

    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = False
    Application.EnableEvents = False

    Range("A4:R4").Select
    Selection.ListObject.ListRows.Add (1)
    Range("A5:A8").Select
    Range("A8").Activate
    Selection.AutoFill Destination:=Range("A4:A8"), Type:=xlFillDefault
    Range("A4:A8").Select
    Range("B5:I5").Select
    Selection.AutoFill Destination:=Range("B4:I5"), Type:=xlFillDefault
    Range("B5:I5").Select
    Range("J5:R5").Select
    Selection.AutoFill Destination:=Range("J4:R5"), Type:=xlFillDefault
    Range("J5:R5").Select
    ActiveWindow.SmallScroll Down:=-2

    'Application.Calculation = xlCalculationAutomatic

    Application.ScreenUpdating = True
    Application.DisplayStatusBar = True
    Application.EnableEvents = True

End Sub

Спасибо

...