Excel マクロについて

質問

お世話になります
マクロをはじめて記録しましたが、うまく動きません

まず、原紙となるページ”オリ”があり、１～３１までの記録用ページがあります

処理が終わった場合や、間違った場合には原紙となる”オリ”をコピーし、貼り付ける　　つまり原紙と同じ状態に戻すようにしたいのです

で、まず記録の際に、シート３１を開いて入力した後、元に戻すためシートオリをコピーし、元のシート３１に戻り貼り付けた。

というのが下のソースになります。

ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("オリ").Select
Range("A4:W43").Select
Selection.Copy
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("31").Select
Range("A4").Select
ActiveSheet.Paste
Range("C6").Select

この内容では、シート１で実行した場合でも３１が元に戻ってしまうので困っております。

どこかを変えればよいのでしょうか？

回答No.1

zap35 · ベストアンサー

開いているシートに対して「元に戻す」操作をすれば良いのですね。
これでよいと思います

Sub Macro1()
If ActiveSheet.Name <> "オリ" Then
　　Sheets("オリ").Range("A4:W43").Copy Range("A4")
　　Range("C6").Select
End If
End Sub

お礼

即解決でうれしいです

誠に勝手ですが、もし時間がございましたらどういう内容なのか教えていただけないでしょうか

命令文が短いのはなんとなく無駄を省いているわかりますが・・・

よろしくお願いします

回答No.2

zap35

えっ、これを解説ですか？　(^^;

Sub Macro1()
If ActiveSheet.Name <> "オリ" Then　
'↑　開いているシート名が「オリ」のときは処理しない
　　Sheets("オリ").Range("A4:W43").Copy Range("A4")
'　　↑　シート名「オリ」のA4:W43を、開いているシートの
'　　　　　A4から始まる範囲に貼り付ける
　　Range("C6").Select
'　　↑　開いているシートのC6を選択する
End If
End Sub

Sheets("オリ").Range("A4:W43")はシートを明示していますが、ただRange("A4:W43")だけを記述すると開いているシート（ActiveSheet）の範囲であることを意味します。

これ以上はご自身で勉強してください

お礼

大変勉強になりました

ちょっとづつですが勉強したいと思います