Home » ExcelVBA Rangeオブジェクト » 罫線・Borders » 罫線を消す・削除するExcelマクロ-Borders.LineStyle = xlNone

罫線を消す・削除するExcelマクロ-Borders.LineStyle = xlNone

対象:Excel2007, Excel2010, Excel2013

「excel マクロ 罫線 消す」
「エクセル マクロ 罫線 削除」
といった検索で、このサイト・インストラクターのネタ帳へのアクセスが時折あります。

罫線を消す・削除するExcelマクロ・VBA(Visual Basic for Applications)のコードを探している方による検索です。

罫線削除の操作をマクロ記録してみると、以下のようなコードが作られます。

Sub Sample()
 Selection.Borders(xlDiagonalDown).LineStyle = xlNone
 Selection.Borders(xlDiagonalUp).LineStyle = xlNone
 Selection.Borders(xlEdgeLeft).LineStyle = xlNone
 Selection.Borders(xlEdgeTop).LineStyle = xlNone
 Selection.Borders(xlEdgeBottom).LineStyle = xlNone
 Selection.Borders(xlEdgeRight).LineStyle = xlNone
 Selection.Borders(xlInsideVertical).LineStyle = xlNone
 Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

マクロを作り慣れていない方だと、ちょっとプレッシャーを感じてしまうかもしれません。

[スポンサードリンク]

選択範囲の罫線を削除するサンプルマクロ

選択されているセル範囲の、斜め線を除いた罫線を削除するのなら、以下のようなシンプルなマクロでOKです。


Sub 選択範囲の罫線を消す()
 Selection.Borders.LineStyle = xlNone
End Sub

マクロ記録でできるコードは、セルの、右上がり斜め線・右下がり斜め線・左辺・上辺・下辺・右辺・内側垂直線・内側水平線をバラバラに設定しているために、
 Selection.Borders(xlDiagonalDown).LineStyle = xlNone
 Selection.Borders(xlDiagonalUp).LineStyle = xlNone
 Selection.Borders(xlEdgeLeft).LineStyle = xlNone
 Selection.Borders(xlEdgeTop).LineStyle = xlNone
 Selection.Borders(xlEdgeBottom).LineStyle = xlNone
 Selection.Borders(xlEdgeRight).LineStyle = xlNone
 Selection.Borders(xlInsideVertical).LineStyle = xlNone
 Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
という8行になっています。

RangeオブジェクトのBordersプロパティに引数を指定しなければ、(斜め線を除く)すべての罫線を表すBordersコレクションオブジェクトが取得でき、BordersコレクションオブジェクトのLineStyeleプロパティに定数・xNoneを指定すれば、一気に罫線を消すことができます。

アクティブシートの罫線を削除するサンプルマクロ

以下のようなマクロにすれば、アクティブなワークシートの、斜め線を除いたすべての罫線を削除できます。


Sub アクティブシートのすべての罫線を消す()
 Cells.Borders.LineStyle = xlNone
End Sub

Cellsプロパティで、アクティブなシート上のすべてのセルを表すRangeオブジェクトを取得して、先のマクロと同じくBodersコレクションオブジェクトのLineStyleプロパティに定数・xlNoneを指定して罫線を削除しています。

[スポンサードリンク]

Home » ExcelVBA Rangeオブジェクト » 罫線・Borders » 罫線を消す・削除するExcelマクロ-Borders.LineStyle = xlNone

TrackBack:1

TrackBack URL
斜め線をVBAでクリアする-Borders(xlDiagonalDown)・Borders(xlDiagonalUp) from インストラクターのネタ帳
セル罫線の斜め線を削除するExcel(エクセル)マクロをご紹介しています。
[スポンサードリンク]

Home » ExcelVBA Rangeオブジェクト » 罫線・Borders » 罫線を消す・削除するExcelマクロ-Borders.LineStyle = xlNone

Copyright © インストラクターのネタ帳 All Rights Reserved.

.