Вот как вы добавляете коэффициент к каждой формуле
Если вы изменяете данные в своих таблицах глобально, вы можете молниеносно увеличивать или уменьшать цены или другие корректировки расчетов.
Вы можете добавить коэффициент ко всем формулам в ваших списках. Макрос решает эту задачу и добавляет коэффициент умножения ко всем формулам в выбранной области данных. Таким образом, вы можете быстро и эффективно адаптировать прайс-листы и тому подобное к новым условиям.
На следующем рисунке показана такая таблица. В ячейках B1: B3 есть константы, а в ячейке B4 - формула. Ячейка формулы относится к ячейкам с константами.
Чтобы добавить коэффициент 110% ко всем формулам в этом списке, сначала отметьте область данных B1: A4, а затем вызовите следующий макрос:
СубфакторAnFormelnAnhaengen ()
Тусклая ячейка как диапазон
Коэффициент тусклости как строка
Фактор = "110%"
Для каждой выделенной ячейки
С ячейкой
Если .HasFormula То .Formula = _
"= (" & Right $ (. Formula, Len (.Formula) - 1) & ") *" & factor
Конец с
Следующая ячейка
Конец подписки
После запуска макроса все ячейки формулы в отмеченной области ячеек умножаются на коэффициент 110%. На следующем рисунке показан результат.
Макрос вставляет коэффициент, который вы указали в присвоении значения переменной. фактор определили. Выражение «110%» сохраняется там как текст. Это приводит к увеличению результата формулы на 10%. Измените это число на другой коэффициент. Используя коэффициенты меньше 1, вы также можете выполнять деления.
В ЕслиСтрока макроса, существующий текст формулы помещается в скобки, а затем после него добавляется коэффициент умножения.
Конечно, вы также можете использовать макрос для всех ячеек в таблице. Для этого перед вызовом макроса выделите все ячейки таблицы с помощью комбинации клавиш CTRL A.