Vbaで絶対値を計算する方法（例付き）

数値の絶対値は、数値とゼロの間の距離を表します。

VBAで絶対値を計算するには、 Abs関数を使用できます。

この関数を実際に使用する一般的な方法は次のとおりです。

 Sub FindAbsoluteValue()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = Abs(Range(" A " & i))
    Next i
      
End Sub

この特定の例では、範囲A2:A10内の各セルの絶対値を計算し、それらを範囲B2:B10に表示します。

次の例は、実際に VBA で絶対値を計算する方法を示しています。

例：VBAで絶対値を計算する方法

Excel に次の値のリストがあるとします。

A 列の各セルの絶対値を計算し、B 列に表示するとします。

これを行うには、次のマクロを作成できます。

 Sub FindAbsoluteValue()

    Dim i As Integer
    
    For i = 2 To 10
        Range(" B " & i) = Abs(Range(" A " & i))
    Next i
      
End Sub

このマクロを実行すると、次の出力が表示されます。

列 B には、列 A の各値の絶対値が表示されます。

列 A のそれぞれの正の値が列 B でも正のままであることに注意してください。

また、列 A の負の値が列 B の正の値に変換されていることにも注意してください。

注: VBA Abs関数の完全なドキュメントはここにあります。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA：範囲の平均値を計算する方法
VBA：範囲内の値を追加する方法
VBA: 範囲内の行数をカウントする方法