¿Cómo conservar las líneas de cuadrícula al rellenar color en Excel?

Como todos sabemos, cuando rellenamos el color de fondo de las celdas, las líneas de cuadrícula también se cubrirán. En este caso, ¿cómo podemos mantener las líneas de cuadrícula mientras rellenamos el color de fondo en las celdas de Excel para obtener la siguiente captura de pantalla mostrada?

Conservar líneas de cuadrícula al rellenar color con código VBA

Conservar líneas de cuadrícula al rellenar color con código VBA

Normalmente, no hay una manera directa de resolver esta tarea, pero aquí puedo presentar un código VBA para ti. Por favor, sigue los siguientes pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En el panel izquierdo Proyecto-VBAProject, haz doble clic en ThisWorkbook bajo el VBAProject expandido, luego copia y pega el siguiente código VBA en el Módulo en blanco:

Código VBA: conservar líneas de cuadrícula al rellenar color

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. Luego guarda y cierra la ventana del código. Ahora, cuando rellenes un color para un rango de celdas, las líneas de cuadrícula se mostrarán automáticamente.