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.