EXCEL2002で、VBAを使い、関数計算を簡略化したい

質問

新年、明けまして、おめでとう御座います。
皆様に、本年も、御多幸あることを、年初にあたり、祈念いたします。
本年、最初の質問です。何卒、宜しくお願いします。

225個のセルの数値が、外部参照により、リアルタイムで可変し、225個のセルの数値をリアルタイムで合算させたうえ、また24.293で除する。

　すなわち、=(SUM($L$5:$L$229))/24.293
という計算を、恒常的に行い続けたいのでが、単に、上記式だけで行うと、EXCEL2002に掛かる"負荷"が大変大きく、他のアプリがどうしても、重く、動作が鈍くなってしまいます。
　ココは一つ、是非、新年でもあることですし、"新たなるチャレンジ"を試みる為、"皆様の御力"をお借りして,"ステップアップ"。　そうした状態を、少しでも改善して、自ら"使いやすい環境にする為"に、★VBAにより、他のアプリに掛かる負担を極力減らして、スマートなプログラムにしたいと、考えます。

　「ループ」等により、条件分岐で、エンドレスに計算し続ける方法を、プログラムで書いて頂けないでしょか？

　どうぞ、良い御考えを、教えてください。

回答No.2

hana-hana3 · ベストアンサー

＞　=COUNTIF(K15:K49,O5:O49,S5:S49,">0")

=COUNTIF(K15:K49,">0") + COUNTIF(O5:O49,">0") + COUNTIF(S5:S49,">0")

が、妥当な式かと思います。

＞今回の場合は、★ＶＢＡは、ＥＸＣＥＬの自動計算より、ＯＳへの負荷が、絶対に少ない筈で、であるからして

ＶＢＡが動作する事で、エクセル内部ではＶＢＡを実行するためのインタープリンタが動き始めます。
常にコードを解析しながらプログラムを動作させるので、ＶＢＡが実行していない時よりもＣＰＵに負荷が掛かります。

セルに記入された式や関数は、エクセルの機能で自動的に参照されますが、ＶＢＡで記述した場合はインタープリンタが間に入ってエクセルのメモリと値のやりとりを行ってＶＢＡに戻します。
そのため、エクセルのセルで行う計算とは実行速度が異なってしまいます。

下記はＶＢＡの基本的な高速化テクニックが解説されたページです。
プログラムの記述方法の僅かな違いだけで実行速度が変化しますが、どのように記述してもエクセルの関数並の速度でシート上の値をチェックする事は出来ません。
（11. セルを配列に入れる　参考）
http://www.officetanaka.net/excel/vba/speed/index.htm

お礼

御回答有難う御座います。
　前回も、このように、御紹介頂いた、たいへん貴重なリンクを、お気に入りに入れて、ＶＢＡのプログラムを考える度に、参考にさせて頂いております。
　毎回毎回、たいへんタメになるリンクの御提示、誠に有難う御座います。痛み入ります。
　理解を助ける「周辺の知識」についても、触れた"十全な説明"が、本当に、理解を深めてくれます。

　これからも、どうぞ、"初学者"にとって、優しいhana-hana3さんでい続けてください！

　毎回、長文で、このように"懇切丁寧"に、御答え頂き、有難う御座いました。

回答No.1

hana-hana3

＞どうぞ、良い御考えを、教えてください。

（設問の条件が全く理解できませんが・・・）
はっきり言ってＶＢＡで行うよりもＥＸＣＥＬの自動計算で行う方が遙かに負荷は少ないものです。
ましてループさせたらＣＰＵ負荷もかなりの物になるでしょう。
（それこそ他の作業は何もできません）

集計方法を考え直すしか無いと思います。

お礼

いち早い回答、誠に有難う御座います。
hana-hana3さんには、以前にも、一角ならぬお世話になりました。また、再びこうして、御答え頂けるたと言うことであり、本当に有難う御座います。
　前回は、たいへん解りやすく、大変ご丁寧な回答により、理解が深まりました。

　本当に有難う御座います。
　今回も、このように、御気に掛けて下さり、深く感謝致します。

＞はっきり言ってＶＢＡで行うよりもＥＸＣＥＬの自動計算で行う方が遙かに負荷は少ないものです。

　私は、何ゆえ、初学者なもので、誤解や、思い込みが多いようです。誠に申し訳ありません。
　「条件の設定」自体、=(SUM($L$5:$L$229))/24.293
以外には、ないものですから、そういった場合は、まさしく、
＞ＥＸＣＥＬの自動計算で行う方が遙かに負荷は少ないもの
なのですね。とても勉強になりました。
　わざわざ、"難しく考える必要"がなかったところで、熟考していました。
　その後、教示を仰いだり、購入した書籍により、よく勉強したつもりなのですが、やはり、促成栽培であるが故の「机上の学問」の為、私の知識は、何れも"俯瞰による全体の見渡し"が足りず、バランスを欠くようです。こうしたところで、よく躓きます。
　今回の場合は、★ＶＢＡは、ＥＸＣＥＬの自動計算より、ＯＳへの負荷が、絶対に少ない筈で、であるからして、その仮定に立てば、現在の
"高負荷な状態"は、改善される筈という考えが、一方的に"先に立ち過ぎました"。

　また、もう一度、よく勉強し直します。
　今回も前回同様、誠に有難う御座いました。

補足

もし、御時間が許すのであれば、お答え頂けると、たいへん助かるのですが‥‥‥‥‥‥‥‥。
　上記の質問とは、直接は関係無いのかもしれないのですが、派生した関連質問という事で御願いします。

　=COUNTIF(K15:K49,O5:O49,S5:S49,">0")
ワークシート上の条件により、やむを得ず、セル範囲の指定を、いわゆる「飛び地」で指定しないとならないのですが、実際に、このように指定すると、ヘルプのエラー表示では、
　セル範囲の指定にコロンを使用する セル範囲への参照を指定するときは、先頭のセルへのセル参照と末尾のセルへのセル参照との間にコロン (:) を入力します。

　と出てしまい、"事実上"「飛び地」での指定はできないのですが、"何か良い解決法はないでしょうか"？

　また、再び御答え頂けないでしょうか？　伏して、御願い申し上げます。