エクセルの印刷指定

質問

お世話になります。
エクセルのシートが１０枚あるとします。
Sheet1の名前は「指定表」Sheet2以降は「１枚目・・・９枚目」と変更してあります。
VBAで「指定表」のA1に「１」と入力しマクロの登録ボタンを押すと、「１枚目」が出力され、以下「２」と入力し登録ボタンを押すと「１枚目」と「２枚目」が出力される、「３」なら「１～３枚目」が出力される。
と言うように入力された数値の値のシートの枚数が出るようなマクロをご教示ください。

回答No.1

zap35 · ベストアンサー

例えばこんなマクロでも可能です
Sub Macro1()
Dim idx As Integer
If IsNumeric(Sheets("指定表").Range("A1").Value) Then
　　For idx = 2 To Sheets("指定表").Range("A1").Value + 1
　　　　If idx <= Worksheets.Count Then
　　　　　　Worksheets(idx).PrintOut
　　　　End If
　　Next idx
End If
End Sub

でも質問は「たとえば」で書かれているように感じますので、実際には修正が必要かもしれません。それはご自身でお願いします。

お礼

お忙しい中、ご回答ありがとうございます。
確かに質問では単純化するために、「たとえば」で書きましたが、このご解答で充分対応可能です。

回答No.2

hiro2803

一例としては次のようになります。この subPrintOut() を呼び出して下さい。

-----ここから
Sub subPrintOut()
Dim i As Integer

For i = 1 To ThisWorkbook.Worksheets("指定表").Cells(1, 1)
ThisWorkbook.Worksheets(i & "枚目").PrintOut
Next
End Sub
----ここまで

注意点としては、シート名「ｎ枚目」のｎに使う数字は半角でなければ動きません。また、９枚目までしか作成していないのに指定表シートに10と入力した場合にもエラーが出て停止しますので、セルの入力規則などでシート名に指定した数値より大きな数値が入力できないように工夫して下さい。

お礼

お忙しい中、ご回答ありがとうございます。
注意点を参考にVBAの完成度を高めて行きたいと思います。