一部の電卓には、非常に便利な小さなボタンがあります。プラス/マイナスボタンです。このボタンを押すと、ディスプレイに表示されている値が正の値と負の値の間で切り替わります。たとえば、ディスプレイに番号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を掛けます。その場合、結果が-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ここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（3256）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkプラス/マイナスボタンの作成。