Друзья привет. Нужна помощь. Поискал везде, но не нашел. Я хочу написать код, которая запустит сама себя в указанную дату и заменит все формулы в файле на значения.
В интернете нашел код который запускается на основе времени.
Код |
---|
If Date = #10/30/2005# Then
DoCmd.RunMacro "MacroNameHere"
End If |
А это код которая заменяет все формулы на значения.
Код |
---|
Sub ConvertFormulasToValuesAllWorksheets()
Dim ws As Worksheet, rng As Range
For Each ws In ActiveWorkbook.Worksheets
For Each rng In ws.UsedRange
If rng.HasFormula Then
rng.Formula = rng.Value
End If
Next rng
Next ws
End Sub |