¿Cómo cambiar rápidamente el tamaño de fuente basado en el valor de una celda en Excel?

En Excel, puedes cambiar el tamaño de fuente de una celda como desees, pero ¿has intentado cambiar el tamaño de fuente basándote en el valor de otra columna, como se muestra en la captura de pantalla a continuación? En este artículo, presento un código VBA para ayudarte a cambiar rápidamente el tamaño de fuente basado en el valor de una celda en Excel.

Cambiar el tamaño de fuente basado en el valor de otra columna
Cambiar el tamaño de fuente basado en el valor de la celda y la longitud del carácter

Cambiar el tamaño de fuente basado en el valor de otra columna

Para cambiar el tamaño de fuente basado en el valor de otra columna, aquí tienes un código VBA que puede ayudarte.

1. Ve a la hoja en la que deseas cambiar el tamaño de fuente basado en otra columna, y presiona simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic for Applications.

2. Haz clic en Insertar > Módulo, y luego pega el siguiente código VBA en el Módulo. Ver captura de pantalla:

VBA: Cambiar el tamaño de fuente basado en 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. Presiona F5 y aparecerá un cuadro de diálogo; selecciona las celdas en las que deseas cambiar el tamaño de fuente. Ver captura de pantalla:

4. Haz clic en Aceptary luego las celdas en la columna seleccionada habrán ajustado su tamaño de fuente según los valores de la columna adyacente.

Cambiar el tamaño de fuente basado en el valor de la celda y la longitud del carácter

Si deseas cambiar el tamaño de fuente basado en el propio valor 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 superior a 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 en la siguiente captura de pantalla.

1. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic for Applications.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en el script del Módulo. Ver captura de pantalla:

VBA: Cambiar el tamaño de fuente basado en 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. Presiona la tecla F5 para ejecutar el código, y los valores que sean mayores que 10 o cuya longitud de caracteres sea superior a 5 habrán cambiado su fuente a Arial y el tamaño de fuente a 16.

Consejo: En el código anterior, puedes cambiar el rango G2:B9 a otro rango según lo desees.