Alterando a cor da borda para várias células sem alterar a borda Estilo no Excel 2013

Question

É possível alterar todas as cores da borda sem alterar o estilo da borda? Eu já tentei selecionar a cor da linha e passar pelas células com CTRL - mas isso muda os estilos de linha e eu tenho vários estilos que não quero fazer do zero.

    

Answer 1

Você pode alterar a propriedade .colorindex independentemente de outras propriedades dos objetos de borda, no VBA:

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

Isso só alterará a cor da borda não o estilo de linha nem a largura. Atribuir essa macro a uma chave por conveniência. 32 indica um valor de índice de cores, ajuste ao seu gosto. Consulte este artigo para obter uma descrição da coleção de bordas se você quiser alterar uma borda específica apenas ( xlDiagonalDown , xlDiagonalUp , xlEdgeBottom , xlEdgeLeft , xlEdgeRight , xlEdgeTop , xlInsideHorizontal ou xlInsideVertical ).