Como 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
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
3. Pressione F5 , uma caixa de diálogo é exibida e selecione as células cujo tamanho de fonte deseja alterar. Veja a imagem:
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.
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.
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
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.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!