No.5ベストアンサー
- 回答日時:
はい^^ とりあえずは、自分の自由になるファイル以外VBAは使わない方が
賢明です、他人のものに組み込むと、大変なことになります^^
ついでに もう一案ですが、
もし、ページ区切りが何行毎か決まっていて わかっていれば、条件付き書式で
罫線を 引くことも出来ます。
対象のセルの範囲を全て選択して、
条件付き書式で
「数式が」にして 式の欄に =MOD(ROW(),40)=38 として 書式の設定で
下罫線を設定すればOKです、
これで 1ページ目は38行、それ以降は40行ごと(38行,78,118,158,、、、)
に罫線が引かれます。 数値は、適当に変えてみてください。
蛇足でしたが、参考まで^^
この回答への補足
たくさんご親切にありがとうございます!!
そうですよね。。。
ですが、こちらの案も凄いです!こんな事ができるのですね!
ちょっと考えて・・・応用すればできるかもしれません。。。
やってみたらまたご報告させていただきます!
条件付き書式で、希望通りの動きになりました!!!!
ありがとうございます!!!!
ただひとつ疑問が・・・。
条件付き書式を設定した後保存すると、改ページの設定が勝手に変わってしまいます。。。
保存すると何故か何かデータが入ったように右に1行増えてしまい、
例えば通常2ページ分のデータでもプレビューすると4ページ(右に2ページ分の空のページ)になってしまうのです。
調べてもよくわからないので・・・また別に質問しようと思います(^^;
本当にありがとうございました!!
No.4
- 回答日時:
マクロでなら 出来ると思いますが、、、
改ページの位置を検出して、その行の上の行に罫線を引けばいいと思います。
下の例ではA列(1列目)で最終行を検出して、最終行までの改ページの上の行に
中太の罫線をA列からz列(26列目)まで下罫線を引きます。
最終行を見つける列(この例ではA列)と
シート名や罫線の太さ、罫線の列は 環境に合わせて修正してください。
標準モジュールのOption Explicitの直下に以下を貼り付けてください
Dim 改頁行 As Long
Dim 最終行 As Long
Dim シート名 As String
Dim I As Long
Sub 改頁設定()
シート名 = "Sheet1" '←実際のシート名を
If ActiveSheet.Name <> シート名 Then Exit Sub
最終行 = Cells(Rows.Count, 1).End(xlUp).Row 'データ(A列)の最終行
Application.ScreenUpdating = False
For I = 1 To ActiveSheet.HPageBreaks.Count
改頁行 = ActiveSheet.HPageBreaks(I).Location.Row
If 改頁行 > 最終行 Then: Exit For
' A列(1)からZ列まで下罫線を引く
With Range(Cells(改頁行 - 1, 1), Cells(改頁行 - 1, 26)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous '←実線、破線=xlDash、なし=xlLineStyleNone
.Weight = xlMedium '←中線、極細=xlHairline、細=xlThin、太=xlThick
End With
Next
With Range(Cells(最終行, 1), Cells(最終行, 26)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous '←実線、破線=xlDash、なし=xlLineStyleNone
.Weight = xlMedium '←中線、極細=xlHairline、細=xlThin、太=xlThick
End With
Application.ScreenUpdating = True
End Sub
'-------------------End Subまで貼り付け
以下は引いた罫線を消すためのものです。
引いた罫線と同じ太さの罫線を見つけて消します。
・・・).Weight = xlMedium Then の xlMediumは上記の例で引いたものと
同じにします。
Sub 罫線削除()
シート名 = "Sheet1" '←実際のシート名を
If ActiveSheet.Name <> シート名 Then Exit Sub
最終行 = Cells(Rows.Count, 1).End(xlUp).Row 'データ(A列)の最終行
Application.ScreenUpdating = False
For I = 1 To 最終行
If Range(Cells(I, 1), Cells(I, 26)). _
Borders(xlEdgeBottom).Weight = xlMedium Then
Range(Cells(I, 1), Cells(I - 1, 26)). _
Borders(xlEdgeBottom).LineStyle = xlLineStyleNone
End If
Next
Application.ScreenUpdating = True
End Sub
どちらも標準モジュールにコピーしてください。
上の「改頁設定」はThisWorkbookのモジュールに以下をコピーすると、印刷または
プレビューする時に自動で走ります。先に印刷プレビューを見てください
Private Sub Workbook_BeforePrint(Cancel As Boolean)
改頁設定 ' 印刷前に改頁設定へ飛ぶ
End Sub
消す方は、印刷が終わったことを検知出来ないので どうしても手動で起動になるでしょう。
この回答への補足
ご回答ありがとうございます!!
マクロは全く知識がないため解読すらできないのですが・・・この方法で可能か試してみます。
ただ今回人の手伝いで行っているものでして、それにマクロを使って良いかわからないのです・・・。
せっかく教えていただいたのに使えなかったらすみません。。。
でもやはりマクロを使わないと思い通りのことは実現できなさそうなので、検討してみたいと思います。
No.3
- 回答日時:
改ページプレビューの青い点線の上に、線を引く事により、
ご希望の状態になると思います。
1本、線をShft+Altを押しながら引きます。Altを押しながら引くと
グリッド線の上にぴったり乗ります。
線種・色を任意にして下さい。 その後、この線を選択し、右クリック。
「オートシェイプの書式設定」→「プロパティ」の「オブジェクトの位置関係」
「セルに合わせて移動やサイズ変更をしない」にチェックします。
これで、行の追加や削除をしても同じ位置に線が乗ります。
他の線はCtrlを押しながらドラッグ&ドラッグでコピーして下さい。ウィンドウを
縮小して作業すると楽です。
印刷プレビューで確認し、用紙からはみ出るようでしたら、Ctrlを押しながら
カーソルキーで微調整して下さい。多少青い線の上に配置するとうまく印刷
されます。
お礼が遅くなり申し訳ありません。。。
No.5の方の方法でうまくいきました!
図の線もよく使いますので勉強になりました!
ありがとうございました!
No.2
- 回答日時:
「図形」の「直線」ではだめでしょうか。
応急的な方法で、データの追加や削除があると無理ですが。
ちょうどページの最下端に乗るように引き、印刷プレビューを見ながら、
良い位置に配置します。データが最終行まで入っている場合は、余白を
減らし、1行挿入し、この行高を狭くします。この行に乗るように配置すれば
印刷できると思います。
最終ページのデータが少なければ、ページの最後の方のセルに、1つだけ
何か文字を入力して、色を「白」にすれば、ここまでデータが入った事になり、
線が表示されます。
この回答への補足
ご回答ありがとうございます!!
なるほど!「図形」は思いつきませんでした。
実はデータは可変でして、最終ページにデータが少ない場合はページ最後の方には何も表示させたくないのです。。
なので、ちょうど改ページプレビューで表示される青い線上にだけ線が表示されるようにしたいのです。
またしても説明不足で申し訳ありません。。。
無理でしょうか。。。
ですが、↑の方法試してみます!
No.1
- 回答日時:
無理やりですが、「ページ設定」の「フッター編集」に「―」を幅の分入力すればでると思います。
「―――――――」こんな感じで。「左側」「中央」「右側」のどれかに一行分入れればよいと思います。
「―」はキーボードの文字ではなく、文字一覧から入力したものです。
細かい設定はできないかもしれませんが、とりあえずでると思います。
この回答への補足
早々のご回答ありがとうございます!
フッターに「_」を設定したら思っていたような表示にできました。
ですが、実は最後のページは1ページ分のデータがなく、フッターに設定した「_」が変に表示されてしまいます。
説明不足で申し訳ありません。。。
ちょうど改ページプレビューで見える部分にだけ表示させたいのですが、やはり難しいでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- プリンタ・スキャナー Excelの罫線印刷 4 2023/05/18 06:53
- Excel(エクセル) 【Excel】エクセルの1シートが2枚に分割されてしまうので印刷プレビューを押して閉 4 2022/12/13 13:12
- Visual Basic(VBA) 改ページ 2 2023/03/10 21:29
- その他(パソコン・スマホ・電化製品) Webページ印刷時にヘッダー・フッターをつけたい 1 2022/04/25 21:35
- Word(ワード) Word 段落罫線の上下のスペースを広げるには 3 2023/08/04 10:52
- Windows 10 エクセルの罫線がパワポに貼り付けると見えなくなる。 3 2022/12/27 15:23
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- その他(IT・Webサービス) word2013 で罫線 便箋のように罫線を沢山書きたいのですが、調べても、1本しか引けません。 い 3 2022/06/26 19:36
- その他(クラウドサービス・オンラインストレージ) Googleのスプレッドシートで罫線を画像の前面に出す事は出来ないのでしょうか? 2 2022/05/01 05:31
- マナー・文例 便箋の上のページ番号を書くところは空白でも良いのでしょうか? 2 2022/03/25 22:18
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
excel印刷で改頁をする時に罫線を引きたいのですが、良い方法ありますか?
Excel(エクセル)
-
Excelにて、ページ毎の外枠に罫線を設定する方法は?
Excel(エクセル)
-
エクセル、ページをまたがった際の罫線
Excel(エクセル)
-
-
4
<EXCEL>ページ最後の行の罫線設定
Excel(エクセル)
-
5
エクセルで改ページ部分に自動で線を
Excel(エクセル)
-
6
Excel:ページ毎に必ず罫線の最下線を印刷したい
Excel(エクセル)
-
7
Excel で改ページをしたところの罫線が印刷されません;;
Excel(エクセル)
-
8
条件付き書式で最終行に線を引きたい
Excel(エクセル)
-
9
EXCELで改頁される行を太線にするには?
Excel(エクセル)
-
10
縦長表の外枠に太罫線。改ページごとに外枠をつけるには
Excel(エクセル)
-
11
ExcelのVBAにてページごとの枠線を引きたい
その他(Microsoft Office)
-
12
EXCELでタイトル行と一番下の行を固定して印刷したい
会計ソフト・業務用ソフト
-
13
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
14
印刷時に、複数ページに共通な部分(下部)をつけたいです!!
Excel(エクセル)
-
15
Excelで特定の文字・記号のところで自動的に改ページしたい
Excel(エクセル)
-
16
VBによる改頁行の罫線変更
Visual Basic(VBA)
-
17
EXCEL、マクロ-改ページ行番号の取得方法を教えてください
Visual Basic(VBA)
-
18
エクセル2010 条件付き書式の罫線について
Excel(エクセル)
-
19
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
20
VBAでページ番号、ページ最終行を取得する方法
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの罫線がパワポに貼り...
-
Wordのページ罫線(囲み)の下...
-
A4用紙を8分割したい
-
Excelにて、ページ毎の外枠に罫...
-
印刷ページが急に数100ページに...
-
Excel で改ページをしたところ...
-
印刷時、改ページごとの下枠に...
-
wordの飾り枠が印刷出来ない
-
エクセルで罫線の太さを変えて...
-
ワード文書の枠線をどうしたら...
-
エクセル 突然「点線」?が出...
-
エクセルで結合したセルに罫線...
-
エクセルで表に書いた黒の罫線...
-
excel印刷で改頁をする時に罫線...
-
wordで1ページに同じ文章を4つ...
-
【word】印刷レイアウトでグレ...
-
EXCELの罫線をもっと細くしたい...
-
[Excel]画面上で表示されても、...
-
ワードで罫線で枠を作ったら、...
-
ワード文章の印刷で罫線は印刷...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの罫線がパワポに貼り...
-
A4用紙を8分割したい
-
印刷ページが急に数100ページに...
-
Excelにて、ページ毎の外枠に罫...
-
Excel で改ページをしたところ...
-
エクセル 突然「点線」?が出...
-
エクセルで表に書いた黒の罫線...
-
EXCELの罫線をもっと細くしたい...
-
エクセルファイルを印刷すると...
-
wordで1ページに同じ文章を4つ...
-
エクセルで罫線の太さを変えて...
-
[Excel]画面上で表示されても、...
-
excel印刷で改頁をする時に罫線...
-
【word】印刷レイアウトでグレ...
-
Word差し込み印刷 ラベルの枠を...
-
印刷時、改ページごとの下枠に...
-
accessのレポートを20行固定に...
-
エクセルで 2ページ目の罫線...
-
エクセルで結合したセルに罫線...
-
Excel 2007印刷で上の頁の線が出る
おすすめ情報