Прокрутите выделенные ячейки, проверьте границы и измените цвет

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

Вы претендуете цвет каждому граница в коллекции Selection.Borders, потому что это переменная 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 блока: With cel.Borders(xlEdgeTop) и With cel.Borders(xlEdgeBottom), а затем просто использовать .LineStyle и .Color. Вы также можете пропустить блок With, потому что он здесь действительно не экономит (cel.Borders ->.Item).