¿Cómo cambiar rápidamente el tamaño de fuente según el valor de la celda en Excel?
Cambiar el tamaño de fuente en función de otro valor de columna
Cambiar el tamaño de fuente según el valor de la celda y la longitud de los caracteres
Cambiar el tamaño de fuente en función de otro valor de columna
Para cambiar el tamaño de fuente en función de otro valor de columna, aquí hay un código VBA que puede ayudarlo.
1. Vaya a la hoja cuyo tamaño de fuente desea cambiar según otra columna y presione Alt + F11 tecla simultáneamente para abrir Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Módulo, y luego pegue debajo de VBA en el Módulo. Ver captura de pantalla:
VBA: cambie el tamaño de fuente según el valor de otra columna
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. Prensa F5 , aparece un cuadro de diálogo y seleccione las celdas en las que desea cambiar su tamaño de fuente. Ver captura de pantalla:
4. Hacer clic en OK, y luego se ha ajustado el tamaño de fuente de las celdas de la columna seleccionada en función de los valores de al lado de la columna.
Cambiar el tamaño de fuente según el valor de la celda y la longitud de los caracteres
Por otro lado, si desea cambiar el tamaño de fuente en función del valor propio de la celda o la longitud del carácter, por ejemplo, cuando el valor de la celda es mayor que 10, o la longitud del carácter es mayor que 5, entonces el tamaño de fuente cambia a 16, y la fuente cambia a Arial; de lo contrario, el tamaño de fuente es 11 y la fuente es Calibri como se muestra a continuación.
1. Prensa Alt + F11 claves para habilitar Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Móduloy pegue el código siguiente para Módulo guión. Ver captura de pantalla:
VBA: cambie el tamaño de fuente según el valor de la celda o la longitud del carácter
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. Prensa F5 para ejecutar el código, y los valores que son mayores de 10 o la longitud de los caracteres es mayor de 5 han cambiado su fuente a Arial y el tamaño de fuente a 16.
Consejo: En el código anterior, puede cambiar el rango G2: B9 a otros que desee.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!