VBA - 1つ以上が真である場合にすべてのステートメントを評価する

Question

セルのステートメントのリストを評価し、その結果をコレクションオブジェクトに渡すことができます。しかし、最初の真の文が見つかったときにIf/elseifが評価を停止すると、Select Caseも同じです。

これを行うために使用できる他の方法はありますか？

Dim BorderColl As Collection 
Set BorderColl = New Collection 

If RngCell.Borders(xlDiagonalDown).LineStyle <> xlNone Then 

    BorderColl.Add "xlDiagonalDown", LCase("xlDiagonalDown") 

ElseIf RngCell.Borders(xlDiagonalUp).LineStyle <> xlNone Then 

    BorderColl.Add "xlDiagonalUp", LCase("xlDiagonalUp") 

ElseIf RngCell.Borders(xlEdgeBottom).LineStyle <> xlNone Then 

    BorderColl.Add "xlEdgeBottom", LCase("xlEdgeBottom") 

ElseIf RngCell.Borders(xlEdgeLeft).LineStyle <> xlNone Then 

    BorderColl.Add "xlEdgeLeft", LCase("xlEdgeLeft") 

ElseIf RngCell.Borders(xlEdgeRight).LineStyle <> xlNone Then 

    BorderColl.Add "xlEdgeRight", LCase("xlEdgeRight") 

ElseIf RngCell.Borders(xlEdgeTop).LineStyle <> xlNone Then 

    BorderColl.Add "xlEdgeTop", LCase("xlEdgeTop") 

End If 

Answer 1

単にelseifをifに変更します。 N if/endifブロックがあります（Nは評価しているプロパティの数です）。それが成功すると、次のものに移ります。

if someproperty then: do something 
if someOtherProperty then: do something else 

などなど

Answer 2

カントあなただけ

Dim BorderColl As Collection 
Set BorderColl = New Collection 

If RngCell.Borders(xlDiagonalDown).LineStyle <> xlNone Then 
    BorderColl.Add "xlDiagonalDown", LCase("xlDiagonalDown") 
End If 
If RngCell.Borders(xlDiagonalUp).LineStyle <> xlNone Then 
    BorderColl.Add "xlDiagonalUp", LCase("xlDiagonalUp") 
End If 
. 
. 
. 

を使うのか？

Answer 3

私はあなたがチェックしたいものごとに1つのIf-Then文を使うことをお勧めします。

Answer 4

このヘルプあなたをしていますか？

Dim rngcell As Range, lBorder As Long, sStyles As Variant 

    sStyles = Split(",,,,XLDIAGONALDOWN,XLDIAGONALUP,XLEDGELEFT,XLEDGETOP,XLEDGEBOTTOM,XLEDGERIGHT,XLINSIDEVERTICAL,XLINSIDEHORIZONTAL", ",") 

    Set rngcell = Range("A1") 
    For lBorder = 5 To 12 
     If rngcell.Borders(lBorder).LineStyle <> xlNone Then 
      Debug.Print lBorder, sStyles(lBorder - 1) 
     End If 
    Next