|
▼よろずや さん
ご回答ありがとうございます。
当方の質問が言葉たらずだったと思います。
>With Application
> Cells(1,1) .WorksheetFunction.Sum.IntersectTarget.EntireRow,Columns("Z")))
>End With
ご回答では確かにCells(1, 1) を変更する事で任意のセルに合計が表示されます。
..が、
計算対象となるセルの値は別セルを参照している事をお知らせしていませんでした。
その参照先のセル値を後で変更する可能性は大きく、その場合変更値が合計計算に反映されません。
実は、見積書を作っていまして、選択範囲はいろいろな項目の見積り金額の項目毎の合計であり、計算式はそれぞれの項目に掛かる経費など、%の異なる率を掛けるものです。
具体的にはA項目とB項目、C項目の各合計に対してア経費はA項目の10%、イ経費はAとBの3%、ウ経費はABCそれぞれの5%、最後に全ての合計…という具合です。(「経費ばかりを加えている変な会社」と思わないでください)
実際はもっとややこしくて、選択範囲の間違いが発生する可能性は大なので、その間違いをVBAで修正しようとしています。
合計数値ではなく、CやBやKをZに変換する、そのままの形がほしいのです。
やはり出来ない事なのでしょうか。
|
|