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

Como alterar rapidamente o tamanho da fonte com base no valor de uma célula no Excel?

AutorSun Data de Modificação
Uma captura de ecrã que mostra uma tabela no Excel com tamanhos de letra variáveis com base nos valores na coluna adjacente
No Excel, pode alterar o Tamanho da fonte das células como desejar, mas já alguma vez tentou alterar o Tamanho da fonte com base no valor de outra coluna, tal como ilustrado na captura de ecrã abaixo? Neste artigo, apresento-lhe alguns códigos VBA para o ajudar a alterar rapidamente o Tamanho da fonte com base no valor da célula no Excel.

Alterar o Tamanho da fonte com base no valor de outra coluna
Alterar o Tamanho da fonte com base no valor da célula e no comprimento dos caracteres

seta azul para a direita em balão Alterar o Tamanho da fonte com base no valor de outra coluna

Para ajustar o tamanho da fonte com base no valor de outra coluna, aqui está um código VBA que o pode ajudar.

1. Aceda à folha em que pretende alterar o tamanho da fonte com base noutra coluna e prima Alt + F11 em simultâneo para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e, em seguida, cole o código VBA abaixo no Módulo. Veja a captura de ecrã:

VBA: Alterar o Tamanho da fonte com base no valor de outra coluna

Sub fontchange()
'UpdatebyExtendoffice20160614
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Select cells that you want to change font size:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "Only can select one column", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Font.Size = xCell.Offset(, 1).Value
    Next
    Application.ScreenUpdating = True
End Sub

Uma captura de ecrã que mostra o código colado no editor do VBA

3. Prima a tecla F5. Surgirá uma caixa de diálogo; selecione as células cujo tamanho da fonte pretende alterar. Veja a captura de ecrã:
Uma captura de ecrã que mostra a caixa de diálogo «Selecionar as células cujo tamanho da letra pretende alterar»

4. Clique em OK e, em seguida, as células da coluna selecionada terão o seu tamanho de fonte ajustado com base nos valores da coluna adjacente.
Uma captura de ecrã que mostra o resultado no Excel após executar o código VBA, em que o tamanho da letra é ajustado com base nos valores da coluna adjacente

seta azul para a direita em balão Alterar o Tamanho da fonte com base no valor da célula e no comprimento dos caracteres

Se pretender ajustar o tamanho da fonte com base no valor da própria célula ou no comprimento dos seus caracteres — por exemplo, quando o valor for maior que 10 ou o número de caracteres exceder 5 —, o tamanho da fonte muda para 16 e a fonte passa a ser Arial; caso contrário, o tamanho da fonte é 11 e a fonte é Calibri, conforme ilustrado na captura de ecrã seguinte.
Uma captura de ecrã do Excel que mostra uma célula com tamanho de letra 16 e tipo de letra Arial, e outra com tamanho de letra 11 e tipo de letra Calibri, com base no valor e no comprimento dos caracteres

1. Prima as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o código abaixo no script do Módulo. Veja a captura de ecrã:

VBA: Alterar o Tamanho da fonte com base no valor da célula ou no comprimento dos caracteres

Private Sub Worksheet_Calculate()
'UpdatebyExtendoffice20160614
    Dim xCell As Range
    For Each xCell In Range("G2:H9")
        With xCell
            If Len(.Text) > 5 Or Val(.Value) > 10 Then
                .Font.Name = "Arial"
                .Font.Size = 16
            Else
                .Font.Name = "Calibri"
                .Font.Size = 11
            End If
        End With
    Next
End Sub

Uma captura de ecrã que mostra o código colado no editor do VBA

3. Prima a tecla F5 para executar o código; os valores superiores a 10 ou cujo comprimento dos caracteres seja superior a 5 terão a fonte alterada para Arial e o tamanho da fonte definido como 16.

Dica: No código acima, pode alterar o intervalo G2:B9 para o intervalo que desejar.

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