Как умножить все ячейки диапазона на константу
Хотите убедиться, что все константы в диапазоне умножаются на коэффициент? Вы можете добиться этого, разумно используя функцию EDIT - INSERT CONTENT.
Будет проще, если вы воспользуетесь следующим макросом:
Использовать субфактор ()
Тусклая ячейка как диапазон
Входное значение тускл. До тех пор, пока
Входное значение = InputBox («Пожалуйста, введите коэффициент (например, 100)»)
Для каждой выделенной ячейки
Если нет (Cell.HasFormula), то
Cell.Formula = "=" & Cell.Value & "*" & Val (входное значение)
Конец, если
Следующая ячейка
Конец подписки
На первом этапе выберите диапазон ячеек в таблице. На следующем рисунке показан пример выделенной области.
Затем вызовите макрос. Excel теперь запрашивает в окне коэффициент, который вы хотите использовать. На следующем рисунке показано это окно:
Подтвердите определение коэффициента кнопкой ОК.
Теперь Excel циклически перебирает все выделенные ячейки. Изменяются только ячейки, в которых нет формулы. Они умножаются на введенный коэффициент. Excel вводит новое значение в виде формулы в ячейку. На следующем рисунке показано, как может выглядеть результат:
Если вы хотите ввести числа как константы, замените строку Cell.Formula следующим выражением:
Cell.Value = Cell.Value * Val (входное значение)
Введя множитель меньше единицы, вы также можете разделить ячейки на константу.
Преобразование формулы в константу с помощью макроса: как преобразовать вычисление с помощью VBA в абсолютное значение
Вы хотите преобразовать ячейки диапазона в абсолютные значения. Вы можете сделать это в интерактивном режиме, скопировав область, а затем вставив ее как значения. Соответствующая команда называется «Правка - Специальная вставка» в Excel до версии 2003 и «Пуск - Вставить - Специальная вставка» в Excel, начиная с версии 2007.
Если вы хотите преобразовать отдельные ячейки в макрос, вам поможет следующий программный код:
SubValueConvert ()
С ActiveSheet.Range ("a1")
.Formula = .Value
Конец с
Конец подписки
Макрос преобразует текущее содержимое ячейки A1 в активной таблице в абсолютное значение.