¿Cómo cambiar la altura de fila basada en el valor de celda en Excel?

Para cambiar la altura de fila en una hoja de cálculo, la mayoría de nosotros podemos aplicar la función Altura de Fila para establecer la altura de la fila seleccionada. Sin embargo, si tienes una lista de números y ahora deseas ajustar la altura de fila basada en los valores de las celdas como se muestra en la siguiente captura de pantalla, ¿cómo podrías manejar esta tarea en Excel?
Cambiar la altura de fila basada en el valor de celda con código VBA
Cambiar la altura de fila basada en el valor de celda con código VBA
No hay una manera directa de cambiar múltiples alturas de fila basadas en el valor de celda a la vez, pero, con el siguiente código VBA, puede ayudarte a finalizar este trabajo lo más rápido posible.
1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.
Código VBA: Cambiar la altura de fila basada en el valor de celda:
Sub rowheight()
'Updateby Extendoffice
Dim hgt As Variant
Dim WorkRng As Range
xTxt = ActiveWindow.RangeSelection.Address
Set WorkRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
For Each H In WorkRng
If H.Value > 15 Then
hgt = H.Value
H.EntireRow.Select
Selection.rowheight = hgt
End If
Next H
End Sub
3. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que selecciones las celdas en las que deseas ajustar la altura de fila según los valores de las celdas, ver captura de pantalla:
4. Luego haz clic en el botón Aceptar, la altura de fila ha cambiado según el valor de la celda de la siguiente manera:
Nota: En el código VBA anterior, Si H.Value > 15 Entonces indica que si el valor de la celda es mayor que 15, la altura de fila cambiará; si el valor de la celda es menor que 15, la altura de fila permanecerá en la altura predeterminada. Puedes cambiarlo según sea necesario.
Las mejores herramientas de productividad para Office
Potencia tus habilidades en Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab lleva la interfaz de pestañas a Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de nuevas ventanas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!