Como preservar as linhas de grade ao preencher a cor no Excel?

Como todos sabemos, quando preenchemos a cor de fundo das células, as linhas de grade também serão cobertas. Nesse caso, como podemos manter as linhas de grade enquanto preenchemos a cor de fundo nas células do Excel para obter a seguinte captura de tela mostrada.

Preservar linhas de grade ao preencher a cor com código VBA

Preservar linhas de grade ao preencher a cor com código VBA

Normalmente, não há uma maneira direta de resolver essa tarefa, mas aqui posso apresentar um código VBA para você. Por favor, siga os passos abaixo:

1. Pressione e segure as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. No painel esquerdo Project-VBAProject, clique duas vezes em ThisWorkbook sob o VBAProject expandido, depois copie e cole o seguinte código VBA no Módulo em branco:

Código VBA: preservar linhas de grade ao preencher a cor

Dim xRgPre As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Not xRgPre Is Nothing Then DrawBorders xRgPre
    Set xRgPre = Target
End Sub
Private Sub DrawBorders(ByVal Rg As Range)
'Updateby Extendoffice 20160725
    Dim xCell As Range
    Application.ScreenUpdating = False
    For Each xCell In Rg
        If xCell.Interior.ColorIndex = xlNone Then
            With xCell.Borders
                If .ColorIndex = 15 Then
                    .LineStyle = xlNone
                End If
            End With
        Else
            With xCell.Borders
                If .LineStyle = xlNone Then
                    .Weight = xlThin
                    .ColorIndex = 15
                End If
            End With
        End If
    Next
    Application.ScreenUpdating = True
End Sub

3. Em seguida, salve e feche a janela de código. Agora, quando você preencher uma cor para um intervalo de células, as linhas de grade serão exibidas automaticamente.