お世話になります。
VBAで元になるワークシートにデータを代入して、新しく加えた別のブックに
データを入れたもとになるワークシートをコピーするVBAで
ワークシートを15回コピーして一つのBOOKを作るのを
5回ぐらい繰り返させるのですが、処理が終わるまでに
1分かかります。
シートをコピーさせるところで時間がかかってます。
早くする方法教えてください。
高速化についても、このサイトを参考に
してあります。
http://officetanaka.net/excel/vba/speed/
コードの一部ですが、宜しくお願いします
dim atmbook as Workbook
atmworksheet コピー元 ワークシートです。
For mi = 0 To 20
If mname(mi, 0) = "" Then
Exit For
Else
atmworksheet.Range("D2").Value = mname(mi, 0)
atmworksheet.Range("O2").Value = Format(hiduke, "yyyy年m月d日(aaa)")
atmworksheet.Range("D4").Value = mname(mi, 3) & " " & mname(mi, 5) & vb NewLine & mname(mi, 1) & vbNewLine & mname(mi, 2)
atmworksheet.Copy after:=atmbook.Worksheets(atmbook.Worksheets.Count)
End If
atmworksheet.Range("D2").Value = ""
atmworksheet.Range("O2").Value = ""
atmworksheet.Range("D4").Value = ""
Next mi
For mi = 0 To 20
For mj = 0 To 6
mname(mi, mj) = ""
Next mj
Next mi
mi = 0 'mi 初期化
atmbookname = atmbookname & Format(hiduke, "yyyy年m月d日")
Application.DisplayAlerts = False
atmbook.SaveAs Filename:=atmbookname, FileFormat:=xlOpenXMLWorkbookM acroEnabled
atmbook.Close
Application.DisplayAlerts = True
Set atmbook = Nothing
Set atmbook = Workbooks.Add
No.1ベストアンサー
- 回答日時:
sea_clearさんが書いたコードの中には、特筆すべき無駄は無いように思われます。
考えらる(私の知識の範囲で)原因ですが、・・・
①元シートが、そもそも巨大である。
②元シートのセルへ値を代入することにより、再計算が実行されている。
③元シートのセルへ値を代入することにより、実行されるイベントプロシジャがある。
もし①であれば、Worksheet.Copyメソッドを使っている以上、改善は難しいと思います。
②③なら、下記の設定が有効かもしれません。
Application.ScreenUpdating = False '画面表示の更新を抑止する
Application.Calculation = xlManual '計算方法を手動にする
Application.EnableEvents = False 'イベントの発生を抑止する
No.3
- 回答日時:
5ファイル1分、1ファイル12秒、1シート0.6秒、そんなに遅いとも思えませんが、強いて挙げるなら。
。。シートコピー後はコピー先シートがアクティブになるため、表示シートが次々と変わります。表示に時間が掛かりそうですね。他回答にもありますが、Application.ScreenUpdating = False
を試してください。
貴方のコメントを拝見すると「試してみます」が多いです。社交辞令ならいいですが、本当にそう思ってるなら悪い兆候です。回答を見る限り「○○が原因として考えられるので、もし事実であるなら××を試して」という表現です。まず○○に該当してるか否か確認した上で、試すべきです。○○を無視して闇雲に××を試してませんか?
No.2
- 回答日時:
最後の部分
> Set atmbook = Nothing
> Set atmbook = Workbooks.Add
一度オブジェクトを開放した後、再度新ブックを作成しています。
この後に新ブックに対して何等かの作業が行われるのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) 別シートのデータを参照して値を入れたい。 まとめデータシートのC列D列の値を商品一覧シートのコードが 7 2022/08/17 13:20
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) 稀に1円合いません? Sheet1から金額と個数を貼り付ける下記コードで、金額を切り上げるコードを何 3 2022/09/05 15:11
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Visual Basic(VBA) VBAが止まります。 1 2022/09/02 14:51
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
EXCEL VBA マクロ 実行する度に処理速度がどんどん遅くなる原因が知りたい
Excel(エクセル)
-
-
4
VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。
Visual Basic(VBA)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
8
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
9
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
10
【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには?
Excel(エクセル)
-
11
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
12
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
13
VBAでコピーと貼り付けに時間がかかる
Excel(エクセル)
-
14
バッチファイル 二つ上のディレクトリのパス取得
その他(プログラミング・Web制作)
-
15
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
16
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
17
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
18
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
19
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
20
DATE関数 4月31日などのありえない日付について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
同じ作業を複数のシートに実行...
-
excelのマクロで該当処理できな...
-
ExcelのVBAのマクロで他のシー...
-
Excelマクロのエラーを解決した...
-
XL:BeforeDoubleClickが動かない
-
特定の文字を含むシートだけマ...
-
VBA 存在しないシートを選...
-
VBA 複数の各シートに行を追加...
-
【ExcelVBA】全シートのセルの...
-
実行時エラー1004「Select メソ...
-
エクセルVBAでダブルクリックを...
-
【Excel VBA】Worksheets().Act...
-
実行時エラー'1004': WorkSheet...
-
VBAで同じシート名のコピー時は...
-
ExcelVBA:複数の特定のグラフ...
-
Excel マクロについての相談
-
別のシートを参照して計算する方法
-
コマンドボタンをクリックでシ...
-
【VBA】特定の文字で改行(次の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
Excel VBA マクロ シート名を変...
-
ユーザーフォームに入力したデ...
-
VBA 指定した回数分、別シート...
-
特定の文字を含むシートだけマ...
-
【ExcelVBA】全シートのセルの...
-
excelのマクロで該当処理できな...
-
Excelマクロのエラーを解決した...
-
ブック名、シート名を他のモジ...
-
【Excel VBA】Worksheets().Act...
-
同じ作業を複数のシートに実行...
-
for 文の 繰り返し処理に使える...
-
ExcelのVBAのマクロで他のシー...
-
VBA 存在しないシートを選...
-
XL:BeforeDoubleClickが動かない
-
実行時エラー'1004': WorkSheet...
-
エクセルのシート名変更で重複...
-
Excel チェックボックスにチェ...
-
Excel VBA 複数行を数の分だけ...
-
Worksheet_Changeの内容を標準...
おすすめ情報
回答ありがとうございます。
何も処理はないです。
atmbookを名前をつけて保存して
次の配列を違うブックに移して
名前をつけた保存するを繰り返すだけです。
atmbook.addしなくて
そのまま使い回ししたほうがいいですかね?
試してみます。
回答ありがとうございます。
3つの設定、もう一度試してみます。
シートのコピーは
copyメソッド以外で
あるのでしょうか?
宜しくお願いします。