Доброе утро!
Есть код, который обновляет книгу при открытии, задача стоит в том, что нужно этот код запускать до определенного времени до 10 утра, далее обновлять уже не нужно.
Подскажите, как это сделать?
Код |
---|
Private Sub Workbook_Open()
Application.ScreenUpdating = False 'отключаем обновление экрана
Application.Calculation = xlCalculationManual ' отключаем пересчет формул
Application.EnableEvents = False ' отключаем отслеживание событий
MsgBox "Идет обновление формул, не закрывайте журнал. Для продолжения нажмите ОК"
Call Кпии_формул_проверки_осн ' вставляем макрос вставки и протягивания формул
Sheets("Основные линии").Select
Call УФ_вставка ' вставляем условное форматирование
Sheets("Теплоспутники").Select
Call УФ_вставка
Sheets("Опоры").Select
Call УФ_вставка
Sheets("Основные линии").Select
Range("B1").Select
Application.Calculation = xlAutomatic 'включаем обновление экрана
Application.ScreenUpdating = True ' включаем пересчет формул
Application.EnableEvents = True ' включаем отслеживание событий
MsgBox "Спасибо! Можно приступать к работе :)"
End Sub
|
Также хотелось бы в идеале в следующий код прописать, что бы помимо протягивания формул от последней ячейки, так же вставлялись автоматически и границы от первой ячейки по последнюю.
Но что то у меня никак не получается(
Код |
---|
With Sheets("Основные линии")
lLastRow = .Cells(.Rows.Count, 5).End(xlUp).Row + 100
Range("B3:C3").Copy .Range("B4:C" & lLastRow)
Range("I3").Copy .Range("I4:I" & lLastRow)
Range("K3:N3").Copy .Range("K4:N" & lLastRow)
Range("AN3").Copy .Range("AN4:AN" & lLastRow)
Range("BV3:CH3").Copy .Range("BV4:CH" & lLastRow)
End With |