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 をインストール済みの場合、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 で正の数を負の数に、またはその逆に変更

関連記事