お世話になります。
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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。
Visual Basic(VBA)
-
WorkBooksをオープンさせずにシートにコピーしたい【EXCEL VBA】
Excel(エクセル)
-
EXCEL VBA マクロ 実行する度に処理速度がどんどん遅くなる原因が知りたい
Excel(エクセル)
-
-
4
VBA シートをコピーする際に Copyメソッドは失敗しましたのエラーが出てしまいます
Visual Basic(VBA)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
-
8
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
9
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
10
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
11
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
12
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
13
【ExcelVBA】マクロの入ったシートをコピーしても新しいシート内でマクロを動作させるには?
Excel(エクセル)
-
14
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
15
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
16
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
17
VBA:結合されたセルに対する「Target」について
Access(アクセス)
-
18
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
19
条件付き書式で最終行に線を引きたい
Excel(エクセル)
-
20
VBA 複数の行を高速で削除する方法
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
【ExcelVBA】全シートのセルの...
-
ユーザーフォームに入力したデ...
-
【VBA】色のついたシート名を取得
-
セルの値によって、シート見出...
-
ブック名、シート名を他のモジ...
-
別のシートを参照して計算する方法
-
XL:BeforeDoubleClickが動かない
-
VBAで同じシート名のコピー時は...
-
マクロを使って、シート印刷完...
-
ExcelのVBAのマクロで他のシー...
-
VBA 存在しないシートを選...
-
VBA 最終行まで数式をコピーする
-
特定の文字を含むシートだけマ...
-
【Excel VBA】Worksheets().Act...
-
Access エクセルシート名変更
-
ExcelVBA シート名を複数セルか...
-
エクセルVBA 別シートからのコ...
-
同じ作業を複数のシートに実行...
-
実行時エラー'1004': WorkSheet...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
同じ作業を複数のシートに実行...
-
ExcelVBA シート名を複数セルか...
-
【ExcelVBA】全シートのセルの...
-
Excel マクロについての相談
-
VBA 存在しないシートを選...
-
実行時エラー'1004': WorkSheet...
-
特定の文字を含むシートだけマ...
-
ExcelのVBAのマクロで他のシー...
-
ブック名、シート名を他のモジ...
-
XL:BeforeDoubleClickが動かない
-
VBA 複数の各シートに行を追加...
-
エクセルのシート名変更で重複...
-
【Excel VBA】Worksheets().Act...
-
シートが保護されている状態で...
-
Excel VBA 複数行を数の分だけ...
-
for 文の 繰り返し処理に使える...
おすすめ情報
回答ありがとうございます。
何も処理はないです。
atmbookを名前をつけて保存して
次の配列を違うブックに移して
名前をつけた保存するを繰り返すだけです。
atmbook.addしなくて
そのまま使い回ししたほうがいいですかね?
試してみます。
回答ありがとうございます。
3つの設定、もう一度試してみます。
シートのコピーは
copyメソッド以外で
あるのでしょうか?
宜しくお願いします。