在某些计算器上,有个非常方便的小按钮:加/减按钮。按下此按钮时,将在显示屏的正值和负值之间切换任何值。例如,如果显示屏显示数字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_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

链接:/ excelribbon-ExcelTipsMacros [点击此处在新的浏览器标签中打开该特殊页面]。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(3256)适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面(Excel 2007及更高版本)找到本技巧的版本:

链接:/ excelribbon-Creating_a_Plus_Minus_Button [创建加号/减号按钮]。