Como preservar as linhas de grade ao preencher a cor no Excel?
Como todos sabemos, quando preenchemos a cor de fundo das células, as linhas de grade também serão cobertas. Nesse caso, como podemos manter as linhas de grade enquanto preenchemos a cor de fundo nas células do Excel para obter a seguinte captura de tela mostrada.
Preservar linhas de grade ao preencher a cor com código VBA
Preservar linhas de grade ao preencher a cor com código VBA
Normalmente, não há uma maneira direta de resolver essa tarefa, mas aqui posso apresentar um código VBA para você. Por favor, siga os passos abaixo:
1. Pressione e segure as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. No painel esquerdo Project-VBAProject, clique duas vezes em ThisWorkbook sob o VBAProject expandido, depois copie e cole o seguinte código VBA no Módulo em branco:
Código VBA: preservar linhas de grade ao preencher 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. Em seguida, salve e feche a janela de código. Agora, quando você preencher uma cor para um intervalo de células, as linhas de grade serão exibidas automaticamente.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins