3行マクロ～最初から合計を定数として入力するマクロ～

3行マクロMENU

すぐに役立つ3行マクロ講座 30回

最初から合計を定数として入力するマクロ

今回は、最初から合計を定数として入力するマクロです。
再計算されないようにとか、式を見せたくないなら、最初から結果を定数として入力してしまえばいいわけです。
（サンプルファイルは、こちらから 3行マクロ30回サンプルデータ）

数式の結果を定数として入力するマクロを作ります。
今回使うのは、Evaluateメソッドです。
ワークシート関数をVBAから使用できるすごいメソッドです。

Evaluateメソッドを利用してSUM関数の数式の結果をセルに表示します。
最初から合計を定数として入力する

Sub 定数で数式の結果を入力する()
    Range("B11").Value = Evaluate("SUM(B2:B10)")
End Sub

コードを実行すると数式の結果をセルの値として表示します。
最初から合計を定数として入力する2

Evaluateでどんな関数を使った式の結果でも取得してセルの値として入力できます。

B12セルに平均を出すのも簡単です。

Sub 定数で数式の結果を入力する2()
    Range("B12").Value = Evaluate("Average(B2:B10)")
End Sub