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 as células da lista suspensa facilmente em uma planilha. Este artigo fornece um método VBA para definir um valor padrão na lista suspensa de validação de dados em detalhes.
Defina um valor padrão na lista suspensa de validação de dados com o código VBA
Defina um valor padrão na lista suspensa de validação de dados com o código VBA
Como a captura de tela abaixo, supondo que todas as células no intervalo B2: C7 contenham lista suspensa, e você deseja definir um valor padrão (diz - Escolha da lista -) nessa lista suspensa antes de escolher os valores delas. Você pode tentar o seguinte código VBA.
1. Clique com o botão direito na guia da planilha com as listas suspensas de que você precisa para definir um valor padrão e clique em Ver código a partir do menu.
2. No Microsoft Visual Basic para Aplicações janela, copie e cole o seguinte código VBA na janela de código.
Código VBA: defina 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
Note: você pode alterar o valor padrão no código VBA para o que você precisa.
6. aperte o F5 chave para executar o código. Você pode ver que os valores padrão são adicionados a todas as células da lista suspensa, conforme a imagem mostrada abaixo.
Notas:
Artigos relacionados:
- Como autocompletar ao digitar na lista suspensa do Excel?
- Como criar um calendário de lista suspensa no Excel?
- Como criar uma lista suspensa pesquisável no Excel?
- Como criar uma lista suspensa com várias seleções ou valores no Excel?
- Como preencher automaticamente outras células ao selecionar valores na lista suspensa do 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!