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.
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins