Comment conserver les lignes de la grille tout en remplissant la couleur dans Excel?

Comme nous le savons tous, lorsque nous remplissons la couleur d'arrière-plan des cellules, le quadrillage sera également couvert.Dans ce cas, comment pourrions-nous conserver le quadrillage tout en remplissant la couleur d'arrière-plan dans les cellules Excel pour obtenir la capture d'écran suivante.

Préservez le quadrillage tout en remplissant la couleur avec le code VBA

Préservez le quadrillage tout en remplissant la couleur avec le code VBA

Normalement, il n'y a pas de moyen direct pour nous de résoudre ce travail, mais, ici, je peux vous présenter un code VBA. Veuillez procéder comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. À gauche Projet-VBAProjet volet, double-cliquez Ce classeur sous l'expansion VBAProjet, puis copiez et collez le code VBA suivant dans le module vide:

Code VBA: préservez le quadrillage tout en remplissant la couleur

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. Et puis enregistrez et fermez la fenêtre de code, maintenant, lorsque vous remplissez une couleur pour une plage de cellules, le quadrillage sera affiché automatiquement.