Como destacar todas as células referenciadas por uma fórmula no Excel?
Este artigo está falando sobre como destacar todas as células que foram referenciadas por uma fórmula no Excel. Siga os dois métodos abaixo para fazer isso.
Destaque todas as células referenciadas por uma fórmula com a tecla de atalho
Destaque todas as células referenciadas por uma fórmula com o código VBA
Destaque todas as células referenciadas por uma fórmula com a tecla de atalho
Esta seção recomendará que você use a tecla de atalho para selecionar todas as células que foram referenciadas por uma fórmula e, em seguida, preencha manualmente com a cor delas.
1. Supondo que E1 seja uma célula de fórmula, você precisa destacar todas as células que foram referenciadas por ela. Selecione a célula de fórmula E1 e pressione Ctrl + [ (os colchetes abertos) simultaneamente.
2. Agora que as células referenciadas por esta fórmula estão selecionadas, especifique uma cor de preenchimento para destacá-las. Veja a imagem:
Destaque todas as células referenciadas por uma fórmula com o código VBA
Você também pode executar o código VBA para destacar todas as células que foram referenciadas por uma fórmula no Excel.
1. Pressione outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, por favor clique inserção > Módulo. Em seguida, copie e cole o código VBA abaixo na janela Módulo.
Código VBA: destaque todas as células referenciadas por uma fórmula no Excel
Sub HighlightCellsReferenced()
Dim rowCnt As Integer
Dim i As Integer, j As Integer, strleng As Integer
Dim strTxt As String, strFml As String
Dim columnStr, cellsAddress As String
Dim xRg As Range, yRg As Range
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Please select formula cell(s)...", _
Title:="Kutools For Excel", Type:=8)
strTxt = ""
Application.ScreenUpdating = False
For Each yRg In xRg
If yRg.Value <> "" Then
strFml = yRg.Formula + " "
strFml = Replace(strFml, "(", " ")
strFml = Replace(strFml, ")", " ")
strFml = Replace(strFml, "-", " ")
strFml = Replace(strFml, "+", " ")
strFml = Replace(strFml, "*", " ")
strFml = Replace(strFml, "/", " ")
strFml = Replace(strFml, "=", " ")
strFml = Replace(strFml, ",", " ")
strFml = Replace(strFml, ":", " ")
For j = 1 To Len(strFml)
If Mid(strFml, j, 1) <> " " Then
cellsAddress = cellsAddress + Mid(strFml, j, 1)
Else
On Error Resume Next
Range(cellsAddress).Interior.ColorIndex = 3
cellsAddress = ""
End If
Next
End If
Next yRg
Application.ScreenUpdating = True
End Sub
3. aperte o F5 chave para executar o código. No surgimento Kutools for Excel caixa de diálogo, selecione uma célula de fórmula ou várias células de fórmula nas quais você precisa destacar as células referenciadas com base e clique no botão OK botão. Veja a imagem:
Agora, todas as células referenciadas com base na (s) célula (s) da fórmula selecionada (s) são realçadas em vermelho imediatamente, conforme mostrado abaixo na captura de tela.
Artigos relacionados:
- Como manter a referência da célula da fórmula constante no Excel?
- Como referenciar o nome da guia na célula no Excel?
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!