KutoolsforOffice — Uma solução, cinco ferramentas poderosas.Fazer mais com menos esforço.

Como aumentar ou reduzir o zoom das células ao clicar na lista de validação de dados no Excel?

AutorSun Data de Modificação

O tipo de letra na lista de validação de dados é fixo, independentemente do tamanho definido na folha. Apresentamos abaixo uma macro que permite aumentar ou reduzir o zoom ao clicar em células com listas de validação de dados no Excel.

Aumentar ou reduzir o zoom da lista de validação de dados

Aumentar ou reduzir o zoom da lista de validação de dados

Para aumentar o zoom de uma lista específica de validação de dados, utilize o código abaixo.

1. Clique com o botão direito do rato no separador da folha que utiliza e clique em Ver Código para abrir a janela do Microsoft Visual Basic for Applications.

uma captura de ecrã da abertura do editor VBA

2. Na janela aberta, copie e cole o código no script — veja a imagem:

VBA: Aumentar o zoom de uma lista específica 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

uma captura de ecrã que mostra como utilizar o código VBA

3. Guarde o código e regresse à folha. Ao clicar na célula C1, que contém a lista de validação de dados, o zoom será ampliado automaticamente.

uma captura de ecrã que mostra os dados originaisuma captura de ecrã de uma setauma captura de ecrã que mostra o novo zoom ao selecionar a célula especificada

Dica:

Se pretender aumentar ou reduzir o zoom ao clicar em qualquer lista de validação de dados, pode utilizar este código:

VBA: Aumentar ou reduzir o zoom ao clicar numa 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

uma captura de ecrã da modificação do tamanho do zoom no código VBA para satisfazer as suas necessidades

Artigos Relacionados:

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

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!

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.

ExcelWordOutlookTabsPowerPoint
  • 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