こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

エクセルの罫線の一部が消える

Sheet1の
B1:G3に文書名等、
B4:G4にタイトル、
B5:G104にデータが入っています。
B列の値でフィルターをかけてB5:G104をSheet2に貼り付けています。

Sheet2は
B1:G3はヘッダー(フッターにはページを入れています)
B4:G4にタイトル、
B5:G104にデータが貼り付けられます。
ただ、フィルターをかけますから、データが0行の時もあれば100行の時もあります。

これでSheet2を印刷すると、Sheet2のタイトル行のすぐ下、G5の上の線が表示(印刷)されません。
印刷はデータの最終行までに設定しています。
全部印刷した場合には4ページまでいきますが、すべてのページでタイトル行のすぐ下の罫線が
欠落します。

理由が分かりません。
要領の悪い説明で分かりにくいと思いますが、どなたか教えていただけないでしょうか。

よろしくお願いします。

投稿日時 - 2012-08-30 22:12:57

QNo.7672316

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

>Sheet2のタイトル行のすぐ下、G5の上の線が表示(印刷)されません。
問題の罫線は、G5行の上側に引くのではなく
タイトル行を選択して下側に引いてみては

投稿日時 - 2012-08-31 14:15:58

補足

watabe007さん、ありがとうございます。
返事が遅くなって申し訳ございません。

最終行が常に変化しますので、印刷のマクロのなかに、

Range("G36,G68,G100").Select
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With

を入れてみました。

すると、付け足した罫線が最終行だと誤解?されるのか、
G100の罫線までいつも印刷してしまいます。

解決の方法はないのでしょうか。

よろしくお願いします。

投稿日時 - 2012-09-01 00:32:12

あなたにオススメの質問