　処理が遅い原因は他にもあり(というかこちらの影響の方が大きかった)、要は処理の終わったレコードを一つずつセルに書き込みをしていったのだが、これがまずかったようだ。そこで処理が終わったレコードを一旦配列で記憶させて、最後に一度に書き込むようにした。
こんな感じかな

Sub test()
Dim a(10,1) as variant
For b=0 to 10
	a(b,0)=b
	a(b,1)=b*2
Next
Range(cells(1,1),cells(b,2))=a
End Sub

　…マァこんな事は普段からやっている人たちには常識的なことなんだろうが、本人用備忘録ということで。配列の書き出し方なんぞFor～Next文使うんだと思ってたわ。

　久々に作ってみたら…
　焼いたらフライパンから剥がれなくなった(ヲイ)
　何という失敗…。

　こばやし/700円
　夕方にスーパーへ行ったら駅弁フェアをやっていた。「この時間ならばひょとして…」と思ったら半値になっていた。ここはハーフプライサー愛好会としては買っていくしかなかろうに(笑)
　という訳で帆立たっぷりのお弁当であります。

　るぅ嬢が実家へ遊びに行ったところ、
　大量のチョコレートをGetしてきました(笑)
　この焼酎ボンボンはなかなかいけるぞ！

kuma Diary

2012-02-18(Sat)