ExcelVBAについて
たとえばA列が30行ある帳票なんですが、セル(A30)にはA1～A29の合計を表示し、２ページ目のセル（A60）にはA1～A59の合計を表示したいです。このときセルA(60)の数式は「＝SUM(A1:A29,A31:A59)」となります。２ページまでなら良いのですが１０００ページくらいになると「＝SUM（A1:A29........）と数式が長くなってエクセルの数式の限界（ネットで調べると長さが1024までとありました）まで行ってしまいます。
そこで数式を=SUM(A1:A5999)のように生成するようにしても、途中のページごとの小計が合計に合算されてうまくいきませんし、小計部分のセルをあとから引こうと考えると今度また数式が長くなってしまいます。何か良い方法はあるでしょうか。
ExcelVBAの中で値の合計を計算をして直接セルに設定する方法は思いつくのですが、他の事情との兼ね合いでやりたくありません。セルに設定する数式を短くする手段で（実現できれば）お願いします。たとえばオフセット（？）のような記述が数式でできないのかなあと
ベストアンサー
-
y3b5
満足50pt
SUBTOTAL関数を使ってはどうでしょうか？
A30のセルに「=SUBTOTAL(9,$A$1:A29)」と書きます。
A60のセルの場合は「=SUBTOTAL(9,$A$1:A59)」です。
(A30のセルからコピーペーストで数式が希望通りに反映されるかと思います。)
-
dedara
-
dedaraその他の回答
-
pahoo
満足20pt
ExcelVBAで解決したいというご質問でしょうか、それともExcel関数に関するご質問でしょうか。
ExcelVBAで解決する方法
小計行を60行おきに設定するということでしたら、For～Nextステートメントを二重に――外側で総合計（60の倍数行）を、内側で小計のループ（60行）を――回せばいいでしょう。
Excel関数で解決する方法
B列に小計を置くことはできませんか？
この場合、A列の60, 120, 180‥‥行は空白となり、B列の60, 120, 180‥‥行に小計が入る形になります。
-
dedara
-
この質問へのコメント
質問の情報
- 登録日時
- 2008-09-09 06:12:29
- 終了日時
- 2008-09-09 23:29:47
- 回答条件
- 1人5回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
ヤクルトスワローズ 近藤弘樹は現役引退後は、何をしますか？
ren990827
-
日常系アニメって何が面白くて流行したんでしょうか？日常系アニメが流行した当時の時代背景などを是非教え…
匿名質問者
2
-
通信販売で買える冷凍のラム肉で美味しいところを教えてください。５００ｇから１ｋｇくらい買いたいです。…匿名質問者1
-
2つ質問です。①ドラゴンボールがフリーザ編で終わっていたらドラゴンボールはどうなっていったと思います…匿名質問者
-
以下の特徴をもつ犬のキャラクターを思い出したいです。ご存知の方、教えていただけませんか？ 白くてマッ…
question1hat
A29やA59といったようにページ毎に書き換える必用がなくなりますので、ご利用あれ。
単純に、
(A30)=SUM(A1:A29)
(A60)=SUM(A31:A59)+A30
(A90)=SUM(A61:A89)+A60
...（以下A60のコピーペースト）
で実現できるんでは。subtotalの方がエクセル関数の活用という点で断然エレガントですが。
コメントにて
ありがとうございます。そのまま使ってみようと思います。
＞gkkjさん
pahooさんの回答を読んでその発想に至りました。
今回はsubtotal関数を使ってみようと思います。