Excelで正の数を負に変更するにはどうすればよいですか？

Excelで全ての正の数または値を負に素早く変更するにはどうすればよいですか？次の方法は、Excelですべての正の数を負に迅速に変更する手順を説明します。

特殊貼り付け機能を使用して正の数を負に変更

Kutools for Excelを使用して正の数を負に変更、またはその逆を行う

VBAコードを使用して正の数を負に変更

特殊貼り付け機能を使用して正の数を負に変更

Excelでは、特殊貼り付け機能を使用して正の数を負に変更できます。以下の手順に従ってください。

1. 空白セルに「 -1」と入力し、コピーします。

2. 変更したい範囲を選択し、右クリックしてコンテキストメニューから「特殊貼り付け」を選択すると、「特殊貼り付け」ダイアログボックスが開きます。スクリーンショットをご覧ください：

3. 「貼り付け」で「すべて」オプションを選択し、「計算」で「乗算」を選択します。

4. そして「OK」をクリックすると、すべての正の数が負の数に変わります。

5. 最後に必要に応じて「-1」を削除できます。

Kutools for Excelを使用して正の数を負に変更、またはその逆を行う

Kutools for Excelの「数値の符号を変更する」ツールを使用して、すべての正の数を素早く負に変更することもできます。

Kutools for Excelをインストールしている場合、次の手順で正の数を負に変更できます：

1. 変更したい範囲を選択します。

2. 「Kutools」→「コンテンツ」→「数値の符号を変更する」をクリックします。スクリーンショットをご覧ください：

3. 「数値の符号を変更する」ダイアログボックスで、「すべての正の値を負に変更する」オプションを選択します。

4. 「OK」または「適用」をクリックします。これで、すべての正の数が負の数に変換されます。

VBAコードを使用して正の数を負に変更

VBAコードを使用して、正の数を負に変更することもできますが、VBAの使用方法を理解しておく必要があります。次の手順に従ってください：

1. 変更したい範囲を選択します。

2. 「開発」→「Visual Basic」をクリックすると、新しい「Microsoft Visual Basic for Applications」ウィンドウが表示されます。「挿入」→「モジュール」をクリックし、次のコードをモジュールにコピー＆ペーストします：

Sub ChangeToNegative()
'Updateby Extendoffice
Dim rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeConstants, xlNumbers)
For Each rng In WorkRng
    xValue = rng.Value
    If xValue > 0 Then
        rng.Value = xValue * -1
    End If
Next
End Sub

3. クリック  ボタンを押してコードを実行すると、ダイアログがポップアップして、正の値を負に変換したい範囲を選択できます。スクリーンショットをご覧ください：

4. 「OK」をクリックすると、選択範囲内の正の値が一度に負に変換されます。

デモ：Kutools for Excelを使用して正の数を負に、またはその逆に変更

関連記事