Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Registe-se  \/ 
x

or

Como referenciar formato e valor de outra célula no Excel?

Normalmente, usamos a fórmula = A1 para fazer referência à célula A1 para outra célula na planilha. Mas isso só pode fazer referência ao valor da célula. Se quiser fazer referência ao valor da célula, bem como ao seu formato, você precisa tentar outro método. Este artigo fornece dois métodos para você conseguir isso.

Formato e valor de referência de outra célula com colagem de imagem vinculada
Formato de referência automática e valor de outra célula com VBA


Formato e valor de referência de outra célula com colagem de imagem vinculada

Supondo que você queira fazer referência ao formato e ao valor da célula A1, faça o seguinte para fazer isso.

1. Selecione a célula (A1) que você precisa fazer referência e copie-a pressionando Ctrl + C chaves.

2. Vá para a célula que deseja vincular à célula de referência, clique com o botão direito e selecionar > colar especial > Imagem vinculada. Veja a imagem:

Agora, o formato e o valor da célula A1 são referenciados a uma célula especificada. E o formato e o valor dessas duas células serão sincronizados, conforme mostrado na imagem abaixo.


Formato de referência automática e valor de outra célula com VBA

Você pode fazer referência ao formato e ao valor de outra célula automaticamente, executando o script VBA abaixo.

1. Clique com o botão direito na guia da planilha que contém a célula que você precisa fazer referência e clique em Ver código no menu do botão direito.

2. No popping up Microsoft Visual for Applications janela, copie e cole o código VBA abaixo na janela Código.

Código VBA: formato de referência e valor de outra célula

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Worksheets("Sheet1")
        If .Range("A1").Value2 <> "" Then
            On Error Resume Next
            Range("A1").Copy (.Range("E2"))
        End If
    End With
End Sub

Importante: No código, Plan1 é o nome da planilha que contém a célula necessária para fazer referência ao valor e ao formato. A1 e E2 significa que a célula A1 será referenciada à célula E2 automaticamente.

A partir de agora, quando o valor mudar na célula A1 da Planilha1, seu valor e formato serão referenciados à célula E2 imediatamente.


Artigos relacionados:

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Super Formula Bar (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
officetab bottom
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Deb J · 1 years ago
    Can I mirror the first 5 columns on each new sheet? I have the data just want the formatting to change with all sheets instead of having to do so repeatedly

  • To post as a guest, your comment is unpublished.
    rdk · 1 years ago
    Hello did the below code but it did not work
    Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    With Worksheets("Competitive Analysis Summary")
    If .Range("BI7").Value2 <> "" Then
    On Error Resume Next
    Range("BI7").Copy (Worksheets("In Depth View - ADP").Range("E55"))
    End If
    End With
    End Sub
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Hi, after adding the code, you need to modify the worksheet "Competitive Analysis Summary" to enable the VBA.
  • To post as a guest, your comment is unpublished.
    Lil · 2 years ago
    How do I do that if I want to copy to a different sheet?
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Lil,
      If you need to copy to a different sheet, please apply the below VBA code. Sheet1 is the original worksheet, Sheet3 is the destination worksheet. Please change them based on your needs.

      Private Sub Worksheet_Change(ByVal Target As Excel.Range)
      With Worksheets("Sheet1")
      If .Range("A5").Value2 <> "" Then
      On Error Resume Next
      Range("A5").Copy (Worksheets("Sheet3").Range("E2"))
      End If
      End With
      End Sub
      • To post as a guest, your comment is unpublished.
        Jesse · 6 months ago
        How to run this code on excel? Does it need to be run on both worksheet? Can it be specific like step-by-step? 
        • To post as a guest, your comment is unpublished.
          crystal · 5 months ago
          Hi Jesse,
          Hi, as the above code mentioned, you just need to fill the code in the original worksheet's Code window, when changing the cell value in the original worksheet (A5 in Sheet1 in this case), the code will be runned automatically. And cell A5 in Sheet1 will be copied to E2 in Sheet3.
  • To post as a guest, your comment is unpublished.
    Julian · 3 years ago
    Hi! Very cool!! Is there a way to do the first option in Google Spreadsheets?
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Julian,
      Sorry we didn't test in Google sheets. Thanks for your comment.