ExcelVBA（マクロ）で実行するたびに斜線を引く/消すマクロを作り、ツールバーに登録する方法

自分的には需要のある、出来合いマクロで斜線を引いたり消したりする方法です。

実行するたびに斜線をON/OFFするマクロ

Excel（エクセル）でセルに斜線を引く・消す方法/罫線、線（図形）他の使い方

表を作ると、特定のセルに斜線を引きたい場面が出てきます。 一度「セルの書式設定」を経由し、罫線として設定することで斜線を引くことが可能です。また、図形でも線を引くことが可能です。

sunagitsune.com

2020.05.24

前提として、マクロで斜線を引くコード、およびIF文の知識が必要となります。

下記のコードを実行すると、すでにアクティブセルに右上がりの斜線がある場合はそれを消し、ない場合は斜線を引きます。

' vba
' 右上がりの線がある場合
If ActiveCell.Borders(xlDiagonalUp).LineStyle = xlLineStyleNone Then
ActiveCell.Borders(xlDiagonalUp).LineStyle = xlContinuous
' ない場合
Else
ActiveCell.Borders(xlDiagonalUp).LineStyle = xlLineStyleNone
End If

ExcelVBA（マクロ）でセルに罫線を引く・消す方法/Borders.LineStyleプロパティの使い方

マクロで罫線を引く方法のご紹介です。

sunagitsune.com

2019.12.14

もし左上がりの斜線にしたい場合は、xlDiagonalUpの部分をxlDiagonalDownに変えます。
線の種類などにもこだわりたい方は、お手数ですが別記事をご参照ください。

ExcelVBA（マクロ）で罫線の太さを変更する方法/Borders.Weightプロパティの使い方およびLineStyleとの相性

マクロで罫線を作る時、線の種類以外に線の太さも指定することができます。ただし、LineStyleの設定によっては無効となる場合もあり、その相性についても記述しています。

sunagitsune.com

2020.06.17

同様に線の太さの変更方法です。

クイックアクセスツールバーに登録

よく使うようであれば、なんらかの方法でアクセスしやすくしておくと良いです。
たとえばクイックアクセスツールバーに追加するのであれば、ファイルタブ→

オプション→

クイックアクセスツールバー→

マクロ→

作ったマクロを追加してOKすると、

ここにボタンができるので、押すたびに斜線を引いたり消したりできていい感じです。

あるいはリボンのユーザー設定でリボンにコマンドを追加したり、ショートカット化することも可能です。

Excel（エクセル）：罫線

罫線の引き方、編集、設定方法まとめです。 Excel操作で罫線 基本の罫線の作り方、引き方、削除方法です。 基本その２、罫線の種類の変更方法です。セルの一部だけに線を引く方法、セルの書式設定で罫線を引く方法につ...

sunagitsune.com

2021.03.07

関数・演算子・メソッド・プロパティ名から探すExcel/VBA（マクロ）使い方・組み合わせ方まとめ

こちらはExcelやメソッドの諸機能を、機能の名称から探せるまとめ記事です。

sunagitsune.com

2018.12.30