エクセルで選択したセル範囲の合計値をセル上に表示するVBAが知りたいです

Question

前提・実現したいこと

今日からVBAというかプログラミング言語を触った初心者です。
エクセルで選択したセル範囲の合計値をセル上に表示したいです。

例えば、赤い線の範囲を選択した時に、「項目2」の平均をE7に算出たいと考えています。
他の項目も同様にしたいです（項目8はE8に表示する）。
つまり、選択範囲の右側の列に各平均値を出したいと思っています。

発生している問題・エラーメッセージ

VBAを実行すると以下のメッセージがでます
『実行時エラー’1004’
‘Rangeメソッド失敗しました’￥_Global’オブジェクト』

該当のソースコード

Sub 合計SUM()
    Dim 選択セル As Range
    For Each 選択セル In Selection
        WorksheetFunction.Sum (Range(選択セル))
    Next 選択セル
End Sub

補足情報（FW/ツールのバージョンなど）

エクセル2016で行っています

Answer 1

まずは、エラーの原因について。
Selectionの各要素は1セル毎のRangeオブジェクトですので、For Eachループでの選択セル変数の内容は、B7,C7,D7,B8...のセルとなります。そのため、Range(選択セル)としてしまうと、Range(70)などとしていることになり、エラーになります。

また、1セル単位でのループですから、SumとかAverageとかの意味がないですし、さらにその結果を使っていないので、ただ計算をしているだけになっています。この辺はすでについている回答にあるとおりです。

さて、質問文を正とすると、「セルを選択したら選択範囲各行の右隣のセルに行毎の平均を出力したい」と理解しましたが、そうではないだろうと思いつつ、そのままコードにするとこんな感じでしょうか。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    '選択範囲を行毎にループ
    For Each r In Target.Rows
        '選択範囲の右側のセルに合計値を入れる
        r.Cells(1, 1 + r.Cells.Count).Value = WorksheetFunction.Average(r)
    Next
End Sub
```※イベントプロシージャということで引数の`Target`を使ってループさせていますが、`Selection`としても同じです。

もし、これが本当にやりたいことだとすると、ざっと思いつくだけでも下記の動作の条件を考えなければいけないです。
* 行全体を選択した場合
* 出力先のセルが空でない場合
* 入力や移動のために選択した場合

Comments

[nats]

ありがとうございました。仰るように本当にやるたいこととは違いますが、Worksheet_SelectionChange(ByVal Target As Range)だとTarget=Selectionになること（そうでない場合もあるかもしれませんが…）、エラーについてご教授いただいたことが非常に勉強になりました。
もう少し勉強して条件を考えたいと思います。

Answer 2

Sub test()
 Cells(1, 1) = Application.WorksheetFunction.Sum(Application.ActiveWindow.RangeSelection)
End Sub
コード

A1に合計を表示します。

この程度なら 『VBA 選択したセルの合計』とでも、検索した方がここで聞くより早いと思うし、どんピシャリのなくとも、応用が利くようになって、自分自身のためになると思います。

Comments

[nats]

ご回答ありがとうございます。勉強不足で申し訳ありません…頑張ります。

Answer 3

これで、イミディエイトウィンドウに合計値が出力されます。

Sub 合計SUM()
    Dim 選択セル As Range
    Dim lGoukei As Long
    lGoukei = 0
    '選択したセルを一つずつピックアップし、足し上げる
    For Each 選択セル In Selection
        lGoukei = lGoukei + 選択セル.Value
    Next 選択セル
    Debug.Print lGoukei
End Sub

Comments

[nats]

ご回答ありがとうございます。とても嬉しいです。
私の説明不足だったと思うので質問文を修正しました。お時間に余裕があればみていただけると幸いです。