ＥｘｃｅｌＶＢＡで改ページから標準へ

質問

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim X As Worksheet
For Each X In Sheets
X.Select
ActiveWindow.View = xlNormalView
ActiveWindow.Zoom = 100
Next
Sheets(1).Select
End Sub

ブックＡのマクロで、上記マクロが記述されているブックＢを呼び出し
名前を付けて保存をしています。

ブックＢの各シートの改ページを直した後に保存ボタンで標準表示に戻そうと思っているのですが
その流れだと最初のシートしか標準に戻りません。
２度保存すると全てのシートが標準に戻るのですが・・・。

させたい動作
・ブックＡのマクロで、ブックＢを開く
・ブックＡの情報をブックＢに貼り付ける
・データの量によって改ページが崩れるため、ブックＢの改ページを手動で直す
・保存ボタンを押すことにより、ブックＢの全てのシートを標準に戻す

どうしてこういう事が起こるのか、お分かりの方いらっしゃいましたら
どうか教えて下さい。
解りづらい説明で申し訳ございませんが、よろしくお願いします。

回答No.2

Wendy02 · ベストアンサー

こんにちは。Wendy02です。

個々の内容に関しては、4.以外は、すでに、ここのカテゴリでも、Q&Aは出ていますが、以下は、もう、いわゆる「システム」ですから、その全体を仕上げるというのは、また、統合力というものが必要になってしまいます。簡単に見えてもなかなか出来ないのです。システムというのは、たかがExcelでも、プロの範疇なのです。しかし、何とか、ご自身で扱える範囲の中で、より良いものに近づけていく方法がよいのではないかと思っています。

------------------------------------------------
*させたい動作
1. ブックＡのマクロで、ブックＢを開く
2. ブックＡの情報をブックＢに貼り付ける
3. データの量によって改ページが崩れるため、ブックＢの改ページを手動で直す
4. 保存ボタンを押すことにより、ブックＢの全てのシートを標準に戻す
------------------------------------------------

現在、どこまで出来ているのかわかりませんが、4. に関しては、なるべく既存のボタンという方法は外したほうがよいです。私は、既存のボタンにインスタンスの設け方という方法を提示できないわけではありませんが、Excel共通のグローバルな仕様を求めているわけではありませんから、Aのブックにツール（コントロールツールやツールバーに付けた）ボタンで十分のような気がします。まず、そこらから手をつけるべきではないか、と私は思っています。

ネットでは、VBAのクラス・インスタンスは、結構公開されてはいるのですが、どちらかというと、VB(6)からのダウンサイズのワザを見せているだけで、実際使ってみると、本当のコンパイルではありませんから、そのコードに対して、Untouchable（壊れやすいコードだから触らないほうがよいもの） になってしまうのです。良く分かっていないと、さっぱり原因がつかめなくなってしまいます。また、その内容とパフォーマンスのバランスの悪いものも多いのです。

お礼

さらにアドバイスをありがとうございます。
お礼が遅くなってしまってすみません。
状況は改善できていないのですが、大変勉強になります。
背伸びせず、出来ることからやってみます。

回答No.1

Wendy02

こんにちは。

「Private Sub Workbook_BeforeSave」

>ブックＡのマクロで、上記マクロが記述されているブックＢを呼び出し
>名前を付けて保存をしています。

こちらの解釈が間違っているかもしれませんが、何度か読み直してみると、何か、すごい高度なことをしようとされているように思いますね。ブックのBイベントの呼び出しは出来るとは思うのですが、技術的に複雑になると、内容が不自然だと思います。

イベント・ドリブン型は、あくまでも、「自ブック」の動作(Action)を起動にするものです。

・ブックＡのマクロで、ブックＢを開く
・ブックＡの情報をブックＢに貼り付ける
・データの量によって改ページが崩れるため、ブックＢの改ページを手動で直す
*・保存ボタンを押すことにより、ブックＢの全てのシートを標準に戻す

今のところ、*　の部分だけだとは思いますが、

ブックAから、ActiveWorkbook または、WorkBooks("B.xls") と、単に操作すればよいのではありませんか？

Private Sub CommandButton1_Click()
Dim ws As Worksheet
'シートの標準化
For Each ws In ActiveWorkbook.Worksheets　'開いているブックのシート
　　 ws.Activate
　　 ActiveWindow.View = xlNormalView
　　 ActiveWindow.Zoom = 100
Next
　　 With Application.Dialogs(xlDialogSaveAs)　'保存
　　　　 .Show ActiveWorkbook.Name
　　 End With
End Sub

ただ、もしかして、「保存ボタン」というのは、既存のコマンド・ボタンのことでしょうか？
ツールボタンなら、「個人用マクロブック」に登録すればよいのですが、既存のボタンですと、インスタンスを作らないていけないのです。

補足

２度目の質問にもお答え頂き、感謝いたします。
たしかに私のスキルを超えた事なのかもしれません。
混乱してしまいました。

ブックＡは一種類のExcelファイルなのですが
実はブックＢは何種類もあります。
そして、ブックＢ内のシート数は定まっておりません。
そのためシート名は変数に格納しているのです。
初めはブックＡから操作したのですが、うまく行かず
ブックＢからならば！と思っていたのですが、こちらも駄目で
もう何がいけないのか、さっぱりです。

コードにWorksheets("Sheet1").Activateなどのように
シート名を表示させるとうまく行くようなので、
変数の格納の仕方が悪いのか？と思ったのですが・・・。

それと「保存ボタン」は既存のコマンド・ボタンです。
インスタンスの意味が解らず・・・
Wendy02様のコードを参考に、もっと勉強します。

毎回本当にありがとうございます。