Wie kann man Gitternetzlinien beim Füllen von Farben in Excel beibehalten?
Wie wir alle wissen, werden beim Füllen der Hintergrundfarbe von Zellen auch die Gitternetzlinien überdeckt. In diesem Fall, wie könnten wir die Gitternetzlinien beim Füllen der Hintergrundfarbe in Excel-Zellen beibehalten, um den folgenden Screenshot zu erhalten.
Gitternetzlinien beim Füllen von Farben mit VBA-Code beibehalten
Gitternetzlinien beim Füllen von Farben mit VBA-Code beibehalten
Normalerweise gibt es keinen direkten Weg für uns, diese Aufgabe zu lösen, aber hier möchte ich Ihnen einen VBA-Code vorstellen. Bitte gehen Sie wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Doppelklicken Sie im linken Bereich Projekt-VBAProjekt auf DieseArbeitsmappe unter dem erweiterten VBAProjekt, und kopieren Sie dann den folgenden VBA-Code in das leere Modul:
VBA-Code: Gitternetzlinien beim Füllen von Farben beibehalten
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. Speichern und schließen Sie dann das Codefenster. Nun werden beim Füllen einer Farbe für einen Zellbereich die Gitternetzlinien automatisch angezeigt.
Beste Büroproduktivitätswerkzeuge
Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!