Como manter a formatação da célula ao fazer referência a células de outra folha?
Normalmente, ao fazer referência a outra célula, apenas o valor é mantido — mas neste artigo apresento um código VBA que preserva tanto o valor como a formatação da célula de origem. Assim, sempre que a célula referenciada for alterada, tanto o valor como a formatação são automaticamente atualizados, tal como ilustrado na imagem seguinte.
Manter a formatação da célula ao fazer referência a outra célula com VBA
Manter a formatação da célula ao fazer referência a outra célula com VBA
Para realizar esta tarefa, basta executar o código abaixo.
1. Ative o livro que está a utilizar, prima Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications e faça duplo clique no nome da folha onde pretende colocar a célula de referência, no painel Projeto - VBAProject, para mostrar um script em branco. Neste caso, quero colocar a célula Referenciar células A1 na Folha1. Veja a imagem:
2. Cole o código abaixo no script e, no código VBA, ajuste a célula única especificada conforme necessário.
VBA: Manter formatação e valores ao fazer referência a outra célula
Private Sub Worksheet_Activate()
'UpdatebyExtendoffice20101024
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Value = "" Then Exit Sub
Application.EnableEvents = False
If Not Intersect(Target, Range("A1")) Is Nothing Then 'Range("A1") the reference cell
Target.Copy
ActiveWorkbook.Sheets("Sheet2").Range("B1").PasteSpecial xlPasteAllUsingSourceTheme
'Range("B1")the cell linked to reference cell,ActiveWorkbook.Sheets("Sheet2")the sheet which contains linked cell
Application.CutCopyMode = False
Target.Select
End If
Application.EnableEvents = True
End SubNota: A1 é a célula de referência; B1, na Folha 2, é a célula que pretende ligar à célula de referência e manter os valores e a formatação de A1 na Folha 1.
Depois, ao alterar os valores ou a formatação na célula A1 da Folha1, basta clicar duas vezes na célula de referência para que a célula B1 da Folha2 seja atualizada.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos