Como 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 do caractere
Alterar o tamanho da fonte com base no valor de outra coluna
Para alterar o tamanho da fonte com base no valor de outra coluna, aqui está um código VBA que pode ajudá-lo.
1. Vá para a planilha onde deseja alterar o tamanho da fonte com base em outra coluna e pressione simultaneamente as teclas Alt + F11 para abrir a janela 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 tela:
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
3. Pressione F5 uma caixa de diálogo será exibida, selecione as células cujo tamanho da fonte deseja alterar. Veja a captura de tela:
4. Clique OK, e então as células na coluna selecionada terão seus tamanhos de fonte ajustados com base nos valores da coluna adjacente.
Alterar o tamanho da fonte com base no valor da célula e no comprimento do caractere
Se você deseja alterar o tamanho da fonte com base no próprio valor da célula ou no comprimento do caractere, por exemplo, quando o valor da célula é maior que 10, ou o comprimento do caractere é superior a 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 mostrado na captura de tela abaixo.
1. Pressione as teclas Alt + F11 para habilitar a janela 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 tela:
VBA: Alterar o tamanho da fonte com base no valor da célula ou no comprimento do caractere
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
3. Pressione a tecla F5 para executar o código, e os valores que são maiores que 10 ou cujo comprimento do caractere é superior a 5 terão sua fonte alterada para Arial e o tamanho da fonte para 16.
Dica: No código acima, você pode alterar o intervalo G2:B9 para outro intervalo conforme desejar.
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