На некоторых калькуляторах есть маленькая кнопка, которая может очень пригодиться: кнопка плюс / минус. Эта кнопка при нажатии переключает любое значение на дисплее между положительным и отрицательным значениями. Например, если на дисплее отображается число 57, нажатие кнопки изменит отображение на -57. Повторное нажатие вернет значение 57.

Если вам нужна «кнопка», которая делает это в Excel, вы быстро обнаружите, что в программе ее нет. Однако вы можете быстро создать его с помощью макроса:

Sub PlusMinus1()

Dim cell As Range

For Each cell In Selection         If Application.IsNumber(cell) Then             cell.Value = cell.Value * -1         End If     Next cell End Sub

Обратите внимание, что макрос просто проходит через любой диапазон ячеек, который вы выбрали при запуске макроса. Каждая ячейка проверяется на наличие числа. Если да, то значение этого числа умножается на -1. В результате появляется знак переключения номера.

Одним из недостатков макроса является то, что если ячейка содержит формулу, эта формула преобразуется в значение, а затем умножается на значение -1. Возможно, вы не захотите потерять свои формулы. В этом случае вы можете полагаться на более разборчивый макрос, который проверяет, содержит ли ячейка формулу или нет. Если нет, то просто умножается на -1. Если да, то формула корректируется так, чтобы результат умножался на -1.

Sub PlusMinus2()

Dim cell As Range

For Each cell In Selection         If Left(cell.Formula, 1) = "=" Then             Cell.Formula = cell.Formula & " * -1"

Elseif Application.IsNumber(cell) Then             cell.Value = cell.Value * -1         End If     Next cell End Sub

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

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

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

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

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

Этот совет (3256) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Creating_a_Plus_Minus_Button [Создание кнопки плюс / минус].