[[20131021084146]]　『マクロで初期状態』（素人）　ページの最後に飛ぶ

『マクロで初期状態』（素人）

 マクロが初めてなので宜しくお願いします。
 配車表を作成してるのですが、始めの状態に戻す方法が分からないので
 宜しくお願いします。

 シート構成

 マスタ, 香盤表貼り付け,　配車表,　1便, 2便, 3便, 到着 があります。

 現在、1便、2便、3便で編集して、配車表へ貼り付けするために
 Sub sheet配車表へ()
    Worksheets("1便").Range("A6:I66").Copy Worksheets("配車表").Range("A6:I66")
    Worksheets("2便").Range("A6:L73").Copy Worksheets("配車表").Range("J6:U73")
    Worksheets("3便").Range("A6:L66").Copy Worksheets("配車表").Range("V6:AG66")
 End Sub
 と、入れてあります。

 配車表をクリアする為には、
  Sub sheet1クリア()
 Range("F6:I66").ClearContents
 End Sub

 そこで、1便、2便、3便を編集前の最初の状態に戻したい時に、
 ツールバーの戻るボタンを使うのではなく、配車表に初期化みたいなボタンを設定して
 初期状態に戻したいのですが、やり方が分かりませので宜しくお願いします。

「初期状態」とはどういう状態のことでしょうか。
Worksheets("配車表").Range("A6:I66")
Worksheets("配車表").Range("J6:U73")
Worksheets("配車表").Range("V6:AG66")
この三つの範囲がクリアされている状態のことですか？

（みやほりん） 2013/10/21(月) 09:11

 ＞現在、1便、2便、3便で編集して、

 ですよね？
 そうだとすると、無理だと思います。

 編集したら、初期状態はもうどこにも残ってないですから。

 (1)初期状態を「ひな形」として別に作って置くか、作業前の状態をどこかにコピーして置くかする。
 (2)そして、作業後にその温存しておいたものをコピーして、元に戻った状態に見せる

 と云う形やり方になると思います。

（半平太） 2013/10/21(月) 09:23

みやほりんさん

 おはようございます。

 説明不足ですみません。
 シートの1便、2便、3便が編集される前の状態です。
 各シートに
 A6:A66に店所名、B6:B66に店所コード、C6:C66に社名があります。
 基本の並びがあるのですが、日により編集することがあります。
 そこで、次に使う時に、編集前の状態に戻したい場合のことです。
 (素人）

 半平太さん
 おはようございます。

 作業前の状態を残す方法はありますか？
 （素人）

上書き保存さえしなければ、編集前の状態で保存されています。
ただ、「間違って」上書き保存してしまう事故は想定されます。

私は「ブックのテンプレート」「シートのテンプレート」を作っておく派。
（みやほりん） 2013/10/21(月) 09:56

 ＞「間違って」上書き保存してしまう事故は想定されます。 
 こう云う事故を想定すると、

 ＞作業前の状態を残す
 このやり方も同様の問題があります。
 （作業前の温存処理を忘れたり、作業中に温存処理をしてしまったり)

 結局、「シートのテンプレート」を作って置くのが賢明と云うことになります。

 その線でご対応ください。
　
（半平太） 2013/10/21(月) 12:04

 半平太さん
 みやほりんさん

 有難うございます。

 初期状態を隠しシートに作り、コピー、貼り付けで初期状態にしました。（素人）

コメント返信：

[ 一覧(最新更新順) ]

[[20131021084146]] 『マクロで初期状態』（素人） ページの最後に飛ぶ

[[20131021084146]]　『マクロで初期状態』（素人）　ページの最後に飛ぶ