ワークシート関数と、マクロ、どっちを使うべきなの？

「どこまでのことはエクセルの関数とかで、どこからは、マクロを使って処理をするべきものなのですか？」
エクセルVBAについてセミナーで教えていると、よくそんな質問をいただきます。
今日は、その回答から。

例えば、シート上に、以下の値があるとします。

1945_1

そして、あなたは、この合計を、セル「E1」に書き出したい。
あなたは、マクロを覚えたてです。さて、どうするか。

ちなみに、エクセルのワークシート関数だと、セル「E1」に、以下の関数を入れることになります。

=SUM(A1:C6)

エクセルVBAでこの課題を解くと、一例としては、以下の要領になります。

Sub ByForEach()  
    Dim r As Range  
    Dim c As Long  
    For Each r In Range("A1:C6")  
        c = c + r.Value  
    Next  
    Range("E1").Value = c  
End Sub

結論としては...。

こういうときに、どっちの手法を採用するかについては、以下のことを軸に考えると良いかと思います。

基本は、そのときより簡単に採用できる方法で
より高度な作り込みをする可能性がありそうか
できれば、今の自分にとって、より勉強になる方法で

基本は、そのときより簡単に採用できる方法で

そのときにより簡単に採用できる方法で実現するのが基本です。
この場合で言えば、明らかに、エクセルのSUM関数を使ったほうが楽ですよね。

より高度な作り込みをする可能性がありそうか

なんですが。
あとあとのメンテナンスも考慮すると、そうでもない場合があります。
例えば、ここでしたい集計の趣旨がちょっと変わったとします。
「単なる合計」ではなく
「値が5を超えているものだけの合計を取ってくる」
とか
「セルの背景色が赤いものだけの合計を取ってくる」
とか

そういうことを要求された場合です。
エクセルのワークシート関数で実現する方法はちょっと説明が面倒くさいので、VBAのコードのほうでそのやり方を紹介します。

値が5を超えているものだけの合計を取ってくるように修正した

Sub ByForEachArrange1()  
    Dim r As Range  
    Dim c As Long  
    For Each r In Range("A1:C6")  
        If r.Value &gt;= 5 Then '[1]  
            c = c + r.Value  
        End If               '[2]  
    Next  
    Range("E1").Value = c  
End Sub

セルの背景色が赤のものだけの合計を取ってくるように修正した

  Sub ByForEachArrange2()  
    Dim r As Range  
    Dim c As Long  
    For Each r In Range("A1:C6")  
        If r.Interior.ColorIndex = 3 Then '[1]  
            c = c + r.Value  
        End If                            '[2]  
    Next  
    Range("E1").Value = c  
End Sub

このとおり、どっちの場合も、VBAだと、2行のコード追加だけで解決します。
後々いろいろと作り込む可能性があるようでしたら、断然、マクロで書いたほうがよいです。