Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

40683 / 76807

←次へ　｜　前へ→


	【41220】コピーしたシートのみ全て選択

勉強中です

- 06/8/2(水) 10:50 -


	引用なし

	パスワード

みなさま　こんにちは　またお世話になります。
今回はデーターを入力したシートがいっぱいになったらコピーをして
またデーターを入力して、それを印刷するマクロを組んでいます。
コピーするシートがデーター量に応じて変化する為シート数は確定できません
１シートずつ印刷は出来ますがこれをコピーしたシートを全て選択して
一括で印刷は出来無いでしょうか。
また印刷後にそのコピーしたシートを削除もしたいのですがよろしくお願いします
今は１枚ずつ印刷をしています。

基本シートはシート１～４でコピーシートは右側に追加されていきます。
追加と印刷のコードは以下となっています。
============================================
　Private Sub CommandButton9_Click()

　Range("A39").Value = TextBox1.Value

　Dim i As Integer
　Dim s As String, title As String

　s = "継続しますか？"
　title = "継続の確認"

　i = MsgBox(s, vbYesNo + vbExclamation, title)
If i = vbYes Then
　 MsgBox ("シートをコピーします")
　 Sheets("新規・特売").Copy after:=Worksheets(Sheets.Count)
　　 Sheets("新規・特売").Select
　　
　　　Range("A15:M41").ClearContents
　
　　　　Worksheets("マスター").Activate

　　　　　　UserForm1.Show False

　　　　　　Unload UserForm3
Else
　　MsgBox ("保存しますして終了します！")
　　
　　ActiveWorkbook.Close savechanges:=True
　　
End If

End Sub

Private Sub CommandButton10_Click()

Dim s As Integer

MsgBox ("印刷します！")

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

　　Range("A15:M41").ClearContents
　　Range("AD9:AJ11").ClearContents
　　Range("AM9:AS11").ClearContents
　　Range("AZ9:BF11").ClearContents
　　Range("BI9:BO11").ClearContents

s = MsgBox("印刷するシートはありますか？", vbYesNo, "印刷の確認")

If s = vbYes Then
　　Exit Sub
Else
　MsgBox ("保存しますして終了します！")
　　
　 Worksheets("マスター").Activate
　
　 ActiveWorkbook.Close savechanges:=True
End If
End Sub
============================================

2 hits

▼

【41220】コピーしたシートのみ全て選択 勉強中です 06/8/2(水) 10:50

≪