Como manter a formatação da célula ao fazer referência a outras células da planilha?
Geralmente, a célula apenas mantém o valor da célula enquanto faz referência a outra célula, mas neste artigo, apresento um código VBA para manter os valores e a formatação da célula ao fazer referência a outra célula, e os valores da célula e a formatação mudam conforme a célula de referência muda conforme abaixo imagem mostrada.
Mantenha a formatação da célula ao fazer referência a outra célula com VBA
Mantenha a formatação da célula ao fazer referência a outra célula com VBA
Para lidar com este trabalho, você só precisa executar o código abaixo.
1. Habilite a pasta de trabalho que você usa, pressione Alt + F11 chave para habilitar Microsoft Visual Basic para aplicativos janela e clique duas vezes no nome da folha na qual você colocará a célula de referência Projeto-VBAProject painel para mostrar um script em branco. Neste caso, quero referir-me à célula A1 no Sheet1. Veja a imagem:
2. Cole o código abaixo no script e, no código VBA, especifique as referências de célula conforme necessário.
VBA: mantenha a formatação e os 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 Sub
Note: A1 é a célula de referência, B1 in Folha 2 é a célula que você deseja vincular à célula de referência e manter os valores e a formatação com A1 em Shee1.
Então, quando você altera os valores ou a formatação na célula A1 na Planilha1, a célula B1 na Planilha2 será alterada ao clicar duas vezes na célula de referência.
Contagem por Cor
|
Em alguns casos, você pode ter uma gama de calues com várias cores, e o que você deseja é contar / somar valores com base na mesma cor, como você pode calcular rapidamente? Com o Kutools for Excel's Contagem por Cor, você pode rapidamente fazer muitos cálculos por cor e também pode gerar um relatório do resultado calculado. |
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!