Excel１行マクロ　-オートproduct-

前回に引き続きExcelのマクロ。
このネタならストックがかなりある。
今回は私の業務で欠かせないオートproductコマンド。
初めに断っておくと私が勝手に読んでいるだけで、そんなコマンドはExcelにはない。オートSUMのイメージで選択範囲の和をするのではなく、積を計算してくれる関数である。

ちなみにオートSUM関数とは、ホームタブの編集コマンドから実行できる。

オートSUM

和以外にもプルダウンメニューから平均だったりはある一方で、積はないので自作してみた。そんなに使用頻度としては高くないが、productと打つのがだるいので。。。

Sub autoProduct()
   r = ActiveCell.Row
   c = ActiveCell.Column
    ActiveCell.Formula = "=product(" & Replace(Cells(Cells(Cells(r, c).End(xlUp).Row, c).End(xlUp).Row, c).Address, "$", "") & ":" & Replace(Cells(r - 1, c).Address, "$", "") & ")" '
End Sub