罫線のみ削除するマクロ

表の罫線のみを削除したい場合は、通常は罫線ボタンを使ったり、セルの書式設定の罫線タブを使ったりする。
別にマクロにする必要もなかったのだが・・・

Sub 罫線のみ削除()
Dim myrange As Range
Set myrange = Selection.CurrentRegion
myrange.Borders.LineStyle = xlNone
Set myrange = Nothing
End Sub

あまりにも単純だが、アクティブセルの領域内の表を消すって点だけが良かった。
e0080122_8484224.gif

[PR]
by slayer0210 | 2005-11-24 08:49 | マクロ


<< 図を参照する IFとANDで合否判定(配列) >>