![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
コピー&ペーストと印刷設定について高速化を目指したいので教えていただけますでしょうか。
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(エクセル)
-
-
4
VBA(えくせる)ってなんでメンテできない人が多いんですか?
Excel(エクセル)
-
5
Excel VBA 文字列のセルを反映させたいです
Visual Basic(VBA)
-
6
Excelで男女や有無など丸囲みする資料で〇を挿入してカーソルで微調整し有無に丸囲みを実施しておりま
Excel(エクセル)
-
7
エクセルでマクロでテキストデータを保存したい
Excel(エクセル)
-
8
ExcelのVBAのセル範囲について
Excel(エクセル)
-
9
ファイル名の日付について教えて頂けますかExcel
Visual Basic(VBA)
-
10
Excelマクロの実行が拒否されるのを回避する方法は
Excel(エクセル)
-
11
変数として取得した文字データの色の指定
Excel(エクセル)
-
12
VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。
Visual Basic(VBA)
-
13
なぜか「Nextに対応するForがありません」
Excel(エクセル)
-
14
引数に数値、文字列の混在
Visual Basic(VBA)
-
15
セルの結合の連続技
Excel(エクセル)
-
16
excelの不要な行の削除ができない!
Excel(エクセル)
-
17
Excel VBA マクロ シート名を変えずにA列にあるセル名の名前でファイルの分割をしたいです
Visual Basic(VBA)
-
18
excel access連携 このテーブルは空ですと表示
Excel(エクセル)
-
19
VBAのコードを教えてください
Visual Basic(VBA)
-
20
配列のペースト出力結果の書式について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ある表にフィルターをかけて出...
-
Excelのセルの色を変えた行(す...
-
エクセルの数式について教えて...
-
Excelでの記号と特殊文字につい...
-
Lookup関数
-
エクセルの数式バーのフォント...
-
MACにおけるエクセルの入力トラ...
-
IFとIFS関数
-
セルの数を求めたい
-
Excelを無料で使うには? パソ...
-
再質問です。マクロの修正箇所...
-
【マクロ】VLOOKUPにて参照元に...
-
データチェックを行うエクセル...
-
【ExcelVBA】名前を付けて保存→...
-
EXCELの散布図で日付が1900年に...
-
エクセルで「ページレイアウト...
-
スプレッドシートの関数につい...
-
エクセルでファイルの最終更新...
-
エクセルの問題です。絶対値の...
-
エクセルを使っていて2024/5/15...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報
CPUの使用率最大30%
メモリーの消費量はこれも33%ぐらいです。
この質問文には書いていないところがありまして、
For next 文の中に
With
For
If
各文が入れ子ではなく並んであったので、多いと思っておりました。
それで中でもコピペとwith文の印刷範囲の統合ができたら、コピペも配列というものになれたら、と希望した次第です。