コピー&ペーストと印刷設定について高速化を目指したいので教えていただけますでしょうか。
dim については省略させて頂きました
まず
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.PrintCommunication = False
Application.EnableEvents = False
を設定しました。
Sheets("設定").Range("$P$1:$AE$292").Copy
Range("A1").Select
ActiveSheet.Paste
Range("$A$1:$P$292").PasteSpecial Paste:=xlPasteColumnWidths '列幅コピー
Range("$A$1:$P$292").PasteSpecial Paste:=xlPasteFormats '書式コピー
Application.CutCopyMode = False
ActiveSheet.Range("B2").Value = wdate
With Worksheets(sh.Name).PageSetup
.Orientation = xlLandscape '印刷設定の向きを横向き(Landscape)に設定
.FitToPagesTall = False'印刷範囲の横を1ページ分で収める
.FitToPagesWide = 1'印刷範囲の横を1ページ分で収める
.Zoom = False'拡大縮小なし
.PrintArea = "$A$1:$P$292"'印刷範囲を$A$1:$H$292にする
.PrintTitleRows = "$1:$7"'印刷タイトル行を設定する
.HeaderMargin = Application.CentimetersToPoints(0) 'フッター
.FooterMargin = Application.CentimetersToPoints(0)'ヘッダー
.CenterHorizontally = True '水平化
.CenterVertically = False '垂直なし
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.PrintCommunication = True
Application.EnableEvents = True
と今の状況はこうなっております。
作成完了までの待機が長いので、高速化についてご教授願えないでしょうか。
よろしくお願いいたします
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
回答ありがとうございます。
お勧めするだけあって、とても速いことがわかりました。
ここから、別シートに転記することができるよう頑張ります。
No.1
- 回答日時:
実行をしているときに、CPUの使用率やメモリーの消費量は確認しているでしょうか。
CPUの使用率が100%に達しているなら処理そのものが重いからなので、より高速なCPUを搭載したものに変える必要がありますし、メモリーの空き容量がなくなっているなら仮想メモリーへのアクセスで遅くなっているので、メモリーを増設するしか対策はありません。
無駄な分岐処理や繰り返し処理がないので、その部分での最適化もできませんね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロ 関数を使った抽出でエラーになってしまう 1 2022/02/01 14:44
- Visual Basic(VBA) エクセルで、1つのセルで上書き足し算して セルの範囲を指定できますか? パソコン初心者です。 お時間 3 2023/07/05 06:13
- その他(Microsoft Office) Excelのマクロを設定してプリンターをしてする方法を教えてください。 3 2022/02/03 14:29
- Visual Basic(VBA) マクロのコードについて教えてください 2 2023/11/10 11:10
- Visual Basic(VBA) wordのマクロで思うように行きません(ファイル削除ができない) 3 2023/09/12 08:34
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Visual Basic(VBA) マクロを短くする 1 2023/01/15 00:11
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
Excelでこういう年を切り替えられる簡易なカレンダーを作ったのですが、 年や月を変えると、色が付い
Excel(エクセル)
-
Cellsのコードが打てません
Visual Basic(VBA)
-
Excel 書式のクリア・値貼付けをしても書式が変わらない
Excel(エクセル)
-
-
4
複数エクセルファイルの合成
Excel(エクセル)
-
5
VBA(えくせる)ってなんでメンテできない人が多いんですか?
Excel(エクセル)
-
6
Excel VBA 文字列のセルを反映させたいです
Visual Basic(VBA)
-
7
データから単位文字を除去して計算する方法は?
Excel(エクセル)
-
8
VBAのコードを教えてください
Visual Basic(VBA)
-
9
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
10
Googleシート「A1」でなくて「A001」にしたいのですが
Excel(エクセル)
-
11
VBA エクセル で FIND でのエラーについて,教えてください。
Excel(エクセル)
-
12
ExcelのVBAのセル範囲について
Excel(エクセル)
-
13
変数として取得した文字データの色の指定
Excel(エクセル)
-
14
Excelで男女や有無など丸囲みする資料で〇を挿入してカーソルで微調整し有無に丸囲みを実施しておりま
Excel(エクセル)
-
15
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
16
ファイル名の日付について教えて頂けますかExcel
Visual Basic(VBA)
-
17
エクセルでマクロでテキストデータを保存したい
Excel(エクセル)
-
18
Excelマクロの実行が拒否されるのを回避する方法は
Excel(エクセル)
-
19
なぜか「Nextに対応するForがありません」
Excel(エクセル)
-
20
Excel VBA マクロ シート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelデータをコピペして、ペー...
-
スプレッドシート、Excelでの数...
-
エクセルの関数について教えて...
-
スプレッドシートで使う数式を...
-
Microsoft Officeの中古は信用...
-
エクセルで会社の従業員のデー...
-
Excelで50個のセルに同じ文字を...
-
エクセルの表で1年間の曜日を...
-
エクセルでの特別な文字を上に...
-
エクセルで不等号記号(≠)が上に...
-
エクセルでB列でフィルターをか...
-
エクセルでセルに標準で入力さ...
-
Excelで、項目の種類ごとにカウ...
-
【マクロ】アクティブセルにブ...
-
EXCELの質問です 119から足した...
-
【マクロ】アクティブセルの、...
-
【マクロ】アクティブセルの行...
-
エクセルの空欄をつめて、次の...
-
Excelの数式について教えてくだ...
-
非表示列の再表示に失敗
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA、別ブックへ転記す...
-
エクセルでの作業計算方法について
-
時間によってファイル名が変わ...
-
【関数】適切な文字数の数字を...
-
Excelについて教えてください
-
エクセル初心者です 関数の入れ...
-
【マクロ】ファイル名の変更に...
-
UNIQUE関数が使えないバージョ...
-
エクセルの計算
-
【関数】先頭だけにある、半角...
-
Excelで、決まった行を繰り返し...
-
Excelでセルの値が同じか...
-
LOOKUP関数を使えばいいのでし...
-
Excel
-
はがきについて。
-
エクセルの条件付き書式につい...
-
エクセルのデーターが2か月前の...
-
エクセル②
-
エクセルで「-0.0」と表示さ...
-
Microsoft1Officeの互換ソフト...
おすすめ情報
CPUの使用率最大30%
メモリーの消費量はこれも33%ぐらいです。
この質問文には書いていないところがありまして、
For next 文の中に
With
For
If
各文が入れ子ではなく並んであったので、多いと思っておりました。
それで中でもコピペとwith文の印刷範囲の統合ができたら、コピペも配列というものになれたら、と希望した次第です。