新創刊！
▼[無料]メルマガの登録
「エクセルＶＢＡ技術通信」
マガジンID：0000252815
Powered by
|
|
|
■高速化ランキング【第1位】
今回発表していく高速化ランキングでは、「ちょっとしたテクニックを使う
だけで、エクセルＶＢＡがこんなにも早く、サクサクと動くようになる！」
といった内容を、その効果の高い順に独断と偏見もまじえてランキングし、
同時に実測した結果も発表していこうというものです。
それでは、さっそく今日はその第１位の発表です。
（本来なら下から発表するのが筋なんですが、今回はワケあって（後ほど
お話しますが。。。）いきない１位！から発表させてもらいます。）
--------------------------------------------------------------------
【今日のテーマ】 画面更新の非表示
--------------------------------------------------------------------
ちょっと前置きになりますが、ＶＢＡのＡというのは言わずと知れた(!?)
アプリケーションの頭文字のＡを指す訳ですが、エクセルＶＢＡの場合は、
このアプリケーションが＝(イコール)「エクセル」ということに他なりま
せん。
一方、コンピュータシステムというものは、通常、入力・処理・出力の３つ
のセッションからなっていますが、この内、入出力とりわけ出力というのが
レスポンススピードのネックとなる場合が極めて多いものです。
エクセルＶＢＡの場合は、この入出力の主なものは言うまでもなく「エクセ
ルシート」と言うことになりますので、他のコンピュータシステム同様、
エクセルＶＢＡの場合には、エクセルのシートへの入出力（とりわけ出力）
というのが、ＶＢＡの処理スピードを左右する一番の要因である場合が極め
て高いということになります。
そこで、このエクセルシートへの読み書きを早くする方法として、最もよく
知られているのが、今日「エクセルＶＢＡ高速化ランキング」第１位として
発表する「画面更新の非表示」というものです。
構文
―――――――――――――――――――――――――＋
Application.ScreenUpdating = False
―――――――――――――――――――――――――＋
これは、知る人ぞ知るエクセルＶＢＡの高速化にはダントツで効果大である
ことはよく知られていますから、今回あえて第１位から発表した（発表せざ
るを得なかった）理由というのも、もし下から発表していったら１位はこれ
だ！って最初からバレバレなので、ランキング発表の面白みが半減してしま
うことを恐れての理由からです。
で、これがどれだけダントツの１位かというと、
下記のサンプルプログラム（単純に1000行×100列のセルに数字の1を表示
させる）の測定では、
サンプル１が 154秒
サンプル２が 11秒
という具合に、圧倒的な実に１４倍の差が出ました。
ここまで目覚しい差がある以上、高速化といったらまずこの構文を使って
「画面更新の非表示」をやってみない手はありません。
これが、エクセルＶＢＡを高速化させるための一番であることは疑う余地の
ない事実です。特にシートに対しての読み書きの多いプログラムの場合には
その効果は絶大です。
サンプル１
―――――――――――――――――――――――――＋
For i = 1 To 1000
For j = 1 To 100
Cells(i, j).Select
ActiveCell.FormulaR1C1 = 1
Next j
Next i
―――――――――――――――――――――――――＋
サンプル２
―――――――――――――――――――――――――＋
Application.ScreenUpdating = False
For i = 1 To 1000
For j = 1 To 100
Cells(i, j).Select
ActiveCell.FormulaR1C1 = 1
Next j
Next i
Application.ScreenUpdating = True
―――――――――――――――――――――――――＋
ですが、ちょっと待ってください！！
「画面更新の非表示」って、ほんとうにただ非表示にしてしまっていいんで
しょうか？
非表示って、詰る所ユーザーには見せない！ってことに他なりません。
いくら高速化したいからといって、デベロッパーが勝手にユーザーには見え
ないプログラムなんてものを作ってしまってもよいのでしょうか？
実は、当センターではこの問題をほんのちょっとしたテクニックを使うこと
によって回避しています。
その内容は、次回この続きとして詳しくお話することにします。
----------【サンプルテストの実行環境】----------
PCスペック：Pentium4 1.8GHz
OS ：Windows XP
Excel ：Microsoft Excel2003 or 2002
----------------- r(-●_●-) -----------------
次へ
|
▼エクセルVBA技術通信(メルマガ)の登録/解除はこちら(（無料）)
「エクセルＶＢＡ技術通信」 (まぐまぐマガジンID：0000252815)
|
|
|