¿Cómo ajustar la altura de fila según el valor de una celda en Excel?
Para cambiar la altura de fila en una hoja de cálculo, muchos podemos usar la función Altura de fila para establecer la altura de la fila seleccionada. Sin embargo, si tiene una lista de números y desea ajustar la altura de fila según los valores de las celdas, como se muestra en la siguiente captura de pantalla, ¿cómo podría realizar esta tarea en Excel?
Cambiar la Altura de fila en función del valor de la celda con código VBA
Cambiar la Altura de fila en función del valor de la celda con código VBA
No existe una forma directa de ajustar simultáneamente la altura de varias filas según el valor de sus celdas, pero con el siguiente código VBA podrá realizar esta tarea de la manera más rápida posible.
1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y pegue el siguiente código en la ventana del Módulo.
Código VBA: Cambiar la Altura de fila en función del valor de la 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. A continuación, pulse la tecla F5 para ejecutar este código; aparecerá un cuadro de diálogo que le pedirá que seleccione las celdas cuya altura de fila desea ajustar según sus valores, tal como se muestra en la captura de pantalla:
4. A continuación, haga clic en el botón Aceptar; la altura de fila se habrá ajustado al valor de la celda, tal como se muestra a continuación:
Nota: En el código VBA anterior, la instrucción If H.Value > 15 Then indica que, si el valor de la celda es mayor que 15, se modificará la altura de la fila; si el valor de la celda es menor que 15, la altura de la fila conservará su valor predeterminado. Puede ajustar esta condición según sus necesidades.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos