Como ampliar ou reduzir as células ao clicar na lista de validação de dados no Excel?
A fonte na lista de validação de dados é fixa, independentemente do tamanho da fonte que você altere na planilha. Aqui, apresento o código de macro para ampliar ou reduzir ao clicar nas células da lista de validação de dados no Excel.
Ampliar ou reduzir a lista de validação de dados
Ampliar ou reduzir a lista de validação de dados
Para ampliar uma lista de validação de dados específica, você pode usar o código abaixo.
1. Clique com o botão direito na aba da planilha que você está usando, clique em Visualizar Código para habilitar a janela Microsoft Visual Basic for Applications.
2. Na janela, copie e cole o código no script. Veja a captura de tela:
VBA: Ampliar uma lista de validação de dados específica
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20171215
On Error GoTo xErr
If Target.Validation.Type > -1 Then
ActiveWindow.Zoom = 140
Exit Sub
End If
xErr:
ActiveWindow.Zoom = 100
End Sub
3. Salve o código e volte para a planilha; ao clicar na célula C1, que contém a lista de validação de dados, o zoom será aumentado.
![]() | ![]() | ![]() |
Dica:
Se você quiser ampliar ou reduzir ao clicar em qualquer lista de validação de dados, poderá usar este código:
VBA: Ampliar ou reduzir ao clicar na lista de validação de dados
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20171215
On Error GoTo xErr
If Target.Validation.Type > -1 Then
ActiveWindow.Zoom = 140
Exit Sub
End If
xErr:
ActiveWindow.Zoom = 100
End Sub
Artigos Relacionados:
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