Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16031 / 76807

←次へ　｜　前へ→


	【66250】改ページでの罫線

とと - 10/8/12(木) 14:03 -


	引用なし

	パスワード

いろいろ検索をして考えましたが、つまづきました。
ご教示ください。

改ページでの罫線を実行するマクロです。

Sub PrintLine()
Dim C As Long
Dim myR As Long

With Worksheets(3)

For C = 1 To .HPageBreaks.Count
myR = .HPageBreaks(C).Location.row - 1
With .Range(.Cells(myR, 1), .Cells(myR, 7)).Borders(xlEdgeBottom)
.lineStyle = xlContinuous
.Weight = xlThin
End With
　　
With .Range(.Cells(myR + 1, 1), .Cells(myR + 1, 7)).Borders(xlEdgeTop)
.lineStyle = xlContinuous
.Weight = xlThin
End With
　　　　　
Next C

End With

End Sub

myR = .HPageBreaks(C).Location.row - 1のところでエラー9「インデックスが有効範囲にありません。」と言うエラーが発生します。
しかし、印刷プレビューを見ると2ページ目までは罫線が引かれており、3ページ目以降には罫線が引かれていません。

このマクロを実行する前に別のマクロで書類を作成しています。
列数は7列で固定ですが、行数は書類により可変します。
1ページ33行ですが、見出しに使用している行が4行あります（実質29行）

よろしくおねがいします。

3 hits

▼

【66250】改ページでの罫線 とと 10/8/12(木) 14:03

≪