Ребята, подскажите, в чём может быть проблема. Сделал макрос, который после получения внешних данных на страницу, красиво оформляет её. И, по какой-то непонятной причине, в какие-то периоды, код начинает работать очень долго. Буквально над каждой строчкой кода программа думает по 0,1 секунды, пришлось отключить некоторые настройки. И так на всех компьютерах. Что это может быть? Код ниже.
Код |
---|
Sub krasota()
Dim i, a As Integer
Dim t1 As String
On Error GoTo fff
Application.EnableEvents = False
Application.ScreenUpdating = False
Application.StatusBar = "Наводим красоту. Этап 1"
Sheets("Клиенты").Activate
With Sheets("Клиенты")
i = .Cells(Rows.Count, 3).End(xlUp).Row
If i > 7 Then
t1 = "A7" & ":A" & i
.Range(t1) = "+"
.Range("A7").Select
Selection.AutoFill Destination:=Range(t1), Type:=xlFillDefault
.Range("A" & i + 1 & ":A" & i + 200).ClearContents
End If
End With
Application.StatusBar = "Наводим красоту. Этап 2"
t1 = "C7:O" & i + 50
Range(t1).Select
Selection.NumberFormat = "General"
Cells.Select
With Selection
' .VerticalAlignment = xlTop
' .Orientation = 0
' .AddIndent = False
.IndentLevel = -1
' .ShrinkToFit = False
' .ReadingOrder = xlContext
' .MergeCells = False
End With
Application.StatusBar = "Наводим красоту. Этап 3"
Selection.InsertIndent 1
With Selection.Font
.name = "Calibri"
.Size = 11
' .Strikethrough = False
' .Superscript = False
' .Subscript = False
' .OutlineFont = False
' .Shadow = False
' .Underline = xlUnderlineStyleNone
' .TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
Selection.Font.Bold = False
Application.StatusBar = "Наводим красоту. Этап 4"
Columns("S:X").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
' .WrapText = True
' .Orientation = 0
' .AddIndent = False
' .IndentLevel = 0
' .ShrinkToFit = False
' .ReadingOrder = xlContext
' .MergeCells = False
End With |