Lista pendente do Excel: criar, editar, remover e outras operações avançadas

Uma lista suspensa é semelhante a uma caixa de lista que permite aos utilizadores escolher um valor a partir de uma lista predefinida. Este tutorial demonstra as operações básicas com listas suspensas no Excel: criar, editar e remover. Além disso, apresenta operações avançadas para potenciar a funcionalidade das listas suspensas e resolver problemas mais complexos no Excel.

Criar lista pendente simples

Para utilizar uma lista pendente, comece por aprender a criá-la. Esta secção apresenta 6 formas de criar uma lista suspensa no Excel.

Criar lista pendente a partir de um intervalo de células

Aqui, mostramos como criar uma lista suspensa a partir de um intervalo de células no Excel. Siga estes passos:

1. Selecione o intervalo de células onde pretende inserir a lista pendente.

Dica: Pode criar uma lista suspensa para várias células não contíguas ao mesmo tempo, mantendo a tecla Ctrl premida enquanto seleciona as células individualmente.

2. Clique em «Dados» > «Validação de Dados» > «Validação de Dados».

3. Na caixa de diálogo «Validação de Dados», no separador «Definições», configure as opções conforme indicado a seguir.

Notas:

A lista pendente já está criada. Ao clicar na célula correspondente, surge uma seta ao seu lado — basta clicar nessa seta para expandir a lista e selecionar o item pretendido.

Criar lista pendente dinâmica a partir de uma tabela

Pode converter o seu intervalo de dados numa tabela do Excel e, em seguida, criar uma lista pendente dinâmica com base nesse intervalo de tabela.

1. Selecione o intervalo de dados original e, em seguida, prima as teclas «Ctrl» + «T».

2. Clique em «OK» na caixa de diálogo «Criar Tabela» que surge, convertendo assim o intervalo de dados numa tabela.

3. Selecione o intervalo de células onde pretende inserir a lista suspensa e, em seguida, clique em «Dados» > «Validação de Dados» > «Validação de Dados».

4. Na caixa de diálogo «Validação de Dados», terá de:

Assim, as listas suspensas dinâmicas são criadas. Ao adicionar ou remover dados do intervalo da tabela, os valores nas listas suspensas são atualizados automaticamente.

Criar lista pendente dinâmica com fórmulas

Além de criar uma lista pendente dinâmica a partir de um intervalo de tabela, pode também usar uma fórmula para criar uma lista pendente dinâmica no Excel.

1. Selecione as células onde deseja exibir as listas pendentes.

2. Clique em «Dados» > «Validação de Dados» > «Validação de Dados».

3. Na caixa de diálogo «Validação de Dados», configure as opções conforme indicado a seguir.

=OFFSET($A$13,0,0,COUNTA($A$13:$A$24),1)

Assim, as listas suspensas dinâmicas são criadas. Ao adicionar ou remover dados do intervalo específico, os valores nas listas suspensas são atualizados automaticamente.

Criar lista pendente a partir de um intervalo nomeado

Também pode criar uma lista suspensa a partir de um intervalo nomeado no Excel.

1. Em primeiro lugar, crie um intervalo nomeado: selecione o intervalo de células que servirá de base, introduza o nome pretendido na caixa «Nome» e prima Enter.

2. Clique em «Dados» > «Validação de Dados» > «Validação de Dados».

3. Na caixa de diálogo «Validação de Dados», configure-a da seguinte forma:

A lista pendente foi agora criada com base nos dados de um intervalo nomeado.

Criar lista pendente a partir de outro livro

Suponha que existe um livro com o nome “SourceData” e que pretende criar uma lista suspensa noutro livro com base nos dados desse livro “SourceData”. Siga os passos abaixo:

1. Abra o livro “SourceData”. Nele, selecione os dados com base nos quais pretende criar uma lista suspensa, introduza um nome na caixa «Nome» e prima Enter.

Neste exemplo, dei o nome «Cidade» ao intervalo.

2. Abra a folha de cálculo onde pretende inserir a lista pendente e clique em «Fórmulas» > «Definir Nome».

3. Na caixa de diálogo «Novo Nome», crie um intervalo nomeado com base no nome da célula que definiu no livro “SourceData”, configurando-o conforme indicado a seguir.

=SourceData.xlsx!City

Notas:

4. Abra o livro onde pretende inserir a lista pendente, selecione as células destinadas à lista e clique em «Dados» > «Validação de Dados» > «Validação de Dados».

5. Na caixa de diálogo «Validação de Dados», configure as opções conforme indicado a seguir.

As listas pendentes já foram inseridas no Intervalo Selecionado, e os valores pendentes provêm de outro livro.

Crie facilmente uma Lista suspensa com uma ferramenta incrível

Aqui, recomendo vivamente a funcionalidade «Criar Lista Suspensa Simples» do Kutools para Excel. Com ela, pode criar facilmente listas suspensas com valores específicos de células ou com listas personalizadas predefinidas no Excel.

1. Selecione as células onde pretende inserir a lista suspensa e, em seguida, clique em «Kutools» > «Lista suspensa» > «Criar Lista suspensa simples».

2. Na caixa de diálogo «Criar lista pendente simples», configure as opções conforme indicado a seguir.

Nota: Se pretender criar uma lista suspensa com base numa lista personalizada predefinida no Excel, selecione a opção «Lista Personalizada» na secção «Origem», escolha uma lista personalizada na caixa «Lista Personalizada» e, em seguida, clique no botão «OK».

As listas pendentes já foram inseridas no Intervalo Selecionado.

Editar lista pendente

Se pretender editar uma lista pendente, os métodos nesta secção poderão ajudá-lo.

Editar uma lista pendente com base num intervalo de células

Para editar uma lista pendente com base num intervalo de células, proceda da seguinte forma:

1. Selecione as células que contêm a lista pendente que pretende editar e, em seguida, clique em «Dados» > «Validação de Dados» > «Validação de Dados».

2. Na caixa de diálogo «Validação de Dados», atualize as referências de células na caixa «Origem» e clique em «OK».

Editar uma lista pendente com base num intervalo nomeado

Suponha que adicione ou remova valores no intervalo nomeado e que a lista pendente tenha sido criada com base nesse intervalo. Para que os valores atualizados apareçam nas listas pendentes, siga os passos abaixo:

1. Clique em «Fórmulas» > «Gerenciador de Nomes».

Dica: Pode abrir a janela «Gerenciador de Nomes» premindo Ctrl+F3.

2. Na janela «Gerenciador de Nomes», configure conforme indicado a seguir:

2,1) Na caixa «Nome», selecione o intervalo nomeado que pretende atualizar;

2,2) Na secção «Refere-se a», clique no botão para selecionar o novo intervalo da sua lista pendente;

2,3) Clique no botão «Fechar».

3. Em seguida, surge uma caixa de diálogo do Microsoft Excel; clique no botão «Sim» para guardar as alterações.

As listas pendentes com base neste intervalo nomeado foram agora atualizadas.

Remover lista pendente

Esta secção explica como remover listas pendentes no Excel.

Remover lista pendente com a funcionalidade incorporada do Excel

O Excel oferece uma funcionalidade integrada para remover facilmente listas pendentes da sua folha de cálculo. Siga estes passos:

1. Selecione o intervalo de células que contém a lista pendente que deseja remover.

2. Clique em «Dados» > «Validação de Dados» > «Validação de Dados».

3. Na caixa de diálogo «Validação de Dados», clique em «Limpar Tudo» e, de seguida, em «OK» para guardar as alterações.

As listas pendentes foram agora removidas da opção «Selecionar intervalo».

Remova facilmente listas pendentes com uma ferramenta incrível

O «Kutools para Excel» disponibiliza uma ferramenta prática – **«Limpar Restrições de Validação de Dados»** – que permite remover facilmente listas pendentes de um ou vários intervalos selecionados de uma só vez. Siga os passos abaixo:

1. Selecione o intervalo de células que contém a lista pendente que deseja remover.

2. Clique em «Kutools» > «Limitar entrada» > «Limpar Restrições de Validação de Dados». Veja a imagem:

3. Em seguida, surge a caixa de diálogo «Kutools para Excel» a perguntar se pretende limpar a lista pendente; clique em «OK».

As listas pendentes neste «Selecionar intervalo» são removidas imediatamente.

Adicionar cor à lista pendente

Em alguns casos, poderá precisar de criar uma lista pendente com código de cores para distinguir rapidamente os dados nas respetivas células. Esta secção apresenta dois métodos detalhados para resolver este desafio.

Adicionar cor à lista pendente com Usar Formatação Condicional

Pode criar regras condicionais para a célula com a lista pendente, de modo a aplicar-lhe uma codificação por cores. Siga estes passos:

1. Selecione as células que contêm a lista pendente que deseja codificar por cores.

2. Clique em «Base» > «Usar Formatação Condicional» > «Gerir Regras».

3. Na caixa de diálogo «Gestor de Regras – Formatação Condicional», clique no botão «Nova Regra».

4. Na caixa de diálogo «Nova Regra de Formatação», configure-a da seguinte forma:

4,1) Na caixa «Selecionar um Tipo de Regra», escolha a opção «Formatar apenas células que contenham»;

4,2) Na secção «Formatar apenas células com», selecione «Texto Específico» na primeira lista pendente, selecione «contendo» na segunda lista pendente e, em seguida, selecione o primeiro item da lista de origem na terceira caixa;

Dicas: Aqui selecionei a célula A16 na terceira caixa de texto. A16 é o primeiro item da lista de origem com base na qual criei a lista pendente.

4,3) Clique no botão «Formatar».

4,4) Na caixa de diálogo «Definir formato de célula», aceda ao separador «Preenchimento», escolha uma Cor de Fundo para o texto especificado e clique no botão «OK». Ou pode escolher uma determinada Cor da Fonte para o texto conforme necessário.

4,5) Clique no botão «OK» quando regressar à caixa de diálogo «Nova Regra de Formatação».

5. Ao regressar à caixa de diálogo «Usar Formatação Condicional – Gerir Regras», repita os passos 3 e 4 indicados acima para definir cores para outros itens da lista pendente. Assim que terminar de configurar as cores, clique em «OK» para guardar as alterações.

A partir de agora, ao selecionar um item na lista pendente, a célula será destacada com a Cor de Fundo especificada, de acordo com o texto escolhido.

Adicione facilmente cor à lista pendente com uma ferramenta incrível

Apresentamos a funcionalidade «Lista com Cores» do Kutools para Excel, que lhe permite adicionar facilmente cores a uma lista pendente no Excel.

1. Selecione as células que contêm a lista pendente à qual deseja adicionar cor.

2. Clique em «Kutools» > «Lista suspensa» > «Lista com Cores».

3. Na caixa de diálogo «Lista com Cores», siga estes passos:

Dica: Se pretender aplicar o Intervalo de Linha Destacada com base na seleção da lista pendente, escolha a opção «Linha Inteira» na secção «Aplicar a» e, em seguida, selecione as linhas que deseja destacar na caixa «Intervalo de Linha Destacada».

As listas pendentes estão agora codificadas por cores, como ilustrado nas imagens seguintes.

Destacar células com base na seleção Lista suspensa

Intervalo de Linha Destacada com base na seleção Lista suspensa

Criar uma lista pendente dependente no Excel ou nas Folhas Google

Uma lista pendente dependente permite-lhe apresentar opções com base no valor selecionado na primeira lista pendente. Se precisar de criar uma lista pendente dependente (em cascata) numa folha de cálculo do Excel ou nas Folhas Google, os métodos nesta secção poderão ajudá-lo.

Criar uma lista pendente dependente numa folha de cálculo do Excel

A demonstração seguinte apresenta a lista pendente dependente numa folha de cálculo do Excel.

Clique Como Criar uma Lista Pendente Dependente em Cascata no Excel? para obter um tutorial passo a passo.

Criar uma lista pendente dependente nas Folhas Google

Se pretender criar uma lista pendente dependente nas Folhas Google, consulte Como Criar uma Lista Pendente Dependente nas Folhas Google?

Criar listas pendentes pesquisáveis

Nas listas pendentes com longas listas de itens numa folha de cálculo, selecionar um item específico pode ser complicado. Se lembrar dos primeiros caracteres ou de vários caracteres consecutivos do item pretendido, pode usar a funcionalidade de pesquisa nas listas pendentes para o filtrar facilmente. Esta secção mostra como criar uma lista pendente pesquisável no Excel.

Supondo que os dados de origem com base nos quais pretende criar uma lista suspensa se encontrem na coluna A da Folha1, conforme ilustrado na imagem seguinte, siga estes passos para criar uma lista pendente pesquisável no Excel com esses dados.

1. Em primeiro lugar, crie uma coluna auxiliar junto à lista de Dados de Origem com uma fórmula matricial.

Neste caso, selecione a célula B2, introduza a fórmula seguinte e, em seguida, prima as teclas «Ctrl» + «Shift» + «Enter» para obter o primeiro resultado.

=IFERROR(INDEX($A$2:$A$50,SMALL(IFERROR(MATCH(IF(FIND(CELL("contents"),$A$2:$A$50)>0,$A$2:$A$50,""),$A$2:$A$50,0),""),ROW(A1))),"")

Selecione a célula do primeiro resultado e, em seguida, arraste a “alça de preenchimento” até ao fim da lista.

Nota: Nesta fórmula matricial, $A$2:$A$50 corresponde ao intervalo de Dados de Origem com base no qual será criada a lista suspensa. Ajuste-o de acordo com o seu intervalo de dados.

2. Clique em «Fórmulas» > «Definir Nome».

3. Na caixa de diálogo «Editar Nome», proceda da seguinte forma:

=OFFSET(Sheet1!$B$2,0,0,COUNTA(Sheet1!$B$2:$B$50)-COUNTIF(Sheet1!$B$2:$B$50,""),1)

Agora, crie a lista pendente com base no intervalo nomeado. Neste caso, irei criar a lista pendente pesquisável na Folha2.

4. Abra a Folha2, selecione o intervalo de células destinado à lista pendente e, em seguida, clique em «Dados» > «Validação de Dados» > «Validação de Dados».

5. Na caixa de diálogo «Validação de Dados», siga os passos abaixo.

5,1) Na caixa «Permitir», selecione «Lista»;

5,2) Clique na caixa «Origem» e, em seguida, prima a tecla «F3»;

5,3) Na caixa de diálogo «Colar Nome» que surge, selecione o intervalo nomeado que criou no passo 3 e clique em «OK»;

Dicas: Pode introduzir diretamente o intervalo nomeado como «=intervalo nomeado» na caixa «Origem».

5,4) Clique no separador «Alerta de Erro», desmarque a caixa «Mostrar alerta de erro após introdução de dados inválidos» e, finalmente, clique no botão «OK».

6. Clique com o botão direito no separador da folha (Folha2) e escolha «Ver Código» no menu de contexto.

7. Na janela «Microsoft Visual Basic para Aplicações» que se abre, copie o seguinte código VBA para o editor de código.

Código VBA: criar lista pendente pesquisável no Excel

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculate
End Sub

8. Prima as teclas «Alt» + «Q» para fechar a janela do Microsoft Visual Basic para Aplicações.

As listas pendentes pesquisáveis estão agora criadas. Se pretender selecionar um item, basta introduzir um ou vários caracteres consecutivos desse item na célula da lista pendente, clicar na seta pendente e, em seguida, os itens correspondentes ao conteúdo introduzido serão listados na lista pendente. Veja a imagem:

Nota: Este método diferencia entre maiúsculas e minúsculas.

Criar lista pendente mas mostrar Valor diferente

Suponha que criou uma lista pendente e, ao selecionar um item, pretende que outra coisa seja exibida na célula. Conforme demonstrado abaixo, criou uma lista pendente com base na Lista de nomes dos países e, ao selecionar um país na lista pendente, pretende que a abreviatura do nome do país selecionado seja exibida na célula. Esta secção fornece um método VBA para resolver este problema.

1. Do lado direito dos Dados de Origem (coluna com nomes de países), crie uma nova coluna contendo as abreviaturas dos países que pretende exibir na célula da lista pendente.

2. Selecione simultaneamente a lista de nomes dos países e a lista de abreviaturas, introduza um nome na caixa «Nome» e prima Enter.

3. Selecione as células para a lista pendente (neste caso, D2:D8) e, em seguida, clique em «Dados» > «Validação de Dados» > «Validação de Dados».

4. Na caixa de diálogo «Validação de Dados», configure conforme indicado a seguir.

5. Após criar a lista pendente, clique com o botão direito no separador da folha e selecione «Ver Código» no menu de contexto.

6. Na janela «Microsoft Visual Basic para Aplicações» que surge, copie o seguinte código VBA para o editor de código.

Código VBA: Mostrar Valor diferente na lista pendente

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20201027
    selectedNa = Target.Value
    If Target.Column = 4 Then
        selectedNum = Application.VLookup(selectedNa, ActiveSheet.Range("dropdown"), 2, False)
        If Not IsError(selectedNum) Then
            Target.Value = selectedNum
        End If
    End If
End Sub

Notas:

7. Prima as teclas «Alt» + «Q» para fechar a janela do Microsoft Visual Basic para Aplicações.

A partir de agora, ao selecionar um país na lista pendente, a sua abreviatura será automaticamente exibida na célula.

Criar uma lista pendente com caixas de seleção

Muitos utilizadores do Excel optam por criar uma lista suspensa com várias caixas de verificação, permitindo-lhes selecionar múltiplos itens marcando simplesmente as respetivas caixas.

Conforme ilustrado abaixo, ao clicar na célula com a lista pendente, surge uma caixa de listagem contendo uma caixa de verificação antes de cada item. Basta marcar as caixas de verificação desejadas para exibir os respetivos itens na célula.

Se pretender criar uma lista pendente com caixas de verificação no Excel, consulte Como Criar uma Lista Pendente com Múltiplas Caixas de Verificação no Excel?.

Adicionar preenchimento automático à lista pendente

Se tiver uma lista pendente de validação de dados com muitos itens, terá de percorrer a lista para cima e para baixo à procura do item pretendido ou digitar diretamente a palavra completa na caixa de listagem. Com preenchimento automático ao escrever a primeira letra, tudo se torna muito mais fácil.

Para ativar o preenchimento automático numa lista pendente numa folha de cálculo do Excel, consulte Como Ativar o Preenchimento Automático ao Digitar numa Lista Pendente do Excel?.

Filtrar dados com base na seleção da lista pendente

Esta secção mostra como aplicar fórmulas para criar um filtro de lista pendente que extraia dados com base na opção selecionada.

1. Em primeiro lugar, tem de criar uma lista pendente com os valores específicos com base nos quais irá extrair os dados.

Dicas: siga os passos acima para criar uma lista pendente no Excel.

Criar uma lista pendente com uma lista única de itens

Se existirem duplicados na sua gama e não pretender criar uma lista pendente com itens repetidos, pode gerar uma lista única da seguinte forma.

1) Copie as células que servirão de base para a sua Lista Suspensa utilizando as teclas «Ctrl» + «C» e, em seguida, cole-as numa nova gama.

2) Selecione as células na nova gama e clique em «Dados» > «Remover duplicatas».

3) Na caixa de diálogo «Remover duplicatas», clique no botão «OK».

4) Em seguida, surge uma caixa de diálogo do Microsoft Excel a indicar quantos duplicados foram removidos; clique em «OK».

Agora já tem a lista única de itens e pode criar uma lista suspensa com base nessa lista.

2. De seguida, crie três colunas auxiliares da seguinte forma:

2,1) Para a primeira coluna auxiliar (escolhi a coluna D como primeira coluna auxiliar), introduza a fórmula seguinte na primeira célula (exceto no cabeçalho da coluna) e prima a tecla «Enter». Selecione a célula com o resultado e arraste a «Alça de Preenchimento» até ao fim do intervalo.

=ROWS($A$2:A2)

2,2) Para a segunda coluna auxiliar (coluna E), introduza a fórmula seguinte na célula E2 e prima a tecla «Enter». Selecione E2 e arraste a «Alça de Preenchimento» até ao fim do intervalo.

Nota: Se não for selecionado nenhum valor na lista pendente, os resultados das fórmulas serão apresentados em branco.

=IF(A2=$H$2,D2,"")

2,3) Para a terceira coluna auxiliar (coluna F), introduza a fórmula seguinte em F2 e prima a tecla «Enter». Selecione F2 e arraste a «Alça de Preenchimento» até ao fim do intervalo.

Nota: Se não for selecionado nenhum valor na lista pendente, os resultados das fórmulas aparecerão em branco.

=IFERROR(SMALL($E$2:$E$17,D2),"")

3. Crie uma gama com base no Intervalo de Dados Original para apresentar os dados extraídos utilizando as fórmulas abaixo.

3,1) Selecione a primeira célula de saída (selecionei J2), introduza a fórmula seguinte e prima a tecla «Enter».

=IFERROR(INDEX($A$2:$C$17,$F2,COLUMNS($J$2:J2)),"")

3,2) Selecione a célula com o resultado e arraste a «Alça de Preenchimento» duas células para a direita.

3,3) Mantenha o intervalo J2:L2 selecionado e arraste a Alça de Preenchimento até ao fim do intervalo.

Notas:

Agora, um filtro de lista pendente foi criado, permitindo extrair facilmente dados do Intervalo de Dados Original com base na seleção efetuada na lista pendente.

Selecionar vários itens da lista pendente

Por predefinição, a lista pendente permite que os utilizadores selecionem apenas um item de cada vez numa célula — ao reselecionar um item, o anterior é substituído. No entanto, se lhe for pedido que selecione vários itens de uma lista pendente e os mostre todos na mesma célula, tal como no exemplo abaixo, como pode fazê-lo?

Para selecionar vários itens de uma lista pendente no Excel, consulte Como criar uma lista suspensa com múltiplas seleções ou valores no Excel?. Este tutorial apresenta dois métodos detalhados para o ajudar a resolver este desafio.

Definir valor predefinido (pré-selecionado) para a lista pendente

Por predefinição, uma célula com lista pendente aparece em branco e a seta só surge quando clica na célula. Como identificar rapidamente, à primeira vista, quais as células que contêm listas pendentes numa folha de cálculo?

Esta secção mostra como definir um valor predefinido (pré-selecionado) para a lista pendente no Excel. Siga estes passos:

Antes de aplicar os dois métodos abaixo, é necessário criar uma lista suspensa e efetuar algumas configurações da seguinte forma.

1. Selecione as células destinadas à lista pendente e clique em «Dados» > «Validação de Dados» > «Validação de Dados».

Dicas: Se já tiver criado a lista pendente, selecione as células que contêm essa lista e, em seguida, clique em «Dados» > «Validação de Dados» > «Validação de Dados».

2. Na caixa de diálogo «Validação de Dados», configure-a da seguinte forma:

2,1) Na caixa «Permitir», selecione «Lista»;

2,2) Na caixa «Origem», selecione o Dados de Origem que pretende apresentar na lista pendente.

Dicas: Se já tiver criado a lista pendente, ignore estes dois passos.

2,3) Em seguida, aceda ao separador «Alerta de Erro» e desmarque a caixa «Mostrar alerta de erro após introdução de dados inválidos»;

2,4) Clique no botão «OK».

Após criar a lista pendente, utilize um dos métodos abaixo para definir um valor predefinido.

Definir valor predefinido para lista pendente com fórmula

Pode aplicar a fórmula abaixo para definir um valor predefinido na lista pendente que criou nos passos anteriores.

1. Selecione a célula com a lista pendente, introduza a fórmula abaixo e prima Enter para exibir o valor predefinido. Se as células da lista pendente forem consecutivas, basta arrastar a alça de preenchimento da célula de resultado para aplicar a fórmula às restantes células.

=IF(C2="", "--Choose item from the list--")

Notas:

Definir valor predefinido para todas as listas pendentes numa folha de cálculo de uma só vez com código VBA

Suponha que existem várias Lista suspensa localizadas em gamas diferentes na sua folha de cálculo. Para definir um valor predefinido para todas elas, teria de aplicar repetidamente a fórmula, o que é moroso. Esta secção disponibiliza um código VBA útil para definir o valor predefinido para todas as listas pendentes numa folha de cálculo de uma só vez.

1. Abra a folha de cálculo que contém as listas pendentes cujo valor predefinido pretende definir e prima as teclas «Alt» + "F11" para abrir a janela «Microsoft Visual Basic para Aplicações».

2. Na janela «Microsoft Visual Basic para Aplicações», clique em «Inserir» > «Módulo» e cole o código VBA abaixo na janela de código.

Código VBA: Definir valor predefinido para todas as listas pendentes numa folha de cálculo de uma só vez

Sub SetDropDownListToDefaultValue()
'Updated by Extendoffice 20201026
Dim xWs As Worksheet
Dim xRg, xFRg As Range
Dim xET: xET = Null
Dim xStr As String
xStr = "- Choose from the list -"
Set xWs = Application.ActiveSheet
Set xRg = xWs.UsedRange.Cells
    On Error Resume Next
    For Each xFRg In xRg
    xET = Null
    xET = xFRg.Validation.Type
    If Not IsNull(xET) Then
        If xFRg.Validation.Type = 3 Then
            xFRg.Value = "'" & xStr
        End If
    End If
    Next
End Sub

Notas: No código acima, «- Escolha da lista -» é o valor predefinido apresentado na célula da lista pendente. Pode alterar este valor conforme necessário.

3. Prima a tecla "F5" para abrir a caixa de diálogo Macros. Certifique-se de que «DropDownListToDefault» está selecionado na caixa «Nome da Macro» e clique em «Executar» para executar o código.

O valor predefinido especificado é imediatamente inserido nas células da lista pendente.

Aumentar o Tamanho da fonte da lista pendente

Normalmente, a lista pendente tem um tamanho de fonte fixo. Se o tamanho da fonte for demasiado pequeno para ler, experimente o método VBA abaixo para o ampliar.

1. Abra a folha de cálculo que contém as listas pendentes cujo tamanho da fonte pretende aumentar, clique com o botão direito do rato no separador da folha e selecione «Ver Código» no menu de contexto.

2. Na janela «Microsoft Visual Basic para Aplicações», copie o código VBA abaixo para o editor de código.

Código VBA: Ampliar o Tamanho da fonte das listas pendentes numa folha de cálculo

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'updateby Extendoffice 20201027
    On Error GoTo LZoom
    Dim xZoom As Long
    xZoom = 100
    If Target.Validation.Type = xlValidateList Then xZoom = 130
LZoom:
    ActiveWindow.Zoom = xZoom
End Sub

Nota: Aqui, «xZoom = 130» no código significa que irá ampliar o tamanho da fonte de todas as listas suspensas na folha atual para 130. Pode ajustar este valor conforme necessário.

3. Prima as teclas «Alt» + «Q» para fechar a janela do Microsoft Visual Basic para Aplicações.

A partir de agora, ao clicar na célula pendente, o nível de zoom da Planilha Atual será ampliado. Ao clicar na seta pendente, verá que o tamanho da fonte de todos os itens da lista pendente também está ampliado.

Após selecionar um item da lista pendente, clique em qualquer célula fora dela para regressar ao nível de zoom original.

As Melhores Ferramentas de Produtividade para o Office

🤖	KUTOOLS AI Assistente: Revolucione o Análise de Dados com base em:Execução Inteligente   |  Gerar Código|  Criar fórmulas personalizadas  |  Analisar Dados e Gerar Gráficos|  Invocar Funções Aprimoradas…
	Funcionalidades Populares:Localizar, Destacar ou Marcar Duplicatas   |  Excluir linhas em branco   |  Combinar Colunas ou Células sem Perder Dados   |   Arredondamento sem usar fórmula...
	Super PROC:VLookup com Múltiplos Critérios  |  VLookup com Múltiplos Valores  |   VLookup em Múltiplas Folhas   |   Correspondência Fuzzy....
	Lista Suspensa Avançada:Criar Rapidamente Lista de Seleção   |  Lista de Seleção Dependente   |  Lista de Seleção com Múltipla Escolha....
	Gestor de Colunas:Adicionar um Número Específico de Colunas|Mover Colunas|Alternar Estado de Visibilidade de Colunas Ocultas|Comparar Intervalos e Colunas...
	Funcionalidades em Destaque:Grade de foco   |  Visualização de Design   |Barra de fórmulas aprimorada   | Gestor de Pastas de Trabalho e Folhas   |  Biblioteca de Recursos(Texto Automático)|  Seleção de Data   |  Consolidar Planilhas  |  Encriptar/Descriptografar Células   | Enviar Emails por Lista   |  Super Filtro   |   Filtro Especial(Filtrar Células com Fonte em Negrito/itálico/rasurado...) ...
	Principais Conjuntos de Ferramentas 15:12 Ferramentasde Texto(Adicionar Texto,Excluir Caracteres Específicos, ...)|   50+Tiposde Gráfico(Gráfico de Gantt, ...)|   40+ Fórmulas Práticas(Calcular a idade com base na data de nascimento, ...)|   19 Ferramentasde Inserção(Inserir QR Code,Inserir Imagem a Partir do Caminho, ...)|   12 Ferramentasde Conversão(Converter em Palavras,Conversão de moeda, ...)|   7 Ferramentasde Mesclar e Dividir(Mesclar Linhas Avançado,Dividir Células, ...)|... e muito mais

Utilize o Kutools na sua língua preferida – suporta inglês, espanhol, alemão, francês, chinês e mais 40+ idiomas!

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...

Mais detalhes sobre Kutools para Excel...Transferência gratuita...

---

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!

Mais detalhes sobre Office Tab...Transferência gratuita...

---

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

Mais detalhes sobre Kutools for Office...Transferência gratuita...