Sub 罫線_セル内に斜線_を引く()

    Range("B2").Borders(xlDiagonalUp).LineStyle = True '右上→左下
    Range("B4").Borders(xlDiagonalDown).LineStyle = True '左上→右下
        
    Range("C3").Borders(xlDiagonalUp).LineStyle = True '右上→左下（同一セル適用でX）
    Range("C3").Borders(xlDiagonalDown).LineStyle = True '左上→右下（同一セル適用でX）

End Sub