罫線が引かれているセルの個数を調べるには

マウスで範囲を指定して以下のマクロを実行してみてください。 Sub a() Dim range As Excel.range Dim item As Excel.range Dim cntD As Integer Dim cntU As Integer Set range = Selection For Each item In range If item.Borders(xlDiagonalDown).LineStyle <> xlNone Then cntD = cntD + 1 End If If item.Borders(xlDiagonalUp).LineStyle <> xlNone Then cntU = cntU + 1 End If Next MsgBox ("右肩下がりの斜線=" & cntD) MsgBox ("右肩上がりの斜線=" & cntU) End Sub

[kiyo_hiko]

「VBAで説明を受けるよりも、罫線が引いてあるのは、どういうセルなのか、その特徴について、元のセルの値の関係などで説明や考え直せないのか、考えるべき。質問に状況を補足を」　弊社の上司らみてえな回答が