Excel97で、ブック内のワークシートが現在多数あります。

ワークシートを全て選択し、「ページ設定」で余白なりヘッダーなりを設定しても、その時表示されているワークシートしか変更されません。

ブック内のページ設定をいっぺんに行うやり方を教えて下さい。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

「作業グループ」を設定すれば出来ます。


sheet1、2、3をまとめてページ設定をしたいとすると、
まず、シートタブでsheet1をクリックして表示しておきます。
その後、shiftキーを押しながら、sheet3をクリックすると、
選択したシートタブが白くなり、タイトルバーに「作業グループ」
と表示されます。
その状態で作業をすると、その作業が全てのシートに反映されます。
sheet1と3を作業グループにしたい、というような離れたシートの
場合はshiftではなくctrlキーを押しながらクリックしてください。
shiftとctrlの使い分けは大丈夫でしょうか。

作業グループの解除方法は、ブック内の全シートを作業グループに
した場合(例:sheet1~3)は、シートタブのsheet2か3をクリック。
sheet1と3を作業グループにした場合は、作業グループにしていない
sheet2をクリックすると解除できます。(タイトルバーでご確認ください)

こんな説明でわかりますでしょうか。どきどき。
    • good
    • 0
この回答へのお礼

No.1の方にもレスしましたとおり、ちょっとしたやり方の勘違いでした。
でも、早くて詳細な情報ありがとうございます(^^)。

お礼日時:2001/05/10 14:45

シート1の名前をクリック→シフトキーを押しながらシート2の名前をクリック→シフトキーを押しながらシート3の・・・と、作業グループを作って、ページ設定しても同じでしょうか?


基本的に作業グループ内では全ての作業が複数のシートにまたがって可能なのでこれで大丈夫だと思います。
    • good
    • 0
この回答へのお礼

出来ました!
「作業グループ」の選択は自分でもやってはいたんですが、私ったら印刷プレビュー上の「設定」で変更していたんです。このやり方では確かにその時印刷プレビューされているシートしか変更されませんよねー(^^;;)。
でも、ちゃんと標準表示に戻してから作業グループ選択し、「ページ設定」で変更したら出来ましたよ。
(こんな初歩的なことでつまづくとは・・・いやはや)

早い回答ありがとうございました。

お礼日時:2001/05/10 14:44

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qチャイルドシートは、汚れが目立つの?(ベージュ)

チャイルドシートの購入を考えています。
実際に利用されている方に質問です・・

実際に使ってみると、チャイルドシートは、
どれくらい汚れるものでしょうか?

車の内装にあわせ、ベージュ、白系のチャイルドシートの
購入を考えていますが、汚れが目立つのでは?っと心配しています。
アドバイスをお願い致します。

Aベストアンサー

こんにちは。

うちもベージュ系ですが、汚れはそんなに目立ちませんよ!
座ってるだけなので、靴の汚れやたまにパンやお茶を飲ませたりするのでその汚れぐらいです。
以前ベビーカーを購入したときに、赤ちゃんの汚れはミルクやよだれが多いので却って黒など濃い色の方が目立ちますよって店員さんに言われました。

QEXCEL2002で、ブック内のワークシートを他のブックに(VBA含む丸ごと)コピーして移す方法

 EXCEL2002で、ブック内のワークシートを他のブックに(VBA含む丸ごと)コピーして移す方法
 普通のやり方では、セルの数字、値だけで、通常は、中身の重要な"関数式"であったり、VBA等のプログラムまで、コピーされることは、ありませんので、そこまで、出来る方法を教えて下さい。

Aベストアンサー

コピー元のBookとコピー先Bookをどちらも開いて
Excel画面上に並べます(左右に並べる方が作業しやすいと思います)

Ctrlキーを押しながら、コピーしたいシートのタブ部分を
クリック長押しすると、+マークと▲マークが出てきます。
マークが出てきたら、新しいBookにドラッグ&ドロップ で
シートコピーが出来ます。

全く同じシートがコピーされ、マクロもコピーされます。

Q新車購入について相談 (内装・シートカバー・スライドドア・ナビ・購入時期など)

トヨタのシエンタ(パールシルバー)のGグレード購入を考えてます。
1年以上検討したので、焦らないほうがとは思いますが、レンタカー代などもかかり、今月中には買いたいと・・・。
1つでもご回答お願いします。

(1)Gグレードを選ぶと、内装は自動的にベージュです。
(内装を黒にしたいならSエディションになる)内装はベージュの方が広く感じそうだと異議なしのつもりでしたが、兄は「外装白にするなら絶対黒だと思う」と。しかしSエディションにすると、標準装備が落ちます。
やはり内装はベージュより黒のほうが合いますか?

(2)シートカバーについて
母は純正ベージュ皮調シートカバーや、インテリアの木目調パネルに惹かれていますが、高いし購入に迷っています。
どう思われますか?

(3)Gグレードは助手席側後席が電動スライドドア標準装備です。運転席側後席も電動にしたいならプラス5万です。以前「両側電動スライドドアは本当に便利」という声を何度か読んだのですが(口コミの掲示板)どうですか?

(4)純正HDDナビを考えてます。デュアル画面(助手席ではDVDが見え運転席ではナビが見れる、また運転中でも助手席ではナビの操作をできるというもので、惹かれますが一番高い)はいいですか?
また、音楽保存できるんだからMDはいらないと思ってましたが、自分の手持ちのMDの多さや、乗車する人がMDを聞きたいかもと思い、MD付がいいかと迷っています。
また、ハンディフリーなどのblueなんとかとかは、便利ですか?
画面の種類もいろいろあります。
純正ナビでお勧めはなんですか?

(5)購入時期ですが、11月中に買おうとしていますが、
ちょっとのことで1月までまてば「19年前期車」となり査定の時など全然違うと聞きましたがどう思われますか?

トヨタのシエンタ(パールシルバー)のGグレード購入を考えてます。
1年以上検討したので、焦らないほうがとは思いますが、レンタカー代などもかかり、今月中には買いたいと・・・。
1つでもご回答お願いします。

(1)Gグレードを選ぶと、内装は自動的にベージュです。
(内装を黒にしたいならSエディションになる)内装はベージュの方が広く感じそうだと異議なしのつもりでしたが、兄は「外装白にするなら絶対黒だと思う」と。しかしSエディションにすると、標準装備が落ちます。
やはり内装はベージュ...続きを読む

Aベストアンサー

(1)車のキャラからいって、内装はベージュのほうが合っている感じがします。(もう少し言うと、キャラから考えて白はあまりふさわしくないような・・・)

(2)どちらもいらないと思いますが・・・特にシエンタに木目は不要だと思います。車格が低いので。

(3)実際に後席ドアをどれだけ使うかの頻度によって違ってくると思いますし、駐車場の関係で、どちら側をよく使うかというのも関係するでしょう。また、坂道に止めることが多ければかなり重宝するでしょうね。ただ、シエンタくらいのコンパクトな車のドアは、比較的軽く閉められるので、展示車などで効果のほどを確かめたほうが良いと思います。

(4)私個人の考えですが、助手席側だけDVDを観るシチュエーションが想像できません。普通のものでじゅうぶんだと思います。ただ、私は社外品をオススメします。身内が今年購入したヴィッツの純正HDDナビ、「最低」でした。道路や案内ルートがよく似た色ばかり使って本当に見づらく、操作性も悪くて、直感的に使えない駄作だなと思いました。カロッツェリアの楽ナビあたりなら、親切度や測位も高レベルで安価ですよ。MD再生OKの機種もありますし、カー用品店の作業員に頼めば、走行中の操作もOKになりますしね(運転者は走行中操作しないこと!)。ハンズフリーやbluetoothは、よほど頻繁にかかってくる人でない限り実用性はないでしょう。

(5)「全然違う」とまではいかないと思います。確かに2年くらいで乗り捨てるようであれば大きく変わるでしょうが、5年、10年使うならさほど変わらないでしょう。5年で4,5万(2,3万かも)の違い、10年でほとんど違いなしかと思います。シエンタは来年あたりには生産中止で消滅濃厚モデルなので、プレミアがつくか、マイナー不人気中古車になるかですが・・・おそらく後者が濃厚なので、長く乗りつぶしてあげるほうが吉だと思います。

(1)車のキャラからいって、内装はベージュのほうが合っている感じがします。(もう少し言うと、キャラから考えて白はあまりふさわしくないような・・・)

(2)どちらもいらないと思いますが・・・特にシエンタに木目は不要だと思います。車格が低いので。

(3)実際に後席ドアをどれだけ使うかの頻度によって違ってくると思いますし、駐車場の関係で、どちら側をよく使うかというのも関係するでしょう。また、坂道に止めることが多ければかなり重宝するでしょうね。ただ、シエンタくらいのコンパクトな車のドアは...続きを読む

Q【質問】ブック名AからシートをブックBへ移動する時、ブックAにシートを残してブックBにもコピーするには?

こんにちは、みなさん!!

【質問】ブックAのシートを、ブックBに移動する時に、ブックAにも
同シートを残しておき、さらに、ブックBに同シートを移動する事は
できますか?ドラック&ドロップでは、ブックAにシートはなくなり、
完全に、ブックBに移動されてしまいます。

ご存知の方いらっしゃいましたらよろしくお願いします。

Aベストアンサー

はじめまして

ブックAの該当シートタブを右クリック、移動またはコピーを選択、移動先ブックをブックBに、コピーを作成するにチェックを入れてOK。
これでいけます。

また、ドラッグアンドドロップでするなら、「CTRL」キーを押しながらやってみてください。
移動ではなくコピーになります。

的外れでしたらごめんなさい。

Q車のシートがベージュ

車のシートがベージュだと汚れやすいですか?
万が一珈琲やコーラ等の黒い液体をこぼした場合、
染みになりますか?
それともある程度撥水してすぐ拭き取れば大丈夫ですか?


新車を購入するのですが、
欲しい車の好きな色だとシートの色がベージュしかないのです。
(フィットハイブリットの赤)


子どもが小さくて汚すので、
ベージュのシートは不安です・・・。
実際に淡い色のシートをお使いの方、感想を教えてください<(_ _)>

Aベストアンサー

私は5ヶ月前に新車でランドクルーザープラドを購入しました。が、東日本大震災やタイの洪水などあって納車は3ヶ月半待ち。私も内装は黒が好きなので(ボディーはパールホワイト)黒を注文しました。
しかしディーラーの注文ミスで標準色のベージュが来てしまいました。再度注文と担当者に言いましたが、また同じ様に3ヶ月ほど納期がかかるという事で10万円分の追加オプションを付けて貰いしぶしぶ納得しました。今まで内装は黒しか乗った事が無いので最初は本当に抵抗ありました。でも人間なんでも慣れですね。普通に乗っていると少し時間が経つとなんだベージュもなかなか良いじゃん。ってなりました。
私もなんで内装は黒かと言うとやはり汚れです。黒はホコリなどは目立ちますが、飲み物をこぼした時などサッと拭いておけば全く目立ちませんもんね。ベージュだとそう言う訳には行きませんからね。そこで私もオススメなのがシートカバーです。純正品は高価なのでホームセンターなど売っている自社ブランドでほぼ全サイズ適用なシートに被せるだけの物が売っています。運転、助手席はもちろん2列目シートに付けてます。お子様の食べこぼしや飲みこぼし位ならほぼこれで防げると思いますよ。カバーが汚れればまた買えば良いんですからね。ちなみに運転、助手席は各980円後部座席は1480円でした。3つ合わせても4000円弱ですからね。内装色か嫌だからってボディーのカラーは絶対に妥協しない方が良いですよ。

本当にグタグタ長々と申し訳ありませんでした。

私は5ヶ月前に新車でランドクルーザープラドを購入しました。が、東日本大震災やタイの洪水などあって納車は3ヶ月半待ち。私も内装は黒が好きなので(ボディーはパールホワイト)黒を注文しました。
しかしディーラーの注文ミスで標準色のベージュが来てしまいました。再度注文と担当者に言いましたが、また同じ様に3ヶ月ほど納期がかかるという事で10万円分の追加オプションを付けて貰いしぶしぶ納得しました。今まで内装は黒しか乗った事が無いので最初は本当に抵抗ありました。でも人間なんでも慣れですね。普通...続きを読む

Qエクセル2000・シートごとのページ番号とページ数、ブック全体のページ番号と総ページ数

エクセル2000についてお尋ねします。

ヘッダの右側に
   ([シート毎のページ番号]/[シート毎のページ数])
フッタの中央に
   ([ブック全体の通しページ番号]/[ブック全体の総ページ数])
を入力・印刷したいのです。

今までは手入力でフッタのページ番号のうしろに「+前のシートまでのページ数」、[ブック全体の総ページ数]の代わりに数値を直接入力していたのですが、1つのブックにつきシート数が20~60程度ある上にページの追加・削減があるので、もっと簡単なやり方があったら教えてほしいです。

VBAは、まだ勉強を始めたばかりで、ネット上で使えそうなVBAをコピーして自分のエクセルに貼ることしか出来ません^^;
どうか、よろしくお願いします。

Aベストアンサー

こんにちは。

こんな感じでしょうか?
必ずコピー等を取ったテスト用ブックで試して下さい。

ページ数によって、結構処理時間が掛かります。

'---------------------------------------------------------------------
Sub Test()
Dim ws As Worksheet
Dim AllCnt As Integer, pCnt As Integer

 AllCnt = 0
 For Each ws In Worksheets
   AllCnt = AllCnt + PageCnt(ws)
 Next ws

 pCnt = 0
 For i = 1 To Worksheets.Count
  Set ws = Worksheets(i)
  ws.PageSetup.RightHeader = "&P / &N "
  If i = 1 Then
    ws.PageSetup.CenterFooter = "&P / " & AllCnt
  Else
    pCnt = pCnt + PageCnt(Worksheets(i - 1))
    ws.PageSetup.CenterFooter = "&P+" & pCnt & " / " & AllCnt
  End If
 Next i
 Set ws = Nothing
End Sub
'---------------------------------------------------------------------
Function PageCnt(ws As Worksheet) As Integer
Dim h As Integer, v As Integer
  PageCnt = 0
  If ws.UsedRange.Address = "$A$1" Then
    If IsEmpty(ws.Range("A1").Value) Then
      Exit Function
    End If
  End If
  h = ws.HPageBreaks.Count
  v = ws.VPageBreaks.Count
  If v = 0 Then
    PageCnt = h + 1
  Else
    PageCnt = (h + 1) * (v + 1)
  End If
End Function
'---------------------------------------------------------------------

こんにちは。

こんな感じでしょうか?
必ずコピー等を取ったテスト用ブックで試して下さい。

ページ数によって、結構処理時間が掛かります。

'---------------------------------------------------------------------
Sub Test()
Dim ws As Worksheet
Dim AllCnt As Integer, pCnt As Integer

 AllCnt = 0
 For Each ws In Worksheets
   AllCnt = AllCnt + PageCnt(ws)
 Next ws

 pCnt = 0
 For i = 1 To Worksheets.Count
  Set ws = Worksheets(i)
  ws.PageSetup.Right...続きを読む

Q内装がベージュの軽

内装がベージュ系統の軽を探しています。現在検討しているのは、スズキMRワゴンかラパン、ホンダライフ等なんですが、色々見ているうちに自分の希望がわからなくなってしまいました。以前は興味なかったものでも真剣に考えたり、またその逆だったり。。。そこで何かみなさんの意見が聞きたいのです。勿論内装の話だけでなく、視界の見渡し、運転のしやすさ、手入れのしやすさ等の意見も聞かせてください。他の軽もお勧めがありましたら宜しくお願いします。
とにかくベージュ仕様(白~ベージュ~オレンジ系統。青~グレー~黒系統を除いたもの)を第一条件と考えています。安らぐような、やわらかい可愛い雰囲気が希望です。日産マーチ(普通車ですが)のエクリュみたいなものだと可愛いんですが、ちょっと汚れが心配。。。その辺はどうなんでしょうね。ちなみに日産モコは可愛いのですが割高?なので検討外です。

Aベストアンサー

こんばんはです。
お勧めは絶対にラパんです。
私は、ラパン、MRワゴンをディーラーの展示車を見てきてます。ラパンは室内の開放感が良く、室内のシートなど布製品の触り心地が感動でした。あと運転席から車のボンネットの左右の角がよく見え運転しやすそうでした。

 MRワゴンは室内の開放感がラパンに比べて苦しかったです。座ってみて肩の上からの頭上空間がせまいのです、ドアガラスが近いような気が・・・。

やっぱり高い買い物なので後悔のないように展示車や試乗車を運転したり触ったりして、comuneさん自身の感覚で決めるのが一番だと思いますよ。

Qエクセルのブック内にある複数のシート名を判断してシート内のデータを行ごとに抽出する方法

エクセルブックの中からシート名が"TABLEnnn"(nnnは000から999の間)のものを対象に
データを抽出し、一定の文字列と連結し(SQL文)、同じブックのシートに書き出す処理を考えています。

(DBのTABLEの英語列名、日本語列名、備考欄があるのでそれらを取得・連結し、COMMENT ON文を作成したい)

仕様は以下のとおり考えてみたのですが、

【COMMENT ON作成支援 仕様】

※ブック内の最初のシートに移動

(1) シート名が"TABLEnnn"(nnnは000から999の間)のシート名を取得。
  シート『comment_on』に"--シート名"を書き出す。
  取得できないとき『終了しました』を出力し終了。

(2) (1)のシート内のA列の値が"項目名称"の行に移動。

(3) 現在位置の行で列値が"備考"の列番号を取得。

(4) 現在行の次の行から、A列の値、B列の値(1~60byte)、(3)の列の値(1~1000byte)を取得。
  ※(3)の列の値の改行コードはSPACEに置き換える。

(5) (1)、(4)で取得した各値を用いて
  COMMENT△ON△COLUMN△(1)の[シート名].(4)の[A列の値]△'(4)の[B列の値]:(4)の[(3)の列の値]';
  となるよう文(SQL文)を作成する。
  ※△はスペース一桁

(6) (5)の値をシート『comment_on』のデータのある最後の行の次の行に書き出す。

(7) (1)のシートのA列にデータがなくなるまで(4)~(6)を実行する。

(8) シート『comment_on』にNULL行を追加し、次のシートに移り、(1)~(7)を実行。


"項目名称"の行番号、"備考"の列番号が一定でなく、シート名も関係ないものが多く、
(7)に関係するレコード数(行数)も一定でないのでどうしたものかわかりかねています。
できるかどうかも含めてなにかお分かりになる方、よろしくお願いします。

エクセルブックの中からシート名が"TABLEnnn"(nnnは000から999の間)のものを対象に
データを抽出し、一定の文字列と連結し(SQL文)、同じブックのシートに書き出す処理を考えています。

(DBのTABLEの英語列名、日本語列名、備考欄があるのでそれらを取得・連結し、COMMENT ON文を作成したい)

仕様は以下のとおり考えてみたのですが、

【COMMENT ON作成支援 仕様】

※ブック内の最初のシートに移動

(1) シート名が"TABLEnnn"(nnnは000から999の間)のシート名を取得。
  シート『comment_on』に...続きを読む

Aベストアンサー

出来るかという問いならVBAで可能だと思います。

> ※ブック内の最初のシートに移動

これは複数シートがあるブックの全シートを対象に調査するなら不要でしょう。

> (1) シート名が"TABLEnnn"(nnnは000から999の間)のシート名を取得。
>   シート『comment_on』に"--シート名"を書き出す。
>   取得できないとき『終了しました』を出力し終了。

これはループしながらシート名を判定させれば良いと思います。
判定をどこまでの基準でやる必要があるかもありますが、「"TABLE"で始まるシート」くらいで良ければ、

Sub Test()
Dim ws As Worksheet, Cnt As Integer
Cnt = 0
For Each ws In Worksheets
 If ws.Name Like "TABLE*" Then
  Cnt = Cnt + 1
  '処理
  MsgBox ws.Name > 例
 End If
Next ws
If Cnt = 0 Then MsgBox "ない"
End Sub

> (2) (1)のシート内のA列の値が"項目名称"の行に移動。

Findメソッドで探し、Rowの値を取得します。

> (3) 現在位置の行で列値が"備考"の列番号を取得。

上記の Row を元にして、Findメソッドで探し、Columnの値を取得します。

> (4) 現在行の次の行から、A列の値、B列の値(1~60byte)、(3)の列の値(1~1000byte)を取得。
>   ※(3)の列の値の改行コードはSPACEに置き換える。

Replaceメソッド等を使って vbLf(又は vbCrLf?) を " " に置き換えれば良いと思います。

> (5) (1)、(4)で取得した各値を用いて
>   COMMENT△ON△COLUMN△(1)の[シート名].(4)の[A列の値]△> (4)の[B列の値]:(4)の[(3)の列の値]> ;
>   となるよう文(SQL文)を作成する。
> ※△はスペース一桁

&で繋げて変数にでも代入すればOKです。

> (6) (5)の値をシート『comment_on』のデータのある最後の行の次の行に書き出す。

Range("A65536").End(xlup).Row + 1 で最終行を判定出来ます。

> (7) (1)のシートのA列にデータがなくなるまで(4)~(6)を実行する。

空白まで上記をループさせれば良いですね。

> (8) シート『comment_on』にNULL行を追加し、次のシートに移り、(1)~(7)を実行。

追加というのが判りませんが、End(xlup).Rowで最終行が判るので +2 の行から次の書込みを開始すれば良いでしょう。

出来るかという問いならVBAで可能だと思います。

> ※ブック内の最初のシートに移動

これは複数シートがあるブックの全シートを対象に調査するなら不要でしょう。

> (1) シート名が"TABLEnnn"(nnnは000から999の間)のシート名を取得。
>   シート『comment_on』に"--シート名"を書き出す。
>   取得できないとき『終了しました』を出力し終了。

これはループしながらシート名を判定させれば良いと思います。
判定をどこまでの基準でやる必要があるかもありますが、「"TABLE"で始まるシート」く...続きを読む

Q車の内装の合皮補修内装の合皮部分が汚れていて、内装を拭くシートで擦ったら、合皮は黒なのですが、擦っ

車の内装の合皮補修
内装の合皮部分が汚れていて、内装を拭くシートで擦ったら、合皮は黒なのですが、擦った部分が少し白きなってしまいました…
自分で補修したいと考えてますが、何か良い補修クリームみたいな物はないでしょうか?
傷は付いていません、擦りすぎで少し白くなってしまったのです…
良い物があれば、教えて下さい。
お願いします。

Aベストアンサー

多少ツヤ質感差は出てしまいますが、革靴用の”乳化性クリーム”黒を少量薄く塗って乾拭きすれば良いです。
WAX系の靴墨と間違えない様にしてください。
合成皮革の汚れを落とす場合、車用の内装クリーナーだとアルコール系の溶剤が入っていることがあるのでお勧めしません。
薄めた中性洗剤を含ませて絞ったタオルで拭くか、革靴用の汚れ落とし用クリーナーで拭くのが良いです。

QExcelの改ページ 同シート内で複数の改ページの設定

同じシート内で多くの改ページを設定しなければならない場合
1ページ毎に設定していかないといけないのでしょうか?
それとも改ページしたいデータで並び替えて、同データのある行で改ページを分割していくのは可能でしょうか?

たとえばA列に上から111112223333344455555とある場合に自動的に1と2の間、2と3の間、3と4の間、4と5の間にそれぞれ自動的に改ページを入れたいのですが・・・

Aベストアンサー

マクロなら入力している値が変わったところに「改ページ」を挿入することが可能です。
「マクロはNG」なら手作業で1カ所ずつ挿入する必要があります。「プレビュー」→「改ページプレビュー」を利用すれば、改ページ位置の変更を、多少、楽に操作できるかもしれませんが、行数が多いならこの方法でも大変だと思います。

A列の値が変わったら改ページを挿入するマクロのサンプルは以下になります。
以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュール」で表示される画面に貼り付けて下さい。マクロの実行はワークシート画面に戻ってALT+F8でマクロ一覧を開き、マクロ名を選択して「実行」ボタンです。

Sub Macro4()
Const col As String = "A" '改ページを判断するデータの列名
Dim idx As Long
Dim sv
sv = Cells(1, col).Value
For idx = 1 To Cells(65536, col).End(xlUp).Row
  If Cells(idx, col).Value <> sv Then
    ActiveSheet.HPageBreaks.Add Before:=Rows(idx)
    sv = Cells(idx, col).Value
  End If
Next idx
End Sub

でも実際のシートはそんなに単純ではないと思います。質問文に具体的な指示がないので、100%期待に添えるとは思いませんが、「ご参考まで」にどうぞ。
なおマクロの実行結果は「UNDO」で戻せませんので試しに実行するなら、シートは必ず保存しておいて、元に戻せるようにしておいてください。

マクロなら入力している値が変わったところに「改ページ」を挿入することが可能です。
「マクロはNG」なら手作業で1カ所ずつ挿入する必要があります。「プレビュー」→「改ページプレビュー」を利用すれば、改ページ位置の変更を、多少、楽に操作できるかもしれませんが、行数が多いならこの方法でも大変だと思います。

A列の値が変わったら改ページを挿入するマクロのサンプルは以下になります。
以下のマクロをALT+F11でVBE画面を開き、左上のVBA Projectでシート名を右クリックし「挿入」→「標準モジュー...続きを読む


人気Q&Aランキング

おすすめ情報