私はとあるサイトでMySQLを利用したホームページを持っているが、この間そのMySQLサーバーがダウンしていたのか使えなくなっていた。結局データが読み込めず、ページは空っぽ(>_<)

ってことで、MySQLが使えなくなってもとりあえず最後の状態が表示できるようにしてみた。

何かを演算するなどして、シートにデータを展開するときに、Application.ScreenUpdatingやEnableCalculationで一時的に画面更新や再計算を抑制したときにどれだけ効果が出るか試してみた。

と、あるベンチマーク的なプロシージャの実行時間の結果を以下に示す。

方法	実行時間
何もせず	5.215秒
EnableCalculation=False	0.831秒
ScreenUpdating=FALSE	0.633秒
両方	0.338秒

これから行くと、ScreenUpdatingとEnableCalculation両方をFALSEにした方が良いということになる。
少なくとも、何もしないよりは格段に効果があることになる。
何もしない場合に極端に時間がかかるのは、どこかが変わると一気に残りの箇所(ここで使用したプロシージャだと999箇所)の再計算が始まってしまうからである。

･･･と、いうことならデータをセットする前にクリアする方が早いのか？

以前、「ツールバーをすべて消す」などの記事を書いたが、それをもうちょっと進めてみた･･･ま、ちょっとしたお遊び(^^)

Sub ShowFullScreen(ByVal b As Boolean)
Dim cb As CommandBar
Dim wb As Workbook
Dim ws As Worksheet
Dim w As Window

Application.DisplayFullScreen = b
Application.DisplayFormulaBar = Not b
Application.DisplayStatusBar = Not b

For Each cb In Application.CommandBars
cb.Enabled = Not b
Next

For Each wb In Application.Workbooks
For Each w In wb.Windows
w.DisplayHeadings = Not b
w.DisplayGridlines = Not b
w.DisplayHorizontalScrollBar = Not b
w.DisplayVerticalScrollBar = Not b
w.DisplayWorkbookTabs = Not b
Next
Next
End Sub

Trueにしてコールするとタイトルバーもメニューも何もかも消えてしまうので注意。消えちゃったときは、慌てずAlt-F11でVisual Basic Editorを表示して、Falseを指定してコールしなおしましょう。

でも、EXCELでEXCELっぽくないアプリを作りたいときは良いかも(^^)

以前、あるお店のホームページを作る話があって、その要望に画像のスライドショーというのがあった。
はじめは、Flashかなんかでやらなきゃしょうがないなぁ、と思っていたんだけど、ある日ふと思いついた。

････JavaScriptでできるんじゃない？

以前の記事に関連することになるが、CSVファイルをシートに読み込む手法としてADOも使えそうなので使ってみることにした。前の記事の手法と速度的なものを比べてみたが、若干こちらの方が遅いけどあまり差異はない。