Jak zachować linie siatki podczas wypełniania kolorów w programie Excel?
Jak wszyscy wiemy, kiedy wypełniamy kolor tła do komórek, linie siatki również zostaną pokryte, w tym przypadku, jak możemy zachować linie siatki podczas wypełniania koloru tła w komórkach Excela, aby uzyskać następujący zrzut ekranu.
Zachowaj linie siatki podczas wypełniania kolorów kodem VBA
Zachowaj linie siatki podczas wypełniania kolorów kodem VBA
Zwykle nie ma dla nas bezpośredniego sposobu rozwiązania tego zadania, ale tutaj mogę wprowadzić kod VBA. Wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Po lewej Projekt-VBAProjekt okienku, kliknij dwukrotnie Ten zeszyt pod rozszerzonym Projekt VBA, a następnie skopiuj i wklej następujący kod VBA do pustego modułu:
Kod VBA: zachowaj linie siatki podczas wypełniania koloru
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. A następnie zapisz i zamknij okno kodu, teraz, kiedy wypełnisz kolor zakresu komórek, linie siatki zostaną pokazane automatycznie.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!