![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
Excel2002で帳票印刷の処理を作成しました。
該当ブック(自身.xls)オープンすると最初にVBAにより帳票レイアウトの初期化を行います。(原紙.xlsをオープンし、自身のシートに貼り付けます。)この初期化の貼り付け処理が"原紙"と"自身"のシートを交互にアクティブにしている為、画面がちらついて、とても見苦しい状態です。
Sub 帳票初期化()
Workbook.Open Filename="F:\原紙.xls"
Sheets("帳票1").Select
Cells.Select
Selection.Copy
Windows("自身.xls").Activate
Sheets("帳票1").Select
Cells.Select
ActiveSheet.Paste
Windows("原紙.xls").Activate
Sheets("帳票2").Select
Cells.Select
Selection.Copy
・・・・・・・・・(以下同様処理を8帳票程)
Windows("原紙.xls").Activate
ActiveWindow.Close
Windows("自身.xls").Activate
End Sub (動作確認済み。手打鍵にて誤コマンドご容赦)
この処理を”お待ち下さい”画面等で実行中だけ見えない状態にする、又は画面より見えない形で行うにはどうすれば良いでしょうか。
No.3
- 回答日時:
セルのコピーでなく シートのコピーはいかが?
Sub 原紙を8枚複写()
帳票file名 = "原紙"
複写枚数 = 8
Workbooks.Open Filename:=帳票file名
Workbooks(2).Sheets(1).Copy Before:=Workbooks(1).Sheets(1)
Workbooks(2).Close (False)
Workbooks(1).Sheets(1).Name = "帳票1"
For 枚数 = 2 To 複写枚数
Sheets(1).Copy Before:=Sheets(1)
Sheets(1).Name = "帳票" + CStr(枚数)
Next
End Sub
回答有難うございます。
今回は貼り付け処理は既に確定している所で、勝手に変更をかけれないのです。
次回新規で作成する際に組み込ませて頂きたいと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Visual Basic(VBA) 【VBA】印刷マクロのループ処理が反映されません 3 2022/08/09 02:15
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Visual Basic(VBA) エクセルVBA 3 2022/06/23 20:00
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで 自動的に◯や数字を...
-
エクセルでファイルの最終更新...
-
シフト表をエクセルで作るとき...
-
Excel 2019 [オプション]の[リボンのユ...
-
Excelに詳しい方! B列が「日...
-
Excelファイルが開けません
-
excel2013 MonthDays 関数が使...
-
スプレッドシートの関数につい...
-
【マクロ】2回実行したら、エ...
-
特定の文字列を含む、住所を抽...
-
EXCELの散布図で日付が1900年に...
-
エクセルのツールバーから数値...
-
Excelで表を作ったところに文字...
-
祝日と土曜、日曜の合計をカウ...
-
Excelについて
-
【マクロ】名前を保存する際に...
-
Excel分数の表示について
-
エクセルでCtrl+Tでテーブルの...
-
マイクロソフトのPADを使ってい...
-
【EXCEL】画像の黄色部分の抽出...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA(マクロ)処理...
-
納品 vs ご納品 どちらが正し...
-
「スポット受注」はどういう意...
-
texに関する初歩的な質問
-
納入日と納品日について
-
Zと2とか紛らわしいのがあるか...
-
テストについて
-
三菱製PLC:ファイルレジスタ(...
-
明日売り場欠品だらけになりそ...
-
長さ0の文字列を格納できません...
-
formで送信したPOSTデータの削...
-
スーパーなどで今時期ドリンク...
-
営業職をやってます。先月発注...
-
納期の前倒しを依頼する場合 ...
-
スーパーなどで食品発注で売れ...
-
敬語チェックお願いします!
-
グーグルの障害者訓練プログラ...
-
オーバレイ方式と仮想記憶シス...
-
テキストファイル内の外字の有無
-
インプットとアウトプット
おすすめ情報