Страницы: 1
RSS
Макрос для срытия формул
 
Добрый день.

У меня есть файл, где в одном листе я вставляю табель работников, а в другом листе на основе этлго вписаны в ячейки формулы которые на оснрве табеля расчитывают зарплату работникам. Если что-то меняешь то файл загружает долго, из-за того что много формул стоит.

Хотел бы узнать, есть ли такой макрос чтобы при изменения табеля сразу расчитывал зарплату и убирал формулы на этом листе?
 
Где-то есть такой макрос, но без файла примера, макроса под ваш случай нет.
 
Файл прикрепил.

Значит в листе "Time" содержится информация сколько часов отработали рабочие, на основе этих данных в листе "LTD" расчитывается зарплата.

Во всех ячейках вставлены формулы и это грузит файл, когда число рабочих много
 
ramin911,  :D Не думали обновить страницу и проверить прикрепился ли файл?
ps ограничение 300кб
 
Прикрепил)
 
У Вас сильно завышен объем файла из-за множества неиспользуемых стилей. Следующий макрос уберет ненужные стили (может выполняться несколько минут):
Код
Sub DeleteStyles()
  Dim s As Style
  For Each s In ActiveWorkbook.Styles
    If Not s.BuiltIn Then
     s.Delete
    End If
  Next s
End Sub

Что касается формул, то при численности до нескольких сотен сотрудников тормозов не должно быть.
Следите, чтобы на листе Time были только данные, относящиеся к текущему месяцу.
Владимир
Страницы: 1
Наверх