Excel VBAでワークシート関数の「SUM」を使って合計する記録です。
下図はExcel2016です。
< スポンサーリンク >
構文
WorksheetFunction.Sum(Arg1, Arg2, Arg3, Arg4, Arg5, Arg6, Arg7, Arg8, Arg9, Arg10, Arg11, Arg12, Arg13, Arg14, Arg15, Arg16, Arg17, Arg18, Arg19, Arg20, Arg21, Arg22, Arg23, Arg24, Arg25, Arg26, Arg27, Arg28, Arg29, Arg30)
引数リストに含まれる数値をすべて合計します。
Arg1~Arg30=必須。数値1~30個の引数で、合計値または合計を求める引数を指定します。戻り値は倍精度浮動小数点型(Double)です。
VBAでのSUM関数使用例
B2~B4の合計値をメッセージで表示します。
Sub test()
MsgBox WorksheetFunction.Sum(ActiveSheet.Range(“B2”, “B4”))
End Sub
B2~D4の合計値をメッセージで表示します。
Sub test()
MsgBox WorksheetFunction.Sum(ActiveSheet.Range(“B2”, “D4”))
End Sub
B~D列のそれぞれの列の合計値を5行目に入力します。
Sub test()
Dim ws As Worksheet
Dim i As Long
‘変数にアクティブシートをセット
Set ws = ActiveSheet
‘A5に項目名を入力
ws.Range(“A5”).Value = “合計”
‘B5~D5にそれぞれの列の合計を入力
For i = 2 To 4
With ws
.Cells(5, i).Value = WorksheetFunction.Sum(.Range(.Cells(2, i), .Cells(4, i)))
End With
Next i
End Sub
こんな記事も書いています