Здравствуйте!
Возможно ли отследить когда закончился пересчет формул?
Хотел бы заменить в коде паузу на отслеживание пересчета + 5сек(чтобы проц дух перевел) .
Возможно ли отследить когда закончился пересчет формул?
Хотел бы заменить в коде паузу на отслеживание пересчета + 5сек(чтобы проц дух перевел) .
Код |
---|
Sub Макрос1() Range("A1:Z1000000").FormulaR1C1 = "=ROW()*2/2" Application.Wait (Now + TimeValue("0:00:20")) a = WorksheetFunction.Sum(Range("A:Z")) Columns("A:Z").Clear Range("A1") = a End Sub |