AKB48の推しメンをセンターにできちゃうかもしれない!? >>

Excelでデータを入力していますが、1ページあたりの行数を11行に固定したいと思います。
改ページだと途中にデータが増えた場合、変な所での改行されてしまうので別の方法を教えてください。

よろしくお願いします。

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

A 回答 (5件)

用紙サイズはどのようにお考えですか


A5横にして、A4用紙を半分にカットして使用

用紙サイズと行間、余白調整の組み合わ
    • good
    • 3

表示(V)を改ページプレビュー(P)にします


セルを12行に移動し、挿入(I)→改ページ(B)にします。
11行目の下に青い線が引かれますが、これが改ページの位置です。
同様に、
セルを23行→34行→45行→ と繰り返せば11行毎の改ページになります。
こんな方法でどうでしょうか?
    • good
    • 3
この回答へのお礼

回答ありがとうございます。

その方法で作業していたのですが、1~11行目までの間に行を挿入する必要が出てきました。
挿入したりしなかったりでページごとの行数が変わってきてしまったので、設定としてできないかと質問した次第です。

お礼日時:2006/11/15 08:48

安直ですが、印刷プレビューから下余白位置を11行に上方に調整したら如何でしょうか。

    • good
    • 1
この回答へのお礼

さっそくの回答ありがとうございます。
下の方にも書いたのですが、
データとして人に渡したいため、余白の調整だと相手方に渡したときどうかなぁ、と…。
ありがとうございました。

お礼日時:2006/11/14 17:07

行内の折り返しがないなら


「書式」「行」「高さ」で高さを調節
「ファイル」「ページ設定」「余白」を調節
ですかね。

データベースのアクセスなら、行数をカウントして改ページも可能ですけど...
    • good
    • 0
この回答へのお礼

さっそくの回答ありがとうございます。
余白もかんがえたのですが…。
データとして人に渡したいため、余白の調整だと相手方に渡したときどうかなぁ、と…。
アクセスにした方がすっきりしますかねぇ。

お礼日時:2006/11/14 17:06

上下の余白で調節すればどうでしょう。

    • good
    • 0
この回答へのお礼

さっそくの回答ありがとうございます。
余白もかんがえたのですが…。
データとして人に渡したいため、余白の調整だと相手方に渡したときどうかなぁ、と…。

お礼日時:2006/11/14 17:05

このQ&Aに関連する人気のQ&A

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

このQ&Aを見た人はこんなQ&Aも見ています

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

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

Qエクセル 画面上の行数を調節したい

こんにちは
エクセル2000(Win)で質問なのですが、

2000行程度のデータ入力に使用しているのですが
画面上に6万5000行位(最大行数)まで表示されてしまうため、
スクロールバーが扱いにくかったりして不便を感じています。
単純に行削除をするだけでは、行数自体は減りません。
他のシートは入力行相応の行数なのに、このシートだけなぜかこんなに長くなってしまい困っています。

どうすればよいのか教えていただけるとたいへん助かります。
よろしくおねがいします。

Aベストアンサー

方法は2つあります。

1.2001行から最後の行まで、行単位で削除してから保管をして、改めて、そのファイルを開くと2000行で止まる様になります。

2.2001行から最後の行までを非表示にすれば、解決できます。

Qエクセル シート内で行数を指定する方法

急いでいて他の質問を詳しくチェックしてないので、既出の質問でしたらすみません。

エクセルで表を作るときの質問です。
書式設定で、行の高さを指定するところはありますが、ワードのように行数を指定することはできますか?

高さの入力しかしたことがないので、「この数字だと何行入るかな」といちいち数えながら調整しなくてはならなくて時間がかかってしまいます。

行数指定する方法を教えて下さい。
よろしくお願いします。

Aベストアンサー

フォントのサイズで変わるので難しいですね。
幅の方は標準のフォントに対する文字数で設定なんですが....
現状では「書式」「行」「自動調整」の状態で
Alt+Enterで強制改行を行って、セルの高さを調整するくらいですね。

Qエクセル印刷ページ行数指定

エクセル印刷ページ行数指定
A1:F1000程度のデータがあります。
A4サイズ縦に
1ページ37行で改ページしたいと思います。
1行目はタイトルです。
A:Aの文字データ(半角英数字)の左から2文字目もしくは3文字目が変わると改ページするようにしたいです。
その場合データが1ページ37行に満たない場合でも改ページし37行まで空白(罫線あり)で出力させたいのですが。

Aベストアンサー

先ず罫線無で印刷して、1ページ分の同じピッチの罫線だけのものを重ね打ちします

計算無の印刷
1.1行目のタイトルは、ページレイアウトの印刷タイトルのタイトル行に設定します
2.改ページの挿入は次のマクロを実行します
Sub 改ページ挿入()
Dim A
Dim i, j As Integer
ActiveSheet.ResetAllPageBreaks
j = 0
i = 2
A = Mid(Range("A" & i), 2, 2)
For i = 2 To 3000
j = j + 1
If (j > 37) Or (A <> Mid(Range("A" & i), 2, 2)) Then
Range("A" & i).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
j = 0
A = Mid(Range("A" & i), 2, 2)
End If
Next i
End Sub

先ず罫線無で印刷して、1ページ分の同じピッチの罫線だけのものを重ね打ちします

計算無の印刷
1.1行目のタイトルは、ページレイアウトの印刷タイトルのタイトル行に設定します
2.改ページの挿入は次のマクロを実行します
Sub 改ページ挿入()
Dim A
Dim i, j As Integer
ActiveSheet.ResetAllPageBreaks
j = 0
i = 2
A = Mid(Range("A" & i), 2, 2)
For i = 2 To 3000
j = j + 1
If (j > 37) Or (A <> Mid(Range("A" & i), 2, 2)) Then
Range("A" & i).Se...続きを読む

Qエクセル VBA 印刷改ページ 行数設定

環境:Excel2002です

印刷する行数は毎回異なります

改ページの条件は
(1)行1から10は表題などが設定されているが6から10行を行タイトルに設定する
(2)データ30行毎に改ページする
  
   例:データ数100、行1から10に表題があるので 最終行は110
     ページ設定 1ページ:行1から40
                   行1から10の表題 プラス データ数30(行11~40)
             2ページ:行6から10の行タイトル プラス データ数30(行41~70)
             3ページ:行6から10の行タイトル プラス データ数30(行71~100)
             4ページ:行6から10の行タイトル プラス データ数10(行101~110)

印刷範囲の設定はネット上に多数紹介されていますが
私の設定したい方法は見つけることができませんでした

思考錯誤してみましたが、私のスキルでは無理でした
よろしくご教示願います

Aベストアンサー

ご相談に書かれていることを手順を追って行うと
1.印刷する行数(最終行)を調べる
2.タイトル行を設定する
3.所定の行に改ページを打つ
4.印刷範囲を設定する
5.印刷する
というだけの作業です。


実際には
事前準備:タイトル行を設定する
事前準備:所定の30行ごとに、データの有無に関係なしに改ページを埋めておく
   →挿入メニューの改ページ
マクロの仕事:最終行を調べ、印刷範囲を設定して印刷する

だけで十分です。

作成例:
sub macro1()
 dim LastRow as long
’仮にA列で最終行を調べられるとして
 lastrow = range("A65536").end(xlup).row
’仮にA:G列を印刷するとして
 activesheet.pagesetup.printarea = "$A$1:$G$" & lastrow
 activesheet.printout
end sub



もしも手抜きで何も手を動かして準備とかしたくないというなら

sub macro2()
 dim LastRow as long
 dim r as long
 lastrow = range("A65536").end(xlup).row
 activesheet.resetallpagebreaks
 for r = 41 to lastrow + 1 step 30
  activesheet.hpagebreaks.add before:=cells(r, "A")
 next r
 activesheet.pagesetup.printtitlerows = "$6:$10"
 activesheet.pagesetup.printarea = "$A$1:$G$" & lastrow
 activesheet.printout
end sub

といった具合に、丁寧に書いていけば出来ます。

ご相談に書かれていることを手順を追って行うと
1.印刷する行数(最終行)を調べる
2.タイトル行を設定する
3.所定の行に改ページを打つ
4.印刷範囲を設定する
5.印刷する
というだけの作業です。


実際には
事前準備:タイトル行を設定する
事前準備:所定の30行ごとに、データの有無に関係なしに改ページを埋めておく
   →挿入メニューの改ページ
マクロの仕事:最終行を調べ、印刷範囲を設定して印刷する

だけで十分です。

作成例:
sub macro1()
 dim LastRow as long
’仮にA列で最終行を...続きを読む

QExcelで50行毎に改ページを入れたい

表題を1行入れて1ページに49行となるように改ページを入れたいのですが、どのようなマクロを組めばできますか?
また、行は49行の倍数と成るように印刷範囲を設定しして列は1ページに収まるように設定するにはどうしたらよいか併せて教えていただければ助かります。

例えば、349行 F列まである場合は、縦が7枚×横が1ページとなるように自動で設定したいです。

Aベストアンサー

Sub Macro1()

Dim i As Long
Dim j As Long
Dim k As Long

i = 50
j = ActiveSheet.Cells.SpecialCells(xlLastCell).Row


For k = i + 1 To j Step i
Range("G" & k).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Next k
End Sub

Qエクセル 表を大きく、紙いっぱいに印刷したい

エクセルで表を作りました。
印刷プレビューで確認したところ
用紙に対して表が小さく見栄えがしません。

一つ一ついじればできると思いますが、
簡単に、
用紙いっぱいにフォントも大きくし、表も大きくし、
印刷するやり方はありますか。
教えてください。

Aベストアンサー

CtrlキーとPのキーを同時に押すと「印刷」ダイアログが呼び出せます。その状態でAltキーとWのキーを同時に押すと「印刷プレビュー」が表示されますので、印刷のイメージがつかめます(必ずしもプレビュー通りには印刷されませんが)
印刷プレビュー画面の上にある、設定のボタンを押してあげれば、余白を少なくしたり、拡大縮小印刷をパーセンテージを指定しておこなえたりします。いずれにせよ、プレビューで確認しながら拡大率を決めていけばいいと思います。なお、「拡大縮小印刷」のところに「次のページ数に合わせて印刷をする」というチェックをいれて横1×縦1にしてあげれば自動で拡大縮小印刷ができる場合がありますが、やってみればわかりますが、特に縮小印刷の場合小さくなりすぎたりする場合もあります。

Qエクセルの改ページを行ごとに自動挿入するには?

1000行以上ある表に対して50行ごとに改ページ
したいのですが、行の幅が微妙にまちまちなので
46~53行の間で微妙にずれてしまいます。

任意の固定された行数で改ページを一気に自動挿入
する方法があれば教えてください。今は改ページプレ
ビューを見て微調整をして微妙なズレを直しています。

Aベストアンサー

#1 のmisatoannaさんの内容にかぶってしまいますが、

>行の幅が微妙にまちまちなので46~53行の間で微妙にずれてしまいます。

50行以上に「自動改ページ」がつけられる場合はよいのですが、それ以下の場合は、「手動改ページ」を入れると、2行なり3行だけのページが出来てしまいますが、それでも良いのですか?2つのマクロがあります。

1つは、手動改ページを入れるマクロで、もう1つは、それが正しく入っているか調べるマクロです。

'--------------------------------------
Sub PageBreak_enter()
'手動改ページを入れるマクロ
Dim Rng As Range, i As Long
With ActiveSheet
'マクロを実行する前に、なるべく、印刷範囲はユーザーで設定してください。
 If .PageSetup.PrintArea = "" Then
   .PageSetup.PrintArea = .UsedRange.Address
End If
  .ResetAllPageBreaks
Set Rng = Range(.PageSetup.PrintArea)
For i = 50 To Rng.Rows.Count Step 50
   .Cells(i + 1, "A").PageBreak = xlPageBreakManual
Next i
End With
 Set Rng = Nothing
End Sub

'--------------------------------------
Sub CheckMPageBreak()
'正しく、50行目に改ページが入っているか調べるマクロ
Dim TotalPage As Integer
Dim p As Long
Dim i As Integer
 TotalPage = Application.ExecuteExcel4Macro("COLUMNS(GET.DOCUMENT(64))")
For i = 1 To TotalPage - 1
 p = Application.ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64),1, " & i & ")")
 If p Mod 50 <> 1 Then
   MsgBox p & " ページ目が、違います。", 64
 End If
Next i
End Sub
'--------------------------------------

#1 のmisatoannaさんの内容にかぶってしまいますが、

>行の幅が微妙にまちまちなので46~53行の間で微妙にずれてしまいます。

50行以上に「自動改ページ」がつけられる場合はよいのですが、それ以下の場合は、「手動改ページ」を入れると、2行なり3行だけのページが出来てしまいますが、それでも良いのですか?2つのマクロがあります。

1つは、手動改ページを入れるマクロで、もう1つは、それが正しく入っているか調べるマクロです。

'--------------------------------------
Sub PageBreak_e...続きを読む

Q改ページの2ページ目の作り方

エクセルで、改ページプレビューを押すと、
青い線が出てきて印刷範囲を指定できますよね?
あれでA4一枚で印刷できる大きさなんですけど
2枚に分けたい時はどうすればいいのでしょうか?
増やそうとしても一枚目の範囲が大きくなるだけ
なんです。
質問の仕方がうまくなくて申し訳ないです。

Aベストアンサー

上下に分けたい場合、分割したい行の行番号を右クリックして改ページ挿入。
左右に分けたい場合、分割したい列の列番号を右クリックして改ページ挿入。

QEXCEL 改ページ自動挿入方法を教えてください。

EXCELで「改ページ」をデータが変る都度 自動的に挿入する方法はありますか?
ハンドでいちいち設定するのが非常に手間です。
ご存知の方、是非教えてください。
例 <データ>
111
111 ←この行で改ページ自動挿入
222
222 ←この行で改ページ自動挿入
333 ←この行で改ページ自動挿入
444 ←この行で改ページ自動挿入

Aベストアンサー

関数式では、セルの挿入、削除、改行の挿入、削除などは出来ないようです。
VBAになれば、オフラインバッチ処理の定番である、「キー
(例えば所属部)が変われば、改ページする」のは,しょっちゅう行われることです。サンプルを載せます。
Sub test01()
ma = Mid(Cells(1, 1), 1, 1)
For i = 1 To 10
  n = Cells(i, 1).Value
  a = Mid(n, 1, 1)
 If a <> ma Then
  Worksheets("sheet1").Rows(i).PageBreak = True
 End If
p01:
ma = a
Next i
End Sub
マクロの記録はやや、ややこしいですが骨子は上記の通り。

Qエクセルで打ち込んだ数字を自動で別シートに表示したい

エクセルでセルに打ち込んだ数字を自動で別シートに表示できる方法があれば、教えてください。

例えば、シート1のC1に5を打ち込んだら、シート2のD2にシート1で打ち込んだ5が自動で表示される。

また1列すべてを自動で表示させる場合、一つのセルの時と違いがありましたら教えてください。よろしくお願いします。

Aベストアンサー

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コピー&リンク貼り付けを使うと便利です。

例)例)シート1のC1~C5に何かを入力したら、
  シート2のD2~D7にシート1で打ち込んだものが自動で表示される

  シート1にあるコピー元のセルを範囲選択して、
  シート2のD2の上で「右クリック」⇒「形式を選択して貼り付け」
  をクリックします。

  そして出てきた小さな画面の左下にある「リンク貼り付け」という
  ボタンをクリックすると完成です。
  試してみてください。。

  念のためにリンク貼り付けを図解しているURLを載せておきます。
  参考にしてみてくださいね。。
  http://www.geocities.jp/office_inoue/excel/eq21.htm

こんばんは。
入力したセルの値を合計とかでなくて、
純粋に別のシートに自動的に表示したいのであれば、
以下の方法があります。

1.1つのセルだけの場合
例)シート1のC1に5を打ち込んだら、
  シート2のD2にシート1で打ち込んだ5が自動で表示される

⇒シート2のD2のセルをアクティブにして「=」を入力
 した後、シート1のC1をクリックする。
 そうするとD2のセルに「=Sheet1!C1」と表示され、値が自動的に
 表示されるようになります。

2.1列全てコピーしたい場合。
  コ...続きを読む


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング