Come preservare le linee della griglia durante il riempimento del colore in Excel?

Come tutti sappiamo, quando riempiamo il colore di sfondo delle celle, verranno coperte anche le linee della griglia, in questo caso, come potremmo mantenere le linee della griglia mentre riempiamo il colore di sfondo nelle celle di Excel per ottenere la seguente schermata mostrata.

Conserva la griglia mentre riempi il colore con il codice VBA

Conserva la griglia mentre riempi il colore con il codice VBA

Normalmente, non esiste un modo diretto per risolvere questo lavoro, ma qui posso introdurre un codice VBA per te. Si prega di fare quanto segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Sulla sinistra Progetto-VBAProgetto riquadro, fare doppio clic Questa cartella di lavoro sotto l'espanso Progetto VBA, quindi copia e incolla il seguente codice VBA nel modulo vuoto:

Codice VBA: preserva la griglia durante il riempimento del 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 salva e chiudi la finestra del codice, ora, quando riempi un colore per un intervallo di celle, la griglia verrà mostrata automaticamente.