[[20131010152413]]　『直前のシートに戻る方法』（ひさえ）　ページの最後に飛ぶ

『直前のシートに戻る方法』（ひさえ）

 下記のようなマクロがあります。
 上から7行目の

Sheets("1月").Select

この部分を「直前のシートに戻る」ようにしたいのですが

どうしたらスマートにできますか？

 Sub Macro_チャート1()
'
' チャート1 Macro
' マクロ記録日 : 2013/10/10  ユーザー名 : Hisae Nomura
'

    Range("C19").Select
    Selection.Copy
    Sheets("ガンチャート").Select
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("1月").Select
    Range("B21:C48").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("ガンチャート").Select
    Range("B7").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

 直前のシートとは、初めにアクティブだったシートのことですね？

 Sub Macro_チャート1()
     Dim wshStart As Worksheet  '←追加(1/3)
     Set wshStart = ActiveSheet '←追加(2/3) スタートしたシートをセットする

     Range("C19").Select
     Selection.Copy
     Sheets("ガンチャート").Select
     Range("B1").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
     'Sheets("1月").Select   '←削除
     wshStart.Select         '←追加(3/3)
     Range("B21:C48").Select
     Application.CutCopyMode = False
     Selection.Copy
     Sheets("ガンチャート").Select
     Range("B7").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False
 End Sub

 (半平太) 2013/10/10(Thu) 15:40

できました。
どうもありがとうございます。

ひさえ

コメント返信：

[ 一覧(最新更新順) ]

[[20131010152413]] 『直前のシートに戻る方法』（ひさえ） ページの最後に飛ぶ

[[20131010152413]]　『直前のシートに戻る方法』（ひさえ）　ページの最後に飛ぶ