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.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
