Come preservare le linee di griglia mentre si riempie il colore in Excel?

Come sappiamo tutti, quando riempiamo il colore di sfondo delle celle, anche le linee di griglia verranno coperte. In questo caso, come possiamo mantenere le linee di griglia mentre riempiamo il colore di sfondo nelle celle di Excel per ottenere lo screenshot mostrato di seguito?

Preservare le linee di griglia mentre si riempie il colore con il codice VBA

Preservare le linee di griglia mentre si riempie il colore con il codice VBA

Normalmente, non esiste un modo diretto per risolvere questo problema, ma qui posso presentarvi un codice VBA. Si prega di fare come segue:

1. Tenere premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nel riquadro sinistro Project-VBAProject, fare doppio clic su ThisWorkbook sotto VBAProject espanso, quindi copiare e incollare il seguente codice VBA nel modulo vuoto:

Codice VBA: preservare le linee di griglia mentre si riempie il colore

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. Quindi salvare e chiudere la finestra del codice; ora, quando si riempie un colore per un intervallo di celle, le linee di griglia verranno mostrate automaticamente.