[[20160319102727]]　『マクロ実行後、元のシートに戻る』（月乃）　ページの最後に飛ぶ

『マクロ実行後、元のシートに戻る』（月乃）

給料明細を印刷するにあたり、給料台帳のシートから下記のマクロを実行しています。

マクロ実行後「社員明細」シートを表示して終わってしまうので、「給料台帳」シートに戻って終わりたいのですが、
どうすれば宜しいでしょうか。

宜しくお願い致します。

Sub 社員明細印刷()

    Dim i As Integer
    Dim LastRow As Integer

    Worksheets("社員明細").Select

    With Worksheets("名簿")
        LastRow = .Range("E65536").End(xlUp).Row
        For i = 2 To LastRow
           Range("A7").Value = .Range("E" & i).Value
            ActiveSheet.PrintOut

        Next
    End With
End Sub

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

         Next
         .Select   '<---
    End With
 かな？

（seiya） 2016/03/19(土) 10:44

 おっと勘違い
 単に
 >「給料台帳」シートに戻って終わりたい
 のなら

     End With
     Sheets("給料台帳").Select  '<----
End Sub
（seiya） 2016/03/19(土) 10:55

有難うございました。

スッキリ解消いたしました。

また宜しくお願い致します。
（月乃） 2016/03/19(土) 11:25

コメント返信：

[ 一覧(最新更新順) ]

[[20160319102727]] 『マクロ実行後、元のシートに戻る』（月乃） ページの最後に飛ぶ

[[20160319102727]]　『マクロ実行後、元のシートに戻る』（月乃）　ページの最後に飛ぶ