★罫線のコードを知ってさらに消せ!
Sub 罫線を引くぜ()
  Range("B2:D8").Select
  Selection.Borders(xlDiagonalDown).LineStyle = xlNone
  Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  With Selection.Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
  End With

  〜 省略 〜

End Sub
お次は
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
ですね。これはこんな感じでしょう!

 Selection. Borders(xlDiagonalDown).LineStyle = xlNone
 選択セル範囲の 罫線の種類で(右上がり斜線)の    線の種類は     表示しません。

 Selection. Borders(xlDiagonalUp).LineStyle = xlNone
 選択セル範囲の 罫線の種類で(右下がり斜線)の    線の種類は    表示しません。

 だから選択されたセル範囲の罫線の位置や種類はどうするの?というところですね。
罫線の位置について詳しくは
『セルの書式設定のマクロ・・・罫線の位置!』 ←クリックして参考に
罫線の種類について詳しくは
『セルの書式設定のマクロ・・・罫線の種類!』 ←クリックして参考に

この2行の訳からしてもともと表示されていない罫線を、わざわざ「非表示にして下さい。」とプログラムで書く必要はありませんので、この2行は削除します。
罫線のプログラムの中にあるこの2行は全部不要ですので、削除しましょう!!!

[トップ][前へ][罫線マクロのコード][次へ]