Como preservar as linhas de grade ao preencher a cor no Excel?
Como todos sabemos, quando preenchemos a cor de fundo para as células, as linhas de grade também serão cobertas, neste caso, como poderíamos manter as linhas de grade enquanto preenchemos a cor de fundo nas células do Excel para obter a seguinte captura de tela mostrada.
Preserve as linhas de grade enquanto preenche a cor com o código VBA
Preserve as linhas de grade enquanto preenche a cor com o código VBA
Normalmente, não há uma maneira direta de resolvermos esse trabalho, mas, aqui, posso apresentar um código VBA para você. Faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No lado esquerdo Projeto-VBAProject painel, clique duas vezes Esta pasta de trabalho sob o expandido Projeto VBA, copie e cole o seguinte código VBA no módulo em branco:
Código VBA: preserva as linhas de grade enquanto preenche a cor
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. E então salve e feche a janela de código, agora, ao preencher uma cor para um intervalo de células, as linhas de grade serão mostradas automaticamente.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!