Como criar uma lista pendente no Excel, mas exibir um valor diferente?
Na folha de cálculo do Excel, pode criar rapidamente uma lista pendente com a funcionalidade Validação de Dados — mas já alguma vez tentou mostrar um valor diferente ao clicar nessa lista? Por exemplo, suponha que tem os seguintes dados em duas colunas: Coluna A (Nome) e Coluna B (Número). Pretende criar uma lista pendente com os valores da coluna Nome, mas, ao selecionar um nome nessa lista, o valor correspondente da coluna Número deve ser exibido, tal como ilustrado na imagem seguinte. Este artigo explica detalhadamente como realizar esta tarefa.
Criar lista pendente, mas mostrar um valor diferente na célula da lista pendente
Criar lista pendente, mas mostrar um valor diferente na célula da lista pendente
Para concluir esta tarefa, siga os passos seguintes:
1. Crie um Nome de célula para os valores que pretende utilizar na lista pendente. Neste exemplo, introduzo o nome «dropdown» na Caixa de Nome e, em seguida, prima Enter. Veja a imagem:
2. Em seguida, selecione as células onde pretende inserir a lista pendente e clique em «Dados» > «Validação de Dados» > «Validação de Dados». Veja a imagem:
3. Na caixa de diálogo «Validação de Dados», no separador «Definições», selecione «Lista» no menu pendente «Permitir» e, em seguida, clique no botão 
para escolher a lista «Nome» que pretende utilizar como valores da lista pendente na caixa de texto «Origem». Veja a imagem:
4. Após inserir a lista pendente, clique com o botão direito do rato no separador da Planilha Atual e selecione «Ver Código» no menu de contexto. Na janela do «Microsoft Visual Basic para Aplicações» que se abre, copie e cole o código seguinte no «Módulo» em branco:
Código VBA: Mostrar um valor diferente da lista pendente:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
selectedNa = Target.Value
If Target.Column = 5 Then
selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("dropdown"), 2, False)
If Not IsError(selectedNum) Then
Target.Value = selectedNum
End If
End If
End Sub
Nota: No código acima, o número 5 presente na instrução «If Target.Column = [[PH_17]] Then» corresponde ao número da coluna onde está localizada a sua lista suspensa. Já o termo «dropdown» em «selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range(»dropdown«), [[PH_16]], False)» refere-se ao nome do intervalo que definiu no passo 1. Pode ajustar ambos os valores conforme necessário.
5. Em seguida, guarde e feche este código. Agora, ao selecionar um item da lista pendente, será apresentado na mesma célula o valor correspondente diferente. Veja a imagem:
Lista pendente avançada do Kutools
O «Kutools para Excel» eleva as listas suspensas a um novo patamar com a sua funcionalidade «Lista Suspensa Avançada», oferecendo opções poderosas de personalização que ultrapassam as capacidades padrão do Excel. Com esta ferramenta, pode criar:
- Criar lista suspensa com seleções múltiplas
- Lista suspensa com caixas de seleção
- Torne a lista pendente pesquisável e com pop-up automático
Kutools para Excel oferece mais de 300 funcionalidades avançadas para simplificar tarefas complexas e potenciar a sua criatividade e eficiência. Agora, o Kutools integra inteligência artificial para tornar o processamento de dados mais inteligente e automatizado.
Demonstração: Criar lista pendente, mas mostrar Valor diferente no Excel
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