- ベストアンサー
改ページプレビューを標準形式に戻すVBAは？
新規のブック"Book1"に、すでに開いているブック"BookA"の特定のシートを移動するVBAを組みました。Book1は標準の表示形式、BookAは改ページプレビューの状態です。 動作自体には問題は無いのですが、その貼り付けたシートの表示形式を標準形式に戻すところまでもっていきたいのです。 「そのぐらい手作業でやれ」と言われてしまいそうですが、もしご存知でしたらご教授ください。よろしくお願いします。
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- starsip
- ベストアンサー率36% (22/60)
'ThisWorkbook 辺りに記述して、実行してみて下さい。 '改ページプレビュー Sub 改頁() ActiveWindow.View = xlPageBreakPreview 'ActiveWindow.View=xlNormalView End Sub '標準プレビュー Sub 標準頁() 'ActiveWindow.View = xlPageBreakPreview ActiveWindow.View = xlNormalView End Sub
お礼
どうもありがとうございました。 自分のメソッドでは、「Active」が不足していました。何とも初歩的なミスでお恥ずかしい限りです・・・。
関連するQ&A
- VBAについて教えて下さい
VBAでBOOKを選択して選択したBOOKの開いたシートを作業中のBOOKにあるSheet3へコピーして開いたBOOKを閉じるプログラムを教えて下さい。
- 締切済み
- Visual Basic
- 改ページプレビューのページ表示について
Excel2003で、改ページプレビューで作業する際の質問です。 シートには各行に図が貼り付けてあり、改ページプレビューで表示される位置が図と重なっています。 そのため、見た目には図の後ろ（裏側）にページ数が表示されます。 シートには図の他、セルにデータが入っており、 検索でそのデータを探す作業をしながら、 それが何ページ目なのかを書きだしていきます。 しかし、ちょうど図の場所が、表示の「○ページ」の「○」のあたりになりページ番号がわからないので いちいち印刷プレビューで何ページ目なのかを確認していて、 作業がはかどりません。 列数行数は毎月若干の変動があり、列数は３０前後、行数は１０００～１３００程です。 たとえばプレビューの表示位置を変えて、図でないセルの位置に表示させる方法がありますか？ またそれ以外に、そこが何ページ目なのか簡単に知る方法がありますか。 ちなみにその図を動かすことはできない状況です。（位置がミリ単位で決まっているため） そのシートは毎月行数が変更されるため、項目ごとに改ページでページの区切りを指定したあと、上記の作業が発生します。 わかりにくい質問で恐縮です。 お教えいただけると助かります。
- 締切済み
- オフィス系ソフト
- エクセル ＶＢＡ？ 関数？
book1(データ入力用)とbook2(送信用)で作業します。 必ずbook1→book2の順番で開きます。 book1には１ヵ月の日数分のsheetがあり（約30sheet）、作業中のsheetのA1の日付を、book2を開いたときにbook2のB4に自動的に表示される様にしたいです。 関数でも可能であればＯＫですが、できればＶＢＡの文章をおしえてください。Private Sub Worksheet_Activate()で可能でしょうか？？？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- ＥｘｃｅｌＶＢＡで改ページから標準へ
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 ブックＡのマクロで、上記マクロが記述されているブックＢを呼び出し 名前を付けて保存をしています。 ブックＢの各シートの改ページを直した後に保存ボタンで標準表示に戻そうと思っているのですが その流れだと最初のシートしか標準に戻りません。 ２度保存すると全てのシートが標準に戻るのですが・・・。 させたい動作 ・ブックＡのマクロで、ブックＢを開く ・ブックＡの情報をブックＢに貼り付ける ・データの量によって改ページが崩れるため、ブックＢの改ページを手動で直す ・保存ボタンを押すことにより、ブックＢの全てのシートを標準に戻す どうしてこういう事が起こるのか、お分かりの方いらっしゃいましたら どうか教えて下さい。 解りづらい説明で申し訳ございませんが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルのVBAを使用し、別のBookの情報をコピーしたい
VBA初心者ですので、御教授をお願い致します。 下記の作業をVBAで実施可能でしょうか？ まず、BookA.xlsから"Application.Dialogs(xlDialogOpen).Show"を利用し、任意のbookXを開きます。 その開いた、bookXのSheet1と、Sheet2をコピーし、BookA.xlsのSheet1と、Sheet2に貼り付けたいのですが、可能でしょうか？ ちなみに、bookXのファイル名は固定ではありません。 毎回、作業するたびに変わるbookをVBAでコントロールする方法をご存知の方がいらっしゃいましたら、ご指導をよろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセルVBAでウインドウサイズが、変わらないようにする方法がわかりま
エクセルVBAでウインドウサイズが、変わらないようにする方法がわかりません（初心者） ≪現状≫ Book.1とBook.2があります。 Book.1は、最大サイズで作業しています。 Book.1に、Book.2を特定サイズで特定場所に開くようVBAを書きました。 Book.2は、指定通りに立ち上がるのですが、 Book.1も、小さくなってしまいます。 ≪要望≫ 最大化しているBook.1の上に 特定サイズで特定場所にBook.2が開くことを望んでいます。 どのようにすればよろしいのでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセル 改ページプレビュー ページ番号設定
改ページプレビューで表示されるグレーのページ番号の設定について質問です。 100ページの書類を Ａシート：1～50ページ Ｂシート：51～100ページ と分けて作業しています。 画面上で全体の通し番号が分かるように改ページプレビューを使用したいのですが、シートが変わるとページ番号は新たに1ページ目から表示されてしまいます。 Ｂシートに51ページから表示する方法はありますでしょうか？ よろしくお願いします。 使用環境：Excel2003
- ベストアンサー
- オフィス系ソフト
- 複数ブックの印刷プレビューの方法を教えてください。
VB6.0にてエクセルのブックを２つ作成し、 最後にそのBook1とBook2を同時に印刷プレビューで表示させたいのですが Book1.Worksheets.PrintPreview Book2.Worksheets.PrintPreview にするとBook1の印刷プレビューを閉じないと Book2の印刷プレビューが表示されません。 Book1とBook2を同時にプレビュー表示させる方法を どなたかご存知でしたら教えてください。 よろしくお願いします。
- ベストアンサー
- Visual Basic
- 改ページプレビュー
エクセルの改ページプレビューですが、これはどういう場面で使うのでしょうか？ また、中央に１ページという文字をなしで、改ページプレビュー（値がないセルを灰色）にできないでしょうか？表示で標準にすれば１ページという文字は消えますが、セルは元に戻ってしまいます。 よろしくお願いします。 エクセル２００７以上
- ベストアンサー
- Excel（エクセル）
お礼
早速の回答、ありがとうございました。 どうやら「Active」が足りなかったようです。お恥ずかしい・・・。