Jak zachovat čáry mřížky při vyplňování barvy v aplikaci Excel?
Jak všichni víme, když vyplníme barvu pozadí do buněk, budou zakryty také mřížky, v tomto případě, jak bychom mohli zachovat mřížky při vyplňování barvy pozadí v buňkách aplikace Excel, aby se zobrazil následující snímek obrazovky.
Zachovat mřížku při vyplňování barev pomocí kódu VBA
Zachovat mřížku při vyplňování barev pomocí kódu VBA
Normálně pro nás neexistuje žádný přímý způsob, jak tuto práci vyřešit, ale zde vám mohu představit kód VBA. Postupujte prosím následovně:
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. Vlevo Projekt-VBAProjekt v podokně poklepejte Tato pracovní kniha pod rozbaleným Projekt VBA, potom zkopírujte a vložte následující kód VBA do prázdného modulu:
Kód VBA: zachovat mřížku při vyplňování barvy
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 poté uložte a zavřete okno kódu, nyní, když vyplníte barvu pro řadu buněk, mřížky se zobrazí automaticky.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!