| 
    
     |  | ▼Jaka さん: >>一応、希望通りの動作はするのですが、Cells(co1 + 2, 17) = Me.Controls("label" & co1).Captionを各月のif文の場所へ追加した結果、動作の速度がかなり遅くなりました。これって仕方ない事なのでしょうか?
 >はい。仕方が無いと思います。
 >エクセルVBAは、セルに書きこう処理がとても遅いです。
 >それを1個1個何回も書き込むわけですから....。
 >まとまった範囲なら配列に入れておいて後で、1活で書き込むといった方あるけど、この場合は無理っぽいです。
 >Valueプロパティーは、付けるなら付ける習慣を身に付けた方がいいと思います。
 >
 >なんなら、
 >Application.ScreenUpdating = False
 >で、画面描写更新を止めておくと言った方法もありかも。
 >Trueに戻すのをお忘れなく。
 >使い方をよく把握しないで頻繁に使いすぎると、メッセージボックスの残像が残るとかの副作用もあります。
 
 
 ありがとうございました。
 application.screenupdating=false true 書き込んでいます。
 時間がかかる間はメッセージboxに登録中と表示させてがまんします。
 
 |  |