エクセル(vba)で困っています

質問

みなさんのお知恵を貸していただきたいです。

セルに入力されている「左下から右上」への二重線をカウントしたいのですが、どうすればよいでしょうか。
１本線だけならカウントできるようにしているのですが、二重線の場合も必要になってしまいました。それぞれ別にカウントしたいです。よい案がありましたら教えてください。

現在使用しているコード
Function borderscount(範囲 As Range)
Dim cnt As long
Dim cAs Variant
For Each c In 範囲
If c.borders(5).LineStyle > 0 Or c.borders(6).linestyle > 0 Then
cnt = cnt + 1
End If
Next c
Application.volatile
Borderscount = cnt

End Function

どうぞよろしくお願いいたします。

回答No.1

HohoPapa · ベストアンサー

こうゆうことでしょうか。　前者が二重線、後者が単線です。

Function borderscountD(範囲 As Range)
　Dim cnt As Long
　Dim c As Range
　For Each c In 範囲
　　If c.Borders(xlDiagonalUp).LineStyle = xlDouble Then
　　　cnt = cnt + 1
　　End If
　Next c
　Application.Volatile
　borderscountD = cnt
End Function

Function borderscountS(範囲 As Range)
　Dim cnt As Long
　Dim c As Range
　For Each c In 範囲
　　If c.Borders(xlDiagonalUp).LineStyle = xlContinuous Then
　　　cnt = cnt + 1
　　End If
　Next c
　Application.Volatile
　borderscountS = cnt
End Function

お礼

迅速な回答をありがとうございました。
イメージ通りのコードで大変助かりました。