[[20181117174745]]　『複数のシートを順番指定して印刷する方法』（ラク）　ページの最後に飛ぶ

『複数のシートを順番指定して印刷する方法』（ラク）

複数のシートを順番指定して印刷する方法を教えてください。

例　シート　1、2、3、4、5、6、7、8、9、10があるとします。

1、6、7、8、9、10、2、6、7、10、3、5、6、7、8、4、9、10の様な順番で印刷したいのです。
どの様なプログラムになるのでしょうか？

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

様々な方法があると思いますが。。。　＾＾
セルか配列に
1、6、7、8、9、10、2、6、7、10、3、5、6、7、8、4、9、10
を格納後、順番に読込み、シート名に指定すれば良いと
思います。

（隠居じーさん） 2018/11/17(土) 18:16

衝突しましたがそのままアップします。

シート　1、2、3、4、5、6、7、8、9、10があるとします。

これはシート名だろうか？シートインデックスだろうか？

シートインデックスだったら、ループで

Worksheets(i).Printout

のようにするだけです。
iは変数です。

iに入れるものは配列に格納しておけばいいと思います。

（とおりすがり） 2018/11/17(土) 18:18

 こんばんは

 Sub 印刷順番()

   x = Arraｙ("1", "6", "7", "8", "9", "10", "2", "6", "7", "10", "3", "5", "6", "7", "8", "4", "9", "10")
   For Each sh In x
       MsgBox sh
   Worksheets(sh).PrintOut
  Next
End Sub
（地区防災士） 2018/11/18(日) 01:48

結局みなさんの回答をなぞってるだけですが、まとめておきました。

    Sub てすと()
        Dim tmp As Variant
        Dim SH As Worksheet

        '変数をVariant型にする場合
            'インデックス番号の場合
            Debug.Print vbCrLf & "インデックスの場合"
            For Each tmp In Array(3, 2, 1, 6, 5, 4)
                Debug.Print Worksheets(tmp).Name
            Next

            'シート名の場合-1
            Debug.Print vbCrLf & "シート名の場合１"
            For Each tmp In Array("3", "2", "1", "6", "5", "4")
                Debug.Print Worksheets(tmp).Name
            Next

            'シート名の場合-2
            Debug.Print vbCrLf & "シート名の場合２"
            For Each tmp In Array(3, 2, 1, 6, 5, 4)
                Debug.Print Worksheets(CStr(tmp)).Name
            Next

        '変数をオブジェクト型（Worksheet型）にする場合
            'インデックス番号の場合
            Debug.Print vbCrLf & "インデックスの場合"
            For Each SH In Worksheets(Array(3, 2, 1, 6, 5, 4))
                Debug.Print SH.Name
            Next

            'シート名の場合
            Debug.Print vbCrLf & "シート名の場合"
            For Each SH In Worksheets(Array("3", "2", "1", "6", "5", "4"))
                Debug.Print SH.Name
            Next

    End Sub

プリントアウトする命令はわかりますよね？
わからなければ「マクロの記録」で調べることができますよ。
（このトピックを読めば答えは書いてありますが。。）

（もこな２） 2018/11/18(日) 14:06

コメント返信：

[ 一覧(最新更新順) ]

[[20181117174745]] 『複数のシートを順番指定して印刷する方法』（ラク） ページの最後に飛ぶ

[[20181117174745]]　『複数のシートを順番指定して印刷する方法』（ラク）　ページの最後に飛ぶ