Como vlookup e retornar a cor de fundo junto com o valor de pesquisa no Excel?
Supondo que você tenha uma tabela como a imagem mostrada abaixo. Agora você deseja verificar se um valor especificado está na coluna A e, em seguida, retornar o valor correspondente junto com a cor de fundo na coluna C. Como fazer isso? O método do artigo pode ajudá-lo a resolver o problema.
Vlookup e cor de fundo de retorno com valor de pesquisa por função definida pelo usuário
Vlookup e cor de fundo de retorno com valor de pesquisa por função definida pelo usuário
Faça o seguinte para pesquisar um valor e retornar seu valor correspondente junto com a cor de fundo no Excel.
1. Na planilha contém o valor que você deseja ver, clique com o botão direito na guia da planilha e selecione Ver código no menu de contexto. Veja a imagem:
2. Na abertura Microsoft Visual Basic para Aplicações janela, copie o código VBA abaixo na janela Código.
Código VBA 1: Vlookup e cor de fundo de retorno com o valor de pesquisa
Sub Worksheet_Change(ByVal Target As Range)
Dim I As Long
Dim xKeys As Long
Dim xDicStr As String
On Error Resume Next
Application.ScreenUpdating = False
xKeys = UBound(xDic.Keys)
If xKeys >= 0 Then
For I = 0 To UBound(xDic.Keys)
xDicStr = xDic.Items(I)
If xDicStr <> "" Then
Range(xDic.Keys(I)).Interior.Color = _
Range(xDic.Items(I)).Interior.Color
Else
Range(xDic.Keys(I)).Interior.Color = xlNone
End If
Next
Set xDic = Nothing
End If
Application.ScreenUpdating = True
End Sub
3. Então clique inserção > Móduloe copie o código 2 do VBA abaixo na janela Módulo.
Código VBA 2: Vlookup e cor de fundo de retorno com o valor de pesquisa
Public xDic As New Dictionary
Function LookupKeepColor (ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
Dim xFindCell As Range
On Error Resume Next
Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
If xFindCell Is Nothing Then
LookupKeepColor = ""
xDic.Add Application.Caller.Address, ""
Else
LookupKeepColor = xFindCell.Offset(0, xCol - 1).Value
xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address
End If
End Function
4. Depois de inserir os dois códigos, clique em Ferramentas > Referências. Em seguida, verifique o Tempo de execução de scripts da Microsoft caixa no Referências - VBAProject caixa de diálogo. Veja a imagem:
5. aperte o outro + Q chaves para sair do Microsoft Visual Basic para Aplicações janela e volte para a planilha.
6. Selecione uma célula em branco adjacente ao valor de pesquisa e insira a fórmula =LookupKeepColor(E2,$A$1:$C$8,3) na barra de fórmulas e, em seguida, pressione a tecla Enter.
Note: Na fórmula, E2 contém o valor que você procurará, $ A $ 1: $ C $ 8 é o intervalo da mesa e o número 3 significa que o valor correspondente que você retornará está localizado na terceira coluna da tabela. Altere-os conforme necessário.
7. Continue selecionando a primeira célula de resultado e arraste o indicador de preenchimento para baixo para obter todos os resultados junto com sua cor de fundo. Veja a imagem.
Artigos relacionados:
- Como copiar a formatação de origem da célula de pesquisa ao usar o Vlookup no Excel?
- Como vlookup e retornar o formato de data em vez de número no Excel?
- Como usar vlookup e sum no Excel?
- Como vlookup retornar o valor na célula adjacente ou seguinte no Excel?
- Como vlookup valor e retornar verdadeiro ou falso / sim ou não 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!