Como definir um valor padrão na lista suspensa de validação de dados no Excel?
Definir um valor padrão na lista suspensa de validação de dados ajuda outras pessoas a identificar facilmente, à primeira vista, as células com listas suspensas em uma planilha. Este artigo fornece um método VBA para definir um valor padrão na lista suspensa de validação de dados detalhadamente.
Defina um valor padrão na lista suspensa de validação de dados com código VBA
Defina um valor padrão na lista suspensa de validação de dados com código VBA
Como na captura de tela abaixo, supondo que todas as células no intervalo B2:C7 contenham uma lista suspensa e você deseja definir um valor padrão (digamos - Escolha da lista -) nessas listas suspensas antes de escolher valores delas. Você pode tentar o seguinte código VBA.
1. Clique com o botão direito do mouse na guia da planilha com as listas suspensas para as quais você precisa definir um valor padrão, depois clique em Visualizar Código no menu.
2. Na janela Microsoft Visual Basic for Applications, copie e cole o seguinte código VBA na janela Código.
Código VBA: define um valor padrão na lista suspensa de validação de dados
Sub DropDownListToDefault()
Dim xCell As Range
Dim xRg As Range
Dim xAcCell As Range
Dim xScreen As Boolean
On Error Resume Next
Set xAcCell = Application.ActiveCell
Set xRg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
If xRg Is Nothing Then
MsgBox "No data validation drop-down lists in current worksheet", vbInformation, "Kutools for Excel"
Exit Sub
End If
xScreen = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell.Validation.Type = 3 Then
If xCell.Value = "" Then xCell.Value = "'- Choose from the list -"
End If
Next
xAcCell.Select
Application.ScreenUpdating = xScreen
End SubObservação: você pode alterar o valor padrão no código VBA para aquele que você precisa.
6. Pressione a tecla F5 para executar o código. Você verá que os valores padrão são adicionados a todas as células da lista suspensa, como mostrado na captura de tela abaixo.
Notas:
Desbloqueie a Magia do Excel com o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Artigos relacionados:
- Como autocompletar ao digitar na lista suspensa do Excel?
- Como criar um calendário em lista suspensa no Excel?
- Como criar uma lista suspensa pesquisável no Excel?
- Como criar uma lista suspensa com múltiplas seleções ou valores no Excel?
- Como autopreencher outras células ao selecionar valores na lista suspensa do Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins