На некоторых калькуляторах есть небольшая кнопка, которая может оказаться очень полезной: кнопка плюс/минус. При нажатии этой кнопки происходит переключение отображаемого на дисплее значения между положительными и отрицательными значениями. Например, если на дисплее отображается число 57, то нажатие кнопки изменит отображение на -57. Повторное нажатие переключит значение обратно на 57.
Если вам нужна «кнопка», которая делает это в Excel, вы быстро обнаружите, что в программе ее нет. Однако вы можете быстро создать его с помощью макроса:
Sub PlusMinus1 () Уменьшить размер ячейки как диапазон для каждой ячейки в выделении Если Application.IsNumber (cell) Then cell.Value = cell.Value * -1 End If Next cellEnd Sub
Обратите внимание, что макрос просто проходит через любой диапазон ячеек, который вы выбрали при запуске макроса. Каждая ячейка проверяется на наличие числа. Если это так, то значение этого числа умножается на -1. Результатом является изменение знака числа.
Один из недостатков макроса заключается в том, что если ячейка содержит формулу, эта формула преобразуется в значение, а затем умножается на значение -1. Возможно, вы не захотите потерять свои формулы. В этом случае вы можете полагаться на более разборчивый макрос, который проверяет, содержит ли ячейка формулу или нет. Если нет, то просто умножается на -1. Если да, то формула корректируется так, чтобы результат умножался на -1.
Sub PlusMinus2 () Уменьшить размер ячейки как диапазон для каждой ячейки в выделенном месте, если слева (cell.Formula, 1) = «=» Then Cell.Formula = cell.Formula & «* -1» Elseif Application.IsNumber (cell) Then cell.Value = cell.Value * -1 End If Next cellEnd Sub
Вы можно назначить любой из этих макросов сочетанию клавиш или кнопке на панели инструментов, чтобы упростить использование в любое время.
Источник: