Una de las (muchas) cosas frustrantes de Excel es que usa diferentes unidades de medida para especificar la altura de las filas y el ancho de las columnas.

La altura de la fila es bastante sencilla: se mide en puntos. Sin embargo, el ancho de la columna se mide en ancho de caracteres. Si su estilo estándar se establece en Courier 10, entonces un ancho de columna de 12 significa que puede colocar exactamente doce caracteres en una columna determinada. Para fuentes proporcionales, el carácter 0 se utiliza para contar los caracteres. (Sí, es absurdo.)

Esto genera problemas si desea que la altura y el ancho de una celda en particular coincidan, creando así un cuadrado. Afortunadamente, con un poco de hechicería de macros puede evitar esta rareza de Excel y lograr los resultados deseados. Considere la macro MakeSquare:

Sub MakeSquare()

Dim WPChar As Double     Dim DInch As Double     Dim Temp As String          Temp = InputBox("Height and width in inches?")

DInch = Val(Temp)

If DInch > 0 And DInch < 2.5 Then         For Each c In ActiveWindow.RangeSelection.Columns             WPChar = c.Width / c.ColumnWidth             c.ColumnWidth = ((DInch * 72) / WPChar)

Next c         For Each r In ActiveWindow.RangeSelection.Rows             r.RowHeight = (DInch * 72)

Next r     End If End Sub

Esta macro le solicita la dimensión del cuadrado que desea crear y luego calcula exactamente qué tan ancho y alto establecer cada celda.

Puede ejecutar la macro con una sola celda seleccionada o puede hacer un conjunto de selección más grande.

La «magia matemática» se realiza en el cálculo de la variable WPChar. Se establece en un valor derivado de dividir el ancho de la columna en puntos (devuelto por la propiedad Width) por el ancho de la columna en caracteres (devuelto por la propiedad ColumnWidth). Este valor, que es el número de puntos en un carácter con la configuración actual, se usa para calcular cuántos caracteres se deben usar para establecer el ancho en la siguiente línea de programa.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (1943) se aplica a Microsoft Excel 97, 2000, 2002 y 2003.