Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Inscreva-se  \/ 
x

or

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

doc altera o tamanho da fonte com base no valor 7
No Excel, você pode alterar o tamanho da fonte da célula como desejar, mas você já tentou alterar o tamanho da fonte da célula com base em outro valor de coluna, como mostrado abaixo na captura de tela? Neste artigo, apresento alguns códigos VBA para ajudá-lo a alterar rapidamente o tamanho da fonte com base no valor da célula no Excel.
Alterar o tamanho da fonte com base em outro valor de coluna

Altere o tamanho da fonte com base no valor da célula e no comprimento dos caracteres

seta azul bolha direita Alterar o tamanho da fonte com base em outro valor de coluna

Para alterar o tamanho da fonte com base em outro valor de coluna, aqui está um código VBA que pode ajudá-lo.

1. Vá para a folha da qual deseja alterar o tamanho da fonte com base em outra coluna e pressione Alt + F11 chave simultaneamente para abrir Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole abaixo do VBA no Módulo. Veja a imagem:

VBA: alterar o tamanho da fonte com base em outro valor de 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

doc altera o tamanho da fonte com base no valor 2

3. Pressione F5 , uma caixa de diálogo é exibida e selecione as células cujo tamanho de fonte deseja alterar. Veja a imagem:
doc altera o tamanho da fonte com base no valor 3

4. Clique OK, e então as células na coluna selecionada foram ajustadas o tamanho da fonte com base nos valores ao lado da coluna.
doc altera o tamanho da fonte com base no valor 4


seta azul bolha direita Altere o tamanho da fonte com base no valor da célula e no comprimento dos caracteres

Por outro lado, se você deseja alterar o tamanho da fonte com base no próprio valor da célula ou comprimento dos caracteres, por exemplo, quando o valor da célula é maior que 10 ou o comprimento dos caracteres é maior do que 5, então o tamanho da fonte muda para 16, e a fonte muda para Arial, caso contrário, o tamanho da fonte é 11 e a fonte é Calibri, conforme a captura de tela abaixo mostrada.
doc altera o tamanho da fonte com base no valor 5

1. Pressione Alt + F11 chaves para habilitar Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Módulo, e cole o código abaixo para Módulo roteiro. Veja a imagem:

VBA: altere 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

 

doc altera o tamanho da fonte com base no valor 6

3. Pressione F5 para executar o código, e os valores que são maiores que 10 ou comprimento de caracteres são maiores que 5 mudaram sua fonte para Arial e o tamanho da fonte para 16.

Dica: No código acima, você pode alterar o intervalo G2: B9 para outros conforme desejar.


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Super Formula Bar (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
officetab bottom
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.