VBAで関数式の値をセルに入力できるようにしたい。

質問

こんなマクロをマクロの記録で作ったのですが
SUMIF関数の数式をセルに入力するのでなく
値だけを入力するしたいのですがどのように
すればいいでしょうか?

Sub Macro4()

Columns("O:O").Select
Selection.Insert Shift:=xlToRight
Range("N3").Select
Selection.AutoFill Destination:=Range("N3:O3"), Type:=xlFillDefault
Range("N3:O3").Select
Range("O5").Select
ActiveCell.FormulaR1C1 = "=SUMIF(出荷貼付け!C1,RC1,出荷貼付け!C5)"　←ここのところを値だけをセルに入力したい。

Selection.AutoFill Destination:=Range("O5:O978")
Range("O5:O978").Select
Range("O4").Select
End Sub

回答No.8

matsu_jun · ベストアンサー

matsu_junです。会社に行く前に読んでいます。
katope007さん、quit123さん、ご指摘ありがとうございます。おっしゃるとおりです。恥ずかしい。昨夜は少し寝ぼけていたようですね。以後注意します。

お二人のご指摘の通り、いままでのやり方では、セルO5からO978まで同じ値が入ってしまいます。どんどん複雑になっていきますが、今後のために「For～Next」文を覚えるという意味合いを込めて、ご活用ください。
#5の回答を、以下のように書き換えてみてもらえませんか？

For i# = 5 To 978
Cells(i, 15).Value = Application.WorksheetFunction _
.SumIf(Worksheets("出荷貼付け").Range("A1:A5"), Worksheets("別シート").Cells(i, 1).Value, Worksheets("出荷貼付け").Range("E1:E5"))
Next i

上の式は、iの値を5から978まで1ずつ変化させながら、For文の下の行からNextの上の行までの処理を複数回実施する。という意味です。なお今回、Range("A1") というのを Cells(i, 1)と書き換えています。これは、前者ではセルの位置を文字として認識させているのに対し、後者では数式として認識させているという違いがあります。マクロの中でセルの参照を色々変化させたい時に用いると便利です。注意点は、「A1」が、列－行という書き順になっているのに対し、「Cells(i, 1)」は行－列の順に並べているという点と、Aは1、Bは2、Cは3といったように、アルファベットを数字で表記するという点です。

だらだらと、大変失礼いたしました。こうなると実際の記述としては、#1のpapayukaさんや#7のKenKen_SPの方法を利用された方が良いかもしれませんね。実際KenKen_SPの回答は私もいつも拝見しているのですが、舌を巻くことがしょっちゅうです。私のような"なんちゃって"と違って、きちんとされている方だと思います。私もよく参考にしています。

お礼

いろいろな方法を考えて頂いて感謝しています。
ありがとうございます。
こんな初心者にもわかるように。
おかげ様でよくわかりました。
これからも度々質問させて頂くことと思いますが
よろしくお願い致します。

補足

返答が遅くなってすみません。
初心者の私にとても、とても、親切に教えて頂きありがとうございます。
私はsumif関数をエラーはでるのでが、範囲設定をすると何かと設定し直さなければならないので次様にしていました。これが原因の様でした。
=SUMIF(出荷貼付け!$A:$A,$A5,出荷貼付け!$E:$E)
ウィザードでは#NUM!のエラーはでるのでが、
ちゃんとできるのです。
列を選択にしておくと何行入っても大丈夫だったので・・・。
そのために変な関数がマクロの記録に出たようです。