エクセルシートの串刺し計算について

質問

エクセルの串刺し計算について質問です。串刺し計算実行のため、シートのコピーアンドペーストを繰り返しているんですが、貼り付けるたびに、機能低下の警告マークが表示されます。機能低下の対象になるのは、主に図形、時々テキストボックスなどの機能低下表示も警告されます。シートの種類は97から2003、使っているエクセルのバージョンは2010です。シートの形式を変えるようにとの表記も見られますが、意味がよく分かりません。この状態で串刺し計算を実行して、正しく計算されるのでしょうか？マクロが使えれば最善だとは思うのですが、自分にそれだけの理解力があるのか自信がありません。ご存知の方、正しく計算されるための助言をお願いします。

回答No.2

bunjii · ベストアンサー

>シートの種類は97から2003、使っているエクセルのバージョンは2010です。シートの形式を変えるようにとの表記も見られますが、意味がよく分かりません。
名前を付けて保存を実行してExcel 2010形式で保存すると状況が変わるかもしれえません。

>この状態で串刺し計算を実行して、正しく計算されるのでしょうか？
そのままでも計算結果は正しい値になるはずです。
動作が遅くなったり、応答がなくなったりするようでしたらシステムメモリーが不足しているかも知れません。

>マクロが使えれば最善だとは思うのですが、
シートの中で数式が多量に設定されていたり、計算対象のデータが極端に多い場合は数式の代わりにマクロ（VBA等）で代替すれば処理が速くなる可能性があります。
尚、シート全体を新しいシートへコピー＆ペーストするときに負荷が多くなるので「機能低下の警告マーク？」が出ると思いますが、串刺し集計時とは関係なく一時的な負荷なので応答なしにならなければ心配ないでしょう。

お礼

回答ありがとうございます。警告マークが計算結果に影響しないとわかって安心しました。ありがとうございました。

回答No.5

Nouble

あと、
補足、願います
〉シートのコピーアンドペースト
とは

串刺し計算に
抑も、必要な
Sheet枚数を
確保し、増やす、
其の、目的で

Sheetの、複製を
行っているが
図形等が、
含まれるものが、あり

其等の、
複製の、際には

処理能力を
強く、強く、
求められ

故に、
警告が、出る

ので、
此を、防止したい

と、
理解して、良い
ですか？

もう一つ
自動再計算は
止められて
いますか？

此方の、mizaemon様の
ご回答に、従って
https://sp.okwave.jp/qa/q1372887.html?a_open=true#start_q
手動化、して

作業に、当たってみて
頂けますか？

お礼

丁寧な回答ありがとうございます。図形については拘りはないんです。大事なのは計算結果です。

補足

申し訳ないです。自動再計算について考慮しなければならないほど高度なことをやろうとしているわけではないんだと思います。問題なく結果が出せれば周囲に迷惑をかけることもないレベルです。

回答No.4

Nouble

蛇足です
お許しください

Excelで
同じ、ブック
及び
同じ、Sheetを

長期に、渡り
使い続けて、いると

使用して、いない
セルの、
計算の
要、不要、
が、確認されたり、

操作遍歴が
膨大に、なったり、

内部制御情報が
膨れあがったり、
して

速度か、低下したり、
要領を
無駄に、消費したり、
します

ですので
長期に、渡り
もし
使い、続けて
いるなら

可能なら
新規、ブックへの、
お引っ越しを
試して、みて
頂けますか？

お礼

回答ありがとうございます。参考にします。

回答No.3

imogasi

＞串刺し演算
質問者が言わんとする操作は
http://www.becoolusers.com/excel/3d02.html
に開設されているタイプのことをやろうとしているのですね？。
>コピーアンドペーストを繰り返しているんですが
なぜこれが必要ですか？
シート数は何枚ぐらいありますか？
＞シートの種類は97から2003、
ブックの保存形式のことでは。エクセルの９７－２００３形式で保存したものを読みこんで、（今では旧いですね）いるのですか？
＞複数ブックをまたいだ串刺し演算をやろうとしてないですよね。
＞主に図形、時々テキストボックスなどの機能低下表・・
メモリなどの関連で障害になるなら、ブックをコピーして、使い捨てる方のブックで
ＶＢＡで図形・写真を１度で削除してしまう手もあります。
標準モジュールに
Sub test01()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
MsgBox sh.Name ′確認用
sh.DrawingObjects.Delete
Next
End Sub
写真や図形がシートから消えているはず。これを、別の名で保存して、計算に使ったらどうでしょう。
参考までに、泥臭い方法（多セルでは時間ががかかる。ＶＢＡベテランだとみて笑うだろうが）ですが、
1セルの串刺しは
白紙のシートを１つ増やし、シート名を「合計シート」として
Sub test02()
Dim sh As Worksheet
t = 0
For Each sh In ThisWorkbook.Sheets
MsgBox sh.Name
If sh.Name <> "合計シート" Then
t = t + sh.Range("a2")
End If
Next
Worksheets("合計シート").Range("A2") = t
End Sub
このＡ２セルを一般化して、セル範囲に繰り返して広げると串刺しができる。　
ただし、このままだとデータ変動連動性はない。
Sub test02()
Dim sh As Worksheet
t = 0
For Each cl In Range("a2:C2")
For Each sh In ThisWorkbook.Sheets
If sh.Name <> "合計シート" Then
t = t + sh.Range(cl.Address)
End If
Next
Worksheets("合計シート").Range(cl.Address) = t
t = 0
Next
End Sub

お礼

回答ありがとうございます。すいません。私のレベルが低すぎて回答者様のマクロの意味が分かりません。これを理解できるようまた学習したいと思います。ありがとうございました。

回答No.1

msMike

》 …えるようにとの表記も見られますが、意味がよく分かりません。
貴方の説明はもっと分かりません。
「機能低下の警告マークが表示」とか「機能低下表示も警告され」とか表現されるより、該当する表示をスクリーンショットにして見せた方が、我々にとっては"百聞は一見に如かず"ですよ。

お礼

回答ありがとうございます。お恥ずかしい話ですが、初心者でしてスクリーンショットを提示するにはどうすればよいか分からないんです。まだまだ学習不足です。ありがとうございました。