選択したセルをループして罫線を確認して色を変更します

Question

私は、選択した領域内の白い背景、黒色のフォント、白いフォントの黒い背景に色を変えるツールバーのボタンを作成しています。 （P & Lのようなテーブル、会計の貸借対照表などに使用されます）。

しかし、私はまた、選択されたセルを見て、既存の罫線を見つけて白くするいくつかの機能をボタンに必要とします。ブール値を持つか、背景色が黒であるかどうかを確認して、既存の罫線を白くすることによって、Perhabsを作成します。私は新しい境界を作る必要はなく、既存のものの色を逆転させるだけです。

これは私が既に持ってきたものですが、それだけですべての境界は白になり：

Dim Background As Boolean 
Dim cel As Range 
Dim selectedRange As Range 

Set selectedRange = Application.Selection 

With Selection.Borders 

    For Each cel In selectedRange.Cells 
    If cel.Borders(xlEdgeTop).LineStyle <> xlLineStyleNone Then 
      .Color = RGB(255, 255, 255) 
     End If 

    If cel.Borders(xlEdgeBottom).LineStyle <> xlLineStyleNone Then 
      .Color = RGB(255, 255, 255) 
     End If 

    Next cel 
End With 

は、あなたが私を助けることができるしている願っています:)

Answer 1

あなたは、すべてに色を適用していますこれはWithという変数なので、Selection.Bordersコレクションの境界線です。 With cel.Borders(xlEdgeTop)とWith cel.Borders(xlEdgeBottom)してからちょうど.LineStyleと.Colorを使用：ちょうどあなたはまた、2個のWithのブロックを使用することができますcel.Borders(xlEdgeTop)

Dim cel As Range 
Dim selectedRange As Range 

Set selectedRange = Application.Selection 
For Each cel In selectedRange.Cells 
    With cel.Borders 
     If .Item(xlEdgeTop).LineStyle <> xlLineStyleNone Then 
      .Item(xlEdgeTop).Color = vbWhite 
     End If 

     If .Item(xlEdgeBottom).LineStyle <> xlLineStyleNone Then 
      .Item(xlEdgeBottom).Color = vbWhite 
     End If 
    End With 
Next cel 

の色を設定します。 Withブロックをすべてスキップすることもできます。なぜなら、実際にはあまり保存しないからです（cel.Borders - >.Item）。