No.2ベストアンサー
- 回答日時:
『ExcelのVBAにてページごとの枠線を引きたい』場合は
こんな感じになります。
Sub try_1()
Dim r As Range
Dim x As Object
With ActiveSheet
Set r = .UsedRange
'【注意】使用領域の罫線をクリア。拙い場合は除外してください。
r.Borders.LineStyle = xlNone
'最終セル選択し改ページプレヴュー。PageBreaks取得のため。
r(r.Count).Select
ActiveWindow.View = xlPageBreakPreview
'印刷エリアが設定されている場合は範囲再設定
If .PageSetup.PrintArea <> "" Then
Set r = .Range(.PageSetup.PrintArea)
End If
r.BorderAround xlContinuous
'水平改ページ位置をLoopして罫線設定
For Each x In .HPageBreaks
Intersect(r, x.Location.Offset(-1).Resize(2).EntireRow) _
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
Next
'垂直改ページ位置をLoopして罫線設定
For Each x In .VPageBreaks
Intersect(r, x.Location.Offset(, -1).Resize(, 2).EntireColumn) _
.Borders(xlInsideVertical).LineStyle = xlContinuous
Next
End With
'ノーマルビューに戻す
ActiveWindow.View = xlNormalView
Set r = Nothing
End Sub
もし、セル背景色を全て『白』にしても構わないなら、
白色にしてセル枠線が印刷されないようにした上で、ページ設定の[枠線]オプションをOnにすれば良いです。
手動で一度設定してしまえば済むのでマクロ不要ですが、一応、
Sub try_2()
With ActiveSheet
.UsedRange.Interior.Color = vbWhite
.PageSetup.PrintGridlines = True
End With
End Sub
ついでに
>印刷範囲 = ActiveSheet.PageSetup.PrintArea
>印刷範囲の設定した保存ファイルを開き、そのままマクロを実行すると、
>上記の方法では""と範囲ではなく空白が返ってきてしまいます。
推測ですが、印刷範囲を設定したシートがActiveになっていなかったとかじゃないですかね?
No.1
- 回答日時:
枠線の意味が解りませんが、印刷範囲の事でしょうか?
ActiveSheet.PageSetup.PrintArea = Range("A13:BJ59")
ありがとうございます。
枠線というのは罫線のことです。
印刷範囲は、教えていただいたのを逆にして取得することができました。
印刷範囲 = ActiveSheet.PageSetup.PrintArea
ですが、印刷範囲の設定した保存ファイルを開き、そのままマクロを実行すると、上記の方法では""と範囲ではなく空白が返ってきてしまいます。
開いて、印刷範囲を動かして、マクロを実行すると取得できていました。
なぜ選択範囲が取得できないのでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 罫線について B列3行目から21行毎にデータがはいります。 データがはいったらデータが入った 6 2022/11/15 17:22
- その他(Microsoft Office) 選択行の列範囲に二重線を引く 3 2022/06/08 12:21
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- ノートパソコン Windows11homeを新しく購入し、初期設定をしています。 前のパソコンでは無線のFAX機や有 5 2023/04/18 19:50
- Visual Basic(VBA) オートフィルタで抽出結果に 罫線をひく方法 1 2022/07/13 13:08
- Visual Basic(VBA) 改ページを挿入 1 2022/12/04 23:19
- Visual Basic(VBA) 改ページ 2 2023/03/10 21:29
- Excel(エクセル) Excel VBAで、行の高さを、上下1文字分程度高くしたい 3 2023/04/23 00:17
- CAD・DTP EXCELからAUTOCADに貼り付け 1 2022/04/20 17:42
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
A4用紙を8分割したい
-
エクセルの罫線がパワポに貼り...
-
印刷ページが急に数100ページに...
-
excel印刷で改頁をする時に罫線...
-
Word差し込み印刷 ラベルの枠を...
-
印刷時、改ページごとの下枠に...
-
Excel で改ページをしたところ...
-
エクセルで 2ページ目の罫線...
-
エクセルで罫線の太さを変えて...
-
エクセルで結合したセルに罫線...
-
エクセルで表に書いた黒の罫線...
-
wordで1ページに同じ文章を4つ...
-
ページの1番下の罫線が印刷さ...
-
ダッシュ―― の打ち方
-
accessのレポートを20行固定に...
-
EXCELの罫線をもっと細くしたい...
-
エクセルに勝手に罫線が出てき...
-
Excelで表がページにまたがった...
-
エクセルで罫線の太さを変更
-
Excelにて、ページ毎の外枠に罫...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの罫線がパワポに貼り...
-
A4用紙を8分割したい
-
印刷ページが急に数100ページに...
-
Wordのページ罫線(囲み)の下...
-
Excelにて、ページ毎の外枠に罫...
-
Excel で改ページをしたところ...
-
エクセルで表に書いた黒の罫線...
-
wordで1ページに同じ文章を4つ...
-
エクセル 突然「点線」?が出...
-
[Excel]画面上で表示されても、...
-
EXCELの罫線をもっと細くしたい...
-
excel印刷で改頁をする時に罫線...
-
Word差し込み印刷 ラベルの枠を...
-
印刷時、改ページごとの下枠に...
-
エクセルで罫線の太さを変えて...
-
エクセルファイルを印刷すると...
-
【word】印刷レイアウトでグレ...
-
accessのレポートを20行固定に...
-
ワード文書の枠線をどうしたら...
-
Excel 2007印刷で上の頁の線が出る
おすすめ情報