Wie können Gitternetzlinien beim Füllen mit einer Farbe in Excel erhalten bleiben?
Wie allgemein bekannt ist, überdeckt das Ausfüllen von Zellen mit einer Hintergrundfarbe in Excel auch die Gitternetzlinien. Wie können wir in einem solchen Fall die Gitternetzlinien beim Ausfüllen mit Hintergrundfarbe beibehalten, um das im folgenden Screenshot gezeigte Ergebnis zu erzielen?
Gitternetzlinien beim Füllfarbe mit VBA-Code erhalten
Gitternetzlinien beim Füllfarbe mit VBA-Code erhalten
Normalerweise gibt es keine direkte Möglichkeit, diese Aufgabe zu lösen – doch hier kann ich Ihnen einen VBA-Code präsentieren. Gehen Sie wie folgt vor:
1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie im linken Projekt-VBAProject-Bereich doppelt auf DieseArbeitsmappe unter dem erweiterten VBAProject, und kopieren Sie dann den folgenden VBA-Code in das leere Modul:
VBA-Code: Gitternetzlinien beim Füllfarbe erhalten
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. Schließen Sie anschließend das Code-Fenster. Sobald Sie nun einem Zellbereich eine Farbe zuweisen, werden die Gitternetzlinien 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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins