合計計算マクロ

 半角スペースで区切られた選択範囲の数字の合計を計算します。

【使用例】
《マクロ実行前》

   
《マクロ実行後》




'////////////////////////////////////////////////////////////////////
'//
'//     選択範囲の合計
'//
Option Explicit
Dim myArray
Dim member
Dim myValue

myValue = 0
'//選択範囲から配列を作成
myArray = Split( Editor.GetSelectedString(0) )
'//合計を計算
For Each member In myArray
    If IsNumeric(member) Then
        myValue = myValue + Eval(member)
    End If
Next

Editor.Right                            '//カーソル右移動
Editor.InsText( CStr(myValue) )         '//値を挿入


「その他のコーナー」に戻る