オートSUMボタンをマクロで使用する

質問

質問のタイトル通りです。
VBAのソース中でオートSUMボタンを使用した時と同じ処理をさせたいと思っています。
どのようにすれば可能でしょうか？

回答No.4

merlionXX

>自動記録をしてもオートSUMの結果のみしか記録してくれないので、出来ません。

つまりActiveCell.FormulaR1C1 = "=SUM(R[-11]C:R[-1]C)"のように範囲が固定で出てしまうから違うセルでは使えないと言ってるのでしょうか？
だったら、Range(Selection, Selection.End(xlUp))とかで範囲を取得したらどうでしょうか？（このままでは文字列も入ってしまいましが）

お礼

selection.endはなかなかの妙案だと思いましたが、
やはりオートSUMと同じ事をする事は出来ないという感じですね。
今作りたい物は一つの列の中に数列とSUM関数が混ざっていたら、そのSUM関数の値だけを合計してくれるとか、結構ややこしい物だったりするので、それでは実現不可能っぽいです。

VBAの中に「オートSUMボタンを押した時と同じ処理をする」というコマンドが無いようだと言う事でも参考になりました。

回答No.3

bonaron

邪道かもしれませんが。
Sub Test()
SendKeys "+%=", True
SendKeys "^{Enter}", True
End Sub

回答No.2

marbin

>自動記録をしてもオートSUMの結果のみしか記録してくれないので、出来ません。

変ですね。私がマクロの自動記録したときは、結果ではなく、数式が記録されましたが。

回答No.1

marbin

マクロの自動記録が参考になると思います。

お礼

自動記録をしてもオートSUMの結果のみしか記録してくれないので、出来ません。
自動的に空白手前まで範囲選択してくれるとか、SUBTITLE関数だけを選んでSUM計算してくれるとか