ExcelVBA（マクロ）で表内の空欄のセルに自動で斜線を引く方法

空欄のセルに●●する系マクロで、空いたセルに斜線を引いてみます。

成果物
使い方
ざっくりした解説

成果物

こんな感じで、実行すると範囲内の空欄がすべて斜線で埋まります。

使い方

ExcelでVBA(Visual Basic for Applications)を使う方法/マクロを記録する方法、そもそもVBAとは何か？

Visual Basicとはプログラミング言語のひとつで、これをアプリケーション（＝ソフト。ここではExcelのことですが、wordなどでも使えます）で使えるように組み込んだもののことです。 Visual Basicにfor Applic...

マクロが使える環境であることが前提となります。VBAの基本的な書き方はこちらを参照。

コードを適用できる表は、（改造しない限り）このように長方形のものです。

開始位置が上から数えて何セル目か、終了位置が左から数えて何セル目かを調べてください。
この場合上から3、左から2番目のセルが開始位置です。

同様に終了位置の縦、横も調べます。この場合縦が10、横が4です。

VBEを開いて下記コードをコピペし、赤枠の部分最後の数字（赤字部分）にそれぞれ縦位置、横位置、縦の最終位置、横の最終位置を半角数字で入力します。

' vba
Option Explicit
Sub 斜線()
' 空欄の場合
If ActiveCell.Value = "" Then
ActiveCell.Borders(xlDiagonalUp).LineStyle = xlContinuous
' ちがう場合
Else
ActiveCell.Borders(xlDiagonalUp).LineStyle = xlLineStyleNone
End If
End Sub
Sub 空欄に斜線()
' 要入力
Dim 縦の位置 As Integer: 縦の位置 = 1
Dim 横の位置 As Integer: 横の位置 = 1
Dim 縦の最終位置 As Integer: 縦の最終位置 = 1
Dim 横の最終位置 As Integer: 横の最終位置 = 1
Dim i As Integer
Dim j As Integer
Dim 横の位置繰り返し用 As Integer: 横の位置繰り返し用 = 横の位置
For i = 縦の位置 To 縦の最終位置
    For j = 横の位置繰り返し用 To 横の最終位置
        Cells(縦の位置, 横の位置繰り返し用).Select
        Call 斜線
        横の位置繰り返し用 = 横の位置繰り返し用 + 1
    Next
    横の位置繰り返し用 = 横の位置
    縦の位置 = 縦の位置 + 1
Next
End Sub

あとはマクロ「空欄に斜線」を実行すればOKです。

ざっくりした解説

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

自分的には需要のある、出来合いマクロで斜線を引いたり消したりする方法です。実行するたびに斜線をON/OFFするマクロ前提として、マクロで斜線を引くコード、およびIF文の知識が必要となります。下記のコードを実行...

If文＋斜線引くコードはすでにあるので、これを流用してすこし弄ります。

斜線引くコードの下に新しいSubを作ります。

' vba
Dim 縦の位置 As Integer: 縦の位置 = 3
Dim 横の位置 As Integer: 横の位置 = 2
Dim 縦の最終位置 As Integer: 縦の最終位置 = 10
Dim 横の最終位置 As Integer: 横の最終位置 = 4
Dim i As Integer
Dim j As Integer
Dim 横の位置繰り返し用 As Integer: 横の位置繰り返し用 = 横の位置

まずごちゃごちゃ変数を宣言してる部分ですが、動きとして①横の位置から横の最終位置まで移動　→　②縦にひとつ下がる　を繰り返すので、横の位置は「初期値」「現在の位置」「最終値」のみっつが必要となります。
繰り返し用が現在の位置にあたります。
For分を二回使っているので、カウンタ変数としてiの他にjを作っています。

' vba
For i = 縦の位置 To 縦の最終位置
    For j = 横の位置繰り返し用 To 横の最終位置
        Cells(縦の位置, 横の位置繰り返し用).Select
        Call macro1
        横の位置繰り返し用 = 横の位置繰り返し用 + 1
    Next
    横の位置繰り返し用 = 横の位置
    縦の位置 = 縦の位置 + 1
Next

For分はこの部分。iのほうのFor分の中で、jのFor分が指定した回数繰り返され、繰り返しが終わるとjの初期値（横の位置繰り返し用）が元に（横の位置に）戻されます。

Call macro1

Call macro1はプロシージャmacro1を呼び出す命令で、

この状態で実行すると、範囲内に斜線があれば消し、なければ追加するコードになります。

' vba
Option Explicit
Sub 斜線()
' 右上がりの線がある場合
If ActiveCell.Borders(xlDiagonalUp).LineStyle = xlLineStyleNone Then
ActiveCell.Borders(xlDiagonalUp).LineStyle = xlContinuous
' ない場合
Else
ActiveCell.Borders(xlDiagonalUp).LineStyle = xlLineStyleNone
End If
End Sub
Sub 斜線オンオフ()
Dim 縦の位置 As Integer: 縦の位置 = 3
Dim 横の位置 As Integer: 横の位置 = 2
Dim 縦の最終位置 As Integer: 縦の最終位置 = 10
Dim 横の最終位置 As Integer: 横の最終位置 = 4
Dim i As Integer
Dim j As Integer
Dim 横の位置繰り返し用 As Integer: 横の位置繰り返し用 = 横の位置
For i = 縦の位置 To 縦の最終位置
    For j = 横の位置繰り返し用 To 横の最終位置
        Cells(縦の位置, 横の位置繰り返し用).Select
        Call 斜線
        横の位置繰り返し用 = 横の位置繰り返し用 + 1
    Next
    横の位置繰り返し用 = 横の位置
    縦の位置 = 縦の位置 + 1
Next
End Sub