Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

41612 / 76732

←次へ　｜　前へ→


	【40199】2002から2003に移行して

仲ちゃん

- 06/7/8(土) 18:27 -


	引用なし

	パスワード

エクセルを2002から2003に移行したところ下記マクロの動きがとんでもなく緩慢になり困っております。
約20秒位で終了していたものが15分くらい掛かってしまいます。
どなたか解決法ご存じないでしょうか？
宜しくお願いいたします。

　　Set myhbook = Workbooks("1.xls")
　　myhbook.Activate
　　Set myh1sheet = Worksheets("表")
　　myh1sheet.Activate
　　
　　For j = dgs(1) To dgd(1)　　　　　　このdgsは1、dgdは19です。
　　hd(j) = Cells(hg(j), hl(j))
　　Next
　　　　
　　Set myh2sheet = Worksheets("表-1")
　　myh2sheet.Activate
　　
　　For K = dgs(2) To dgd(2)　　　　　　　このdgsは33、dgdは4000です。
　　hd(K) = Cells(hg(K), hl(K))
　　Next
　　　
　　Set mydbook = Workbooks("dat.xls")
　　mydbook.Activate
　　Set mydsheet = Worksheets("dat1")
　　　
　　For j = dgs(1) To dgd(1)
　　Cells(5 + j, dgd(3)) = hd(j)　　　　このdgdは3です
　　Next
　　For K = dgs(2) To dgd(2)
　　Cells(5 + K, dgd(3)) = hd(K)
　　Next

0 hits

▼

【40199】2002から2003に移行して 仲ちゃん 06/7/8(土) 18:27

≪