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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
excel印刷で改頁をする時に罫線を引きたいのですが、良い方法ありますか?
Excel(エクセル)
-
Excelにて、ページ毎の外枠に罫線を設定する方法は?
Excel(エクセル)
-
エクセル、ページをまたがった際の罫線
Excel(エクセル)
-
-
4
<EXCEL>ページ最後の行の罫線設定
Excel(エクセル)
-
5
Excel で改ページをしたところの罫線が印刷されません;;
Excel(エクセル)
-
6
EXCELで改頁される行を太線にするには?
Excel(エクセル)
-
7
EXCELでタイトル行と一番下の行を固定して印刷したい
会計ソフト・業務用ソフト
-
8
縦長表の外枠に太罫線。改ページごとに外枠をつけるには
Excel(エクセル)
-
9
条件付き書式で最終行に線を引きたい
Excel(エクセル)
-
10
エクセルで改ページ部分に自動で線を
Excel(エクセル)
-
11
Excelの条件付き書式設定の太い罫線
Excel(エクセル)
-
12
印刷時に、複数ページに共通な部分(下部)をつけたいです!!
Excel(エクセル)
-
13
Excel:ページ毎に必ず罫線の最下線を印刷したい
Excel(エクセル)
-
14
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
15
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
16
EXCELの印刷にて、最終行の表の外枠線について
Excel(エクセル)
-
17
Excelで・・・1ページあたりの行数を指定できますか?
Excel(エクセル)
-
18
Excelで特定の文字・記号のところで自動的に改ページしたい
Excel(エクセル)
-
19
ExcelのVBAにてページごとの枠線を引きたい
その他(Microsoft Office)
-
20
エクセル2010 条件付き書式の罫線について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの罫線がパワポに貼り...
-
印刷ページが急に数100ページに...
-
Excelにて、ページ毎の外枠に罫...
-
A4用紙を8分割したい
-
エクセルで表に書いた黒の罫線...
-
excel印刷で改頁をする時に罫線...
-
エクセルファイルを印刷すると...
-
Excel で改ページをしたところ...
-
ワード文章の印刷で罫線は印刷...
-
エクセルで罫線の太さを変えて...
-
[Excel]画面上で表示されても、...
-
wordで1ページに同じ文章を4つ...
-
ワード文書の枠線をどうしたら...
-
【word】印刷レイアウトでグレ...
-
Excelで極細の罫線はカラー印刷...
-
エクセルで透明の罫線を引けま...
-
AccessからExcelに罫線付で出力...
-
エクセル 突然「点線」?が出...
-
Excelで表がページにまたがった...
-
エクセルに勝手に罫線が出てき...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの罫線がパワポに貼り...
-
A4用紙を8分割したい
-
Excelにて、ページ毎の外枠に罫...
-
印刷ページが急に数100ページに...
-
エクセルで表に書いた黒の罫線...
-
Excel で改ページをしたところ...
-
エクセルファイルを印刷すると...
-
[Excel]画面上で表示されても、...
-
wordで1ページに同じ文章を4つ...
-
excel印刷で改頁をする時に罫線...
-
【word】印刷レイアウトでグレ...
-
印刷時、改ページごとの下枠に...
-
エクセルで罫線の太さを変えて...
-
この様式の雛形を作るとしたら...
-
エクセルで透明の罫線を引けま...
-
ワード文書の枠線をどうしたら...
-
Word差し込み印刷 ラベルの枠を...
-
Excel 2007印刷で上の頁の線が出る
-
エクセル 突然「点線」?が出...
-
accessのレポートを20行固定に...
おすすめ情報