出産前後の痔にはご注意!

エクセル2000です。

表があって、罫線が引かれています。
その表の一部のセルが縦にいくつか結合されています。

その、結合したセルが改ページにかかると、
そこはセルの途中ですから罫線は引かれませんが、
印刷時に自動的に罫線が引かれるようにしたいのです。
(ページの一番下)

どのようにすればよいでしょうか。

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

A 回答 (1件)

残念ながら、セルの罫線機能で、一つの表のページがまたがるときの


>印刷時に自動的に罫線が引かれるように
は無理かと思います。

どうしてもということであれば、オートシェイプの直線を描いてそれに換えるか、ですね。
その場合、印刷のプレビューで位置をよく確かめて、というようになるでしょうが。
    • good
    • 0
この回答へのお礼

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

お礼日時:2003/05/15 22:02

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

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

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

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

Qエクセル印刷で上下の結合セルが別ページにならない方法?

エクセル2000です。
一枚のシートに表が複数あります。
表中のセルはすべて数式が入っています。
A列は続き番号がふってあります。
B列~E列は上下のセルが結合しています。(2行分)
F列は結合していません。
G列は上下の結合あります。(2行分)

このような様式の表が、同一シートに1行あけて上から下へ続いています。
しかも、計算結果により表中の行が空白になる場合がよくあります。
その場合、は表中の空白行は非表示になるようにマクロで設定しています。

このシートを印刷した場合、2行を上下で結合したセルが、別ページに分かれてしまうことがよくあります。計算結果で表示がかわるので改ページを事前に入れておけません。

結合セルがページで分割されないようにするにはどうしたらよいでしょうか?

Aベストアンサー

> Application.ScreenUpdating = Trueがはいっていましたが、画面の更新を
> とめていると水平改ページ調整サブプロシージャは作動しないのでしょうか?

単に Application.ScreenUpdating = False の間違いです(´Д⊂

> 再帰というのがいまひとつよくわかりませんでしたが...

【再帰呼び出し】IT用語辞典 e-Words
http://e-words.jp/w/E5868DE5B8B0E591BCE381B3E587BAE38197.html

今回は水平改ページを調整したら、調整前の HPageBreaks コレクションを見て
いても役に立たないのが分かりました。つまり、調整する度に再度頭から水平
改ページを見ていかなくてはなりません。

そのため、全ての水平改ページが調整できるまでサブプロシージャの中で再度
自分自身を呼び出しています。再帰呼び出しは安易につかうと、無限ループに
なりますが、今回のコードでは、blnFlag というフラグが立たなければ終了す
るようになっています。

サブプロシージャの引数 Optional ByVal P As Long の役割は、上からどの
ページまで既に調整したか、、を渡しています。再帰呼び出しされる度に、
また頭から水平改ページを調整し直したのでは効率が悪いので、

 If lngCnt > P Then

として既に調整が終わったページについては空ループさせ、処理速度の向上を
図っています。


> Optional ByVal P As Long?

Optional キーワードは「省略可能な引数」であることを定義しています。
ByVal は「値渡しの引数」であることを定義しています。

【値渡し(引数)IT用語辞典 e-Words
http://e-words.jp/w/E5BC95E695B0.html

> Application.ScreenUpdating = Trueがはいっていましたが、画面の更新を
> とめていると水平改ページ調整サブプロシージャは作動しないのでしょうか?

単に Application.ScreenUpdating = False の間違いです(´Д⊂

> 再帰というのがいまひとつよくわかりませんでしたが...

【再帰呼び出し】IT用語辞典 e-Words
http://e-words.jp/w/E5868DE5B8B0E591BCE381B3E587BAE38197.html

今回は水平改ページを調整したら、調整前の HPageBreaks コレクションを見て
いても役に立たないのが分かりました。つ...続きを読む

Qエクセル、ページをまたがった際の罫線

エクセルの表で罫線(横線)を普通に引いてるのですが、
印刷した際ページが数枚に及ぶとき、後のページ1番上に罫線が引かれてません。

つまり1枚目最後の罫線(横線)は引かれてますが
2枚目最初の罫線(横線)が引かれてないのです。
2枚目最後と3枚目最初、3枚目最後と4枚目最初・・と同じことが言えます。

考えたらページをまたがろうと罫線は1本しか引いてないので当然なのでしょうが、
後のページ最上部に罫線を引くやり方はあるでしょうか?
お手数ですが、ご存知の方教えてください。

Aベストアンサー

通常エクセルで罫線を引くと下にひかれます。
つまりそのセルの下には罫線がありますが、そのすぐ下のセルの上には線がないんです。
なので、線を引いたセルの下のセルの書式設定で、上に罫線を引けば良いでしょう。

Qexcel印刷で改頁をする時に罫線を引きたいのですが、良い方法ありますか?

excel印刷で20枚ほど印刷しています。

大分類・中分類・明細と言った感じの一覧表です。

大分類がA列で100行ほどを枠線で囲っています。中分類がB列で20行程を枠線で囲ってタイトルを入れています。
明細は一行づつで、罫線で囲っています。
セル結合はしていません。

そこで、印刷すると最終行の大分類・中分類で、下部線が印刷されない頁が出てきます。明細列は印刷されます。
(罫線自体excelに入ってないですから当然ですが。)

印刷する為に、罫線を入力すると画面での見た目が良くない為入れたくないです。

そこで、改頁前の最終行に罫線を印刷するような設定をしたいのですが、良い方法は無いでしょうか?
<出来ればマクロは使いたくないです。>

宜しくお願い致します。

Aベストアンサー

印刷プレビューからページ設定を選択し、シートタブの中の枠線をチェックしてみてください。多分お望みの状態になると思います。一ページの最後の行と2ページの最初の行に罫線が入ります。

QExcel:ページ毎に必ず罫線の最下線を印刷したい

いつもofficeソフトでアドバイスを頂き助かっています。
セルを結合した場合など、そのページの下や次のページ頭に罫線が無いため、
表の頭や下が切れている状態になってしまう場合があると思います。
頭ならタイトル行を設定したりすることで、かならず罫線がある状態にできますが
下の場合かならず罫線が入って印刷されるように設定する方法があるのでしょうか?
御存知の方がいらっしゃったら教えていただきたいのですが。
よろしくお願いします。

Aベストアンサー

>下の場合かならず罫線が入って印刷されるように設定する方法があるのでしょうか

不明です。
私なら、切りの良い場所に事前に改ページを挿入します。
改ページプレビューで表示すればページ毎の区切りが確認できますのでその方法では駄目なのでしょうか?

Qエクセルの罫線

エクセルでセルの書式設定で罫線を引いたにも
係らず、印刷すると罫線がでていません。
複数ページに渡る一覧表を作成しているのですが
一部のページの表の一番下の罫線が印刷されないのです(-ω-;)

セルの書式設定を後で確認するとちゃんと罫線がひかれています。
これはどういう原因が考えられますか?
プレビューを見ると罫線が消えています。
でも書式設定では引いてあります
なぜなんでしょうーーーーーーーーーー(┰_┰)

Aベストアンサー

複数ページにまたがって表の罫線がある場合、ページの境の直上にあるセルを選んで「セルの書式設定」→「罫線」で下部分に罫線があっても、いったん消してから再度引き直すと印刷プレビューでも表示されます。
私も以前この現象に悩んでいましたが、「ある罫線がどのセルに対して引かれたものか」で表示が変わってしまうのです。クセと思って割り切っています。

QExcelの改ページプレビューの実線と破線

Excelの改ページプレビューで、
ページの境(改ページ)が実線になっているときと破線になっていることがあります。

デフォルトで自動に設定されたものが破線で、自分で動かすと実線になるようです。

実線の改ページをやめて、すべて破線にするにはどうすればよいですか?


Excel2000

Aベストアンサー

q0716qさん、こんにちは。

>デフォルトで自動に設定されたものが破線で、
>自分で動かすと実線になるようです。

そのようですね。

>実線の改ページをやめて、すべて破線にするにはどうすればよいですか?

改ページプレビューの状態で、
シート上で右クリックして、「すべての改ページを解除」としてみるのはどうでしょうか。

QEXCEL、マクロ-改ページ行番号の取得方法を教えてください

EXCELで作成した表を印刷したいのですが、表が縦長で複数ページにわたります。
そこで各ページの下端にそれぞれ罫線を挿入するマクロを書きたいのですが、
改ページ位置の取得方法がわかりません。各ページの上端行でも下端行でも良いので
行番号を取得する方法はないものでしょうか?

どなたかご教授願います。

マクロ全体としては下記を考えています。

1.データの下端行の取得
2.印刷範囲の設定(横1ページ×縦複数ページ)
3.最初の改ページ位置の取得
4.ページ下端セル行の下に罫線を入れる
5.次の改ページ位置の取得
6.以下、データ最下端行まで繰り返し

(各行のセルの高さは一定ではないです。)

Aベストアンサー

難しく考えず、フッターを使ったらいかがでしょう。
フッターの1行目をスペースで連打し、フォントの設定で下線を選びます。
これで下線が表示され、丁度データと境になるのではないですか?

どうしても改ページ位置取得なら、HPageBreakオブジェクトのLocationプロパティを使ってみたらどうでしょう。
HPageBreaks (HPageBreakオブジェクトのコレクション)
ActiveSheet.HPageBreaks.Count (改ページ総数)
ActiveSheet.HPageBreaks(1).Location.Row (一番目の改ページの行)
Location.Rowで改ページの行が分ります。

QEXCEL VBAで計算値を四捨五入、切り上げ、切捨てする方法

ネットで探してみたのですが、計算結果を四捨五入して特定のセルを
返すにはどうしたらいいのでしょうか?

Sub hokangosa()

Dim ZPS As Double
Dim ZPOS As Double
Dim DMN As Double
MsgBox (" >>> 補間誤差自動計算 <<< ")
MsgBox (" >>> 初期値入力します <<< ")
ZPS = InputBox(">>> ステップを入力してください<<<")
ZPOS = Sheet1.Cells(22, 4).Value
DMN = ZPOS / ZPS
Sheet1.Cells(23, 6).Value = DMN
End Sub

ここでDMNの値を四捨五入したいです。

またこれとは別に切上げ、切捨ても教えていただけるとありがたいです。

Aベストアンサー

DMN = Application.WorksheetFunction.Round(ZPOS / ZPS, 0)
で、四捨五入
DMN = Application.RoundDown(ZPOS / ZPS, 0)
で切り捨て
DMN = Application.RoundUp(ZPOS / ZPS, 0)
で切り上げです。

引数で、対象桁を変更できます。

QDATE型変数を初期化する方法

他の変数みたいに
ゼロや""では初期化は出来ないのでしょうか?

Aベストアンサー

初期化とはプログラムループに入る前にある値にプログラムコーディングで設定することですよね。
下記によると、「出来る」といえるのではないですか。
それとも例えば、INISIALIZE関数やメソッドがあるか
と言う質問ですか。
VB(VBAですか。そこをはっきり書かないと。)で
下記サンプルプログラムをやって見ました。
Private Sub Form_Click()
Dim d As Date
d = "0"
Form1.Print "ここを通りました"
Form1.Print d
Form1.Print Format(d, "yy/mm/dd")
MsgBox Year(d)
MsgBox Month(d)
MsgBox Day(d)
End Sub
Form1には00:00:00、89/12/30が表示され、MSGBOXでは1899、12,30(31で無い)と表示されました。
こう言うことはエクセルの日付に似ており、シリアル値
のスタート日を表示しているところから、その値でセットされているはず。したがってd+1とか整数的演算が可能と
言うことであり、表示する時だけyyyy/mm/ddほか書式に
したがってVBが表示してくれると思う。
ただこの利用法は思いつかないが。
""に付いてはやっていませんが。

初期化とはプログラムループに入る前にある値にプログラムコーディングで設定することですよね。
下記によると、「出来る」といえるのではないですか。
それとも例えば、INISIALIZE関数やメソッドがあるか
と言う質問ですか。
VB(VBAですか。そこをはっきり書かないと。)で
下記サンプルプログラムをやって見ました。
Private Sub Form_Click()
Dim d As Date
d = "0"
Form1.Print "ここを通りました"
Form1.Print d
Form1.Print Format(d, "yy/mm/dd")
MsgBox Year(d)
MsgBox Month(d)
MsgBox Da...続きを読む

Qワード表でページをまたがるセルの罫線を消した

数ページにわたる表を作成しており、1列目をセルの結合して、1つのセルとしてるのでページの境の線はでないようにしたいのですが、できません。
例えば、1ページ目の最後の線と2ページ目の最初の線をなくしたいのですが、そのままの設定だと罫線がでてしまいます。
なにか消すいい方法はないでしょうか?
宜しくお願いします。

Aベストアンサー

例えば1ページ目の最後のセルと2ページ目の最初のセルが結合されている場合
1)結合セルの上下のセルを含めて選択。
2)そこで右クリック→「線種とページ罫線と網かけの設定」で「罫線」のプレビューの真ん中の罫線をクリック、罫線が消えたところでOK
3)結合セルの境界の線と一緒にその上下の線も消えるので、結合セルの上のセルを選択して下の線を、下のセルを選択して上の線をそれぞれ引き直す。
というやり方でできるかと思いますけど、いかがでしょうか。


人気Q&Aランキング