Wie werden Gitterlinien beim Füllen von Farben in Excel beibehalten?
Wie wir alle wissen, werden beim Füllen der Hintergrundfarbe in Zellen auch die Gitterlinien abgedeckt. In diesem Fall können wir die Gitterlinien beim Füllen der Hintergrundfarbe in Excel-Zellen beibehalten, um den folgenden Screenshot zu erhalten.
Behalten Sie die Gitterlinien bei, während Sie die Farbe mit VBA-Code füllen
Behalten Sie die Gitterlinien bei, während Sie die Farbe mit VBA-Code füllen
Normalerweise gibt es für uns keine direkte Möglichkeit, diesen Job zu lösen, aber hier kann ich einen VBA-Code für Sie einführen. Bitte gehen Sie wie folgt vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In der linken Projekt-VBAProject Doppelklicken Sie DiesesWorkbook unter dem erweiterten VBAProjektKopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das leere Modul ein:
VBA-Code: Beibehalten der Gitterlinien beim Füllen der Farbe
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. Wenn Sie jetzt eine Farbe für einen Zellbereich eingeben, werden die Gitterlinien automatisch angezeigt.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
