Изменение цвета границы для нескольких ячеек без изменения стиля границы в Excel 2013

Question

Можно ли, однако, изменить все цвета границ без изменения стиля границ? Я уже пытался выбрать цвет линии и пройти через ячейки с помощью CTRL - но это меняет стили линии, и у меня есть несколько стилей, которые я не хочу делать с нуля.

Answer 1

Вы можете изменить свойство .colorindex независимо от других свойств граничных объектов в VBA:

Sub bordercolor()
    With Selection.Borders
        .ColorIndex = 32
    End With
End Sub

Это изменит только цвет границы, но не стиль линии и не ширину. Для удобства назначьте этот макрос ключу. 32 обозначает значение индекса цвета, отрегулируйте по своему вкусу. См. Эту статью для описания коллекции границ, если вы хотите изменить только одну конкретную границу (xlDiagonalDown , xlDiagonalUp , xlEdgeBottom , xlEdgeLeft , xlEdgeRight , xlEdgeTop , xlInsideHorizontal или xlInsideVertical).