同じ作業を繰り返したい

Question

Sub 印刷()
'
' 印刷 Macro
'

    Dim rc As Long
    rc = MsgBox("sheet2の帳簿を印刷しますか？", vbYesNo + vbQuestion)
    
    If rc = vbYes Then
            
    Sheets("sheet2").Select
    ActiveWindow.SelectedSheets.PrintOut
    Sheets("sheet1").Select
    Range("C2:F3").Select      

    Else    
    End If

End Sub

VBA初心者で、本とネットで勉強しながら、上記を作成しました。

上記の式をsheet2-8で繰り返し行いたいです。
sheet2~8まで、それぞれのシートの印刷が必要かどうか問い、
必要であれば印刷、
不要であれば次のシートが必要か問う
という形を作成したいです。

この式のシート名を変えて、下に数珠すなぎに繰り返せばいいと思うのですが、
他に方法があるように思い…しかし、たどり着けません。

sheet名は日本語表記に変更しています。

ご教授いただけると助かります。

Answer 1

シート名が日本語名でも対応できるように修正した版です。
shs配列に印刷対象にしたシート名を記入してください。
動作は未検証です。

Sub 印刷()
'
' 印刷 Macro
'
    Dim rc As Long
	Dim i As Long
    Dim shs() As Variant
	Dim sh As String

    shs = Array("sheet2", "sheet3", "sheet4", "sheet5", "sheet6", "sheet7", "sheet8")

	For Each sh In shs
		rc = MsgBox(sh & "の帳簿を印刷しますか？", vbYesNo + vbQuestion)
		If rc = vbYes Then
			Sheets(sh).Select
			ActiveWindow.SelectedSheets.PrintOut
		End If
	Next
	Sheets("sheet1").Select
	Range("C2:F3").Select      

End Sub

修正前版

やりかたは色々ありますが、この場合ですとForループを使うと修正量も少ないかと。
単純に書き換えるとこんな感じです（動作未検証）。

Sub 印刷()
'
' 印刷 Macro
'
    Dim rc As Long
	Dim i As Long
	Dim sn As String

	For i = 2 To 8
		sn = "sheet" & i;
		rc = MsgBox(sn & "の帳簿を印刷しますか？", vbYesNo + vbQuestion)
		If rc = vbYes Then
			Sheets(sn).Select
			ActiveWindow.SelectedSheets.PrintOut
		End If
	Next
	Sheets("sheet1").Select
	Range("C2:F3").Select      

End Sub

Comments

[ttyp03]

> sheet名は日本語表記に変更しています。

見逃してました。
このコードだとダメだ。

[ttyp03]

修正版をアップしました。

[mi07]

早々にありがとうございます！
やってみます！

[mi07]

For Each sh In shs
shのぶぶんで、エラーとなり、for eachを配列で使用する場合は、バリアント型の配列でというエラーとなりました。ちょっとよくわからないので(笑)勉強してみます！
ありがとうございました！

[ttyp03]

エラーの通りshをバリアント型にしないといけないようでした。
Dim sh As Variant

やはり動作確認しないとダメですね。

[mi07]

ちょうどその回答に行きつきました！ありがとうございました！

Answer 2

WorkSheets を For Each で回しても良いと思います。
シート名が「sheet1」以外を対象にしています。

※印刷したくないシートが複数の場合は、ttyp03さんの方が良いと思います。

動作は未検証です。

Sub 印刷()
'
' 印刷 Macro
'
    Dim rc As Long
    Dim sheetTarget as WorkSheet
    Dim sn As String

    For Each sheetTarget in ActiveWorkBook.Worksheets
        If sheetTarget.name <> "sheet1" Then
        
	        rc = MsgBox(sheetTarget.name & "の帳簿を印刷しますか？", vbYesNo + vbQuestion)
	        If rc = vbYes Then
	            sheetTarget.Select
	            ActiveWindow.SelectedSheets.PrintOut
	        End If
	        
	    End If
    Next
    Sheets("sheet1").Select
    Range("C2:F3").Select      

End Sub

Comments

[mi07]

ありがとうございます！今回は印刷しないシートが複数あるので、使用できないのですが、こんな方法があるとは知らなかったので、大変勉強になりました。ありがとうございました！