Бывают случаи, когда вам нужно настроить значения, хранящиеся в ячейках рабочего листа. В большинстве случаев инструменты, предоставляемые Paste Special, идеально подходят. Например, вы можете использовать Специальную вставку для умножения или деления значений в диапазоне ячеек, как описано в других выпусках ExcelTips.

Однако у использования специальной вставки есть недостаток — она ​​меняет фактическое значение, чего вы, возможно, не захотите. Зачем? Потому что через четыре месяца после корректировки значений вы можете не вспомнить, что именно вы сделали или каковы были исходные значения.

По этой причине вам может показаться более желательным заменить значения формулами, указывающими, что было сделано с вашей корректировкой. Например, у вас может быть значение 100 в ячейке B3, и вы хотите увеличить его на 10%. Используя Специальную вставку, вы можете легко изменить его на 110, но вместо этого вы можете заменить значение формулой = 100 * 1,1. С такой формулой через четыре месяца не возникнет вопросов о начальной стоимости или о том, что вы с ней сделали.

Единственный способ изменить значения с помощью формул — использовать макрос, например следующий:

Sub Adjust()

Dim c As Range     Dim sMod As String

sMod = InputBox("Formula to add?")

If sMod > "" Then

For Each c In Selection             If c.HasFormula Then                 c.Formula = "=(" & Mid(c.Formula, 2) & ")" & sMod             Else                 c.Formula = "=" & c.Value & sMod             End If         Next c     End If End Sub

Чтобы использовать этот макрос, выберите ячейки, которые нужно настроить, и запустите его.

Вам будет предложено добавить формулу в ячейки. Например, если вы хотите умножить ячейки на 1,1, вы должны ввести 1,1 (символ умножения звездочки, за которым следует 1,1). Затем макрос проходит через каждую выбранную ячейку и вносит коррективы. Если ячейка содержит формулу, то формула корректируется, как вы указали. Если в ячейке есть что-то еще, оно преобразуется в формулу, которая включает вашу корректировку.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (9486) применим к Microsoft Excel 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Adjusting_Values_with_Formulas [Настройка значений с помощью формул].