Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


64851 / 76732 ←次へ | 前へ→

【16458】Re:改ページプレビュー
回答  ichinose  - 04/7/28(水) 12:22 -

引用なし
パスワード
   ▼shin さん:
こんにちは。
>実際に以下のプログラムをコピーして使用させていただいたのですが、行を挿入したらやはり、全ページ同じ行数でプレビューできませんでした。

なるほど・・、つまり、行を挿入しても常に同じ行数のプレビューをしたいということでしょうか?
もっちょうと簡単な狭いセル範囲の例にしましょう(投稿が大変なので)

新規ブックに前回のコード(pr_settei、VDRGOFF、HDRGOFF)を標準モジュールにコピーしておいてください(mainは、例題用にちょっと変更後述します)。

・新規ブックのアクティブシートのセルA1に「タイトル」とでも入れておいてください。
・同様にセルB1には「サブタイトル」と入力します。

・セルA3〜E20に以下のようなデータを入れて下さい。

aaa   aaa   aaa   aaa   aaa
aaa   aaa   aaa   aaa   aaa
aaa   aaa   aaa   aaa   aaa
bbb   bbb   bbb   bbb   bbb
bbb   bbb   bbb   bbb   bbb
bbb   bbb   bbb   bbb   bbb
ccc   ccc   ccc   ccc   ccc
ccc   ccc   ccc   ccc   ccc
ccc   ccc   ccc   ccc   ccc
ddd   ddd   ddd   ddd   ddd
ddd   ddd   ddd   ddd   ddd
ddd   ddd   ddd   ddd   ddd
eee   eee   eee   eee   eee
eee   eee   eee   eee   eee
eee   eee   eee   eee   eee
fff   fff   fff   fff   fff
fff   fff   fff   fff   fff
fff   fff   fff   fff   fff

mainプロシジャーを以下のように変更して標準モジュールにコピーして下さい。
'==================================================================
Sub main()
  Dim rng As Range
  Set rng = Range("$A$3:$E$5,$A$6:$E$8,$A$9:$E$11,$A$12:$E$14,$A$15:$E$17,$A$18:$E$20")
  Call pr_settei(rng)
  ActiveSheet.PrintPreview
End Sub

まず、この状態でmainを実行してみてください。
プレビューは、セルA3〜E5、セルA6〜E8、・・・というページ区切りで
同じ文字が3行づつ表示されていますか?

ここで7行目に行を挿入して、セルA3〜E21のデータが以下になるようにします。

aaa   aaa   aaa   aaa   aaa
aaa   aaa   aaa   aaa   aaa
aaa   aaa   aaa   aaa   aaa
bbb   bbb   bbb   bbb   bbb
bbb   bbb   bbb   bbb   bbb
bbb   bbb   bbb   bbb   bbb
bbb   bbb   bbb   bbb   bbb
ccc   ccc   ccc   ccc   ccc
ccc   ccc   ccc   ccc   ccc
ccc   ccc   ccc   ccc   ccc
ddd   ddd   ddd   ddd   ddd
ddd   ddd   ddd   ddd   ddd
ddd   ddd   ddd   ddd   ddd
eee   eee   eee   eee   eee
eee   eee   eee   eee   eee
eee   eee   eee   eee   eee
fff   fff   fff   fff   fff
fff   fff   fff   fff   fff
fff   fff   fff   fff   fff

ここで、プレビューを見てみると、
「bbb」表示されるページだけ4行になっていますよね?


ここを3行したいなら、
ここで再度、mainプロシジャーを実行してみて下さい。

aaa   aaa   aaa   aaa   aaa
aaa   aaa   aaa   aaa   aaa
aaa   aaa   aaa   aaa   aaa


bbb   bbb   bbb   bbb   bbb
bbb   bbb   bbb   bbb   bbb
bbb   bbb   bbb   bbb   bbb


bbb   bbb   bbb   bbb   bbb
ccc   ccc   ccc   ccc   ccc
ccc   ccc   ccc   ccc   ccc


ccc   ccc   ccc   ccc   ccc
ddd   ddd   ddd   ddd   ddd
ddd   ddd   ddd   ddd   ddd


ddd   ddd   ddd   ddd   ddd
eee   eee   eee   eee   eee
eee   eee   eee   eee   eee


eee   eee   eee   eee   eee
fff   fff   fff   fff   fff
fff   fff   fff   fff   fff


というようにプレビューでは表示されるはずなんですが・・・。
こういう結果がほしいのですよね?

つまり、挿入処理の後に、mainプロシジャーを再度実行することにより、
ページを再設定しなければなりません。

1 hits

【16420】改ページプレビュー shin 04/7/27(火) 14:35 質問
【16422】Re:改ページプレビュー ちゃっぴ 04/7/27(火) 14:58 発言
【16424】Re:改ページプレビュー shin 04/7/27(火) 15:38 発言
【16429】Re:改ページプレビュー IROC 04/7/27(火) 18:07 回答
【16433】Re:改ページプレビュー ちゃっぴ 04/7/27(火) 20:34 回答
【16439】Re:改ページプレビュー ichinose 04/7/27(火) 22:49 回答
【16449】Re:改ページプレビュー shin 04/7/28(水) 9:08 質問
【16452】Re:改ページプレビュー ちゃっぴ 04/7/28(水) 11:22 発言
【16458】Re:改ページプレビュー ichinose 04/7/28(水) 12:22 回答
【16478】Re:改ページプレビュー shin 04/7/28(水) 17:44 お礼

64851 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free