[[20071227130238]]　『ページごとに自動で下線を引く方法』（チョコ）　ページの最後に飛ぶ

 『ページごとに自動で下線を引く方法』（チョコ）
 エクセルで縦長の表を作成した場合、自動でページごとに下線を引く方法を知りたいです。
途中枠線の線はいれず、ページごとに下線のみを自動で入れる方法はありますか？

 VBAになると思います。参考コードです。

 改ページプレビューにしてお試しください。

 Sub test()
  Dim pcnt As Integer
   For i = 1 To ActiveSheet.HPageBreaks.Count
    MsgBox ActiveSheet.HPageBreaks(i).Location.Row
   Next i
 End Sub
 (MARBIN)

 ＞途中枠線の線はいれず、
 この方法で、途中のセル枠の罫線を全部白色で設定しますと、そのようになると思います。　(#REF!MAN)
[[20071221161135]]『ページごとの罫線の自動引き換え』（かまくら）

上記(MARBIN)さんのマクロを元にこんなの作ってみました．
（MARBINさん、参考コードありがとうございました！）

改ページプレビューでお試しください．
罫線を引く列は，１列目（Ａ列）から２４列目（Ｘ列）の設定です．
変更したい場合は，cellsの括弧閉じの直前の値を変えてください．

Sub test()

  Dim pcnt As Integer
   For i = 1 To ActiveSheet.HPageBreaks.Count
    Range(Cells(ActiveSheet.HPageBreaks(i).Location.Row - 1, 1), Cells(ActiveSheet.HPageBreaks(i).Location.Row - 1, 24)).Select
    With Selection.Borders(xlEdgeBottom)
          .LineStyle = xlcontinuaous
          .Weight = xlThin
          '.colorIndex = xlAutomatic
    End With
   Next i
End Sub

(Nao)

コメント返信：

[ 一覧(最新更新順) ]

[[20071227130238]] 『ページごとに自動で下線を引く方法』（チョコ） ページの最後に飛ぶ

[[20071227130238]]　『ページごとに自動で下線を引く方法』（チョコ）　ページの最後に飛ぶ