Технологии
Простенький макрос по изменению формулы во всех excel файлах - вопрос №4044402
Необходимо поменять одну формулу во всех файлах excel с помощью макроса
Здравствуйте!
Появилась срочная необходимость решить следующий вопрос: у нас есть однотипные файлы по разным месяцам, где нам необходимо поменять одну формулу. Руками это делать безумно долго и работа повторяющаяся. Для того, чтобы разобраться с этой задачкой я решил на простых примерах, записал макрос и он выглядит следующим образом:
Sub умножение_на_10()
'
' умножение_на_10 Макрос
'
'
Range(«I9»).Select
Application.CutCopyMode = False
Public Const myPath = ThisWorkbook.Path
ActiveCell.FormulaR1C1 = "=RC[-3]*R[-5]C"
Range(«I10»).Select
Workbooks.Open FileName:= _
myPath & «2.xlsx»
Range(«I9»).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-3]*R[-5]C"
Range(«I10»).Select
Workbooks.Open FileName:= _
«задание/3.xlsx»
Range(«I9»).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-3]*R[-5]C"
Range(«I10»).Select
Workbooks.Open FileName:= _
«задание/4.xlsx»
Range(«I9»).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-3]*R[-5]C"
Range(«I10»).Select
Workbooks.Open FileName:= _
«задание/5.xlsx»
Range(«I9»).Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=RC[-3]*R[-5]C"
Range(«I10»).Select
End Sub
Нужна какая-то переменная внутри макроса, которая бы ссылалась на путь к этой книге и подставляла поочередно названия файла. Например:
Переменная WorkDir = «наш путь»
Workbooks.Open FileName:= _
WorkDir + «2.
Прошу помощи. Буду безумно благодарен!
ноябрь 5, 2020 г.
-
Всего ответов: 0
Похожие вопросы
если в ячейке будет число в диапазоне 1-25, то присвоить значение 50, также если будет число в диапазоне 26-50, присвоить значение 100
вчера
Добрый день! Есть массив данных с миллионами строк, обрабатываемый в Python, при выводе в csv формат файл становится очень тяжелым более 15гб =>
март 29, 2024 г.
Помогите в Excel сделать формулу, которая находит из даты количество дней в году
март 18, 2024 г.
Добрый день! Подскажите, пожалуйста, как за счет функции просмотрX (или с использованием дополнительных функций) задать условия поиска,
февраль 24, 2024 г.
Здравствуйте, подскажите как сделать что бы при добавление столбца в лист 1 он автоматически удалялся из листа 2?
февраль 8, 2024 г.