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 Sub

Observaçã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.

Potencialize suas capacidades no Excel com ferramentas alimentadas por IA. Baixe Agora e experimente uma eficiência como nunca antes!

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?