Oscar tiene la necesidad de determinar la fuente y el tamaño de fuente aplicados al texto en una celda. Por ejemplo, si el texto de la celda A1 está en Arial de 12 puntos, le gustaría una función que pueda usarse para devolver «Arial» en la celda B1 y 12 en la celda C1.

No hay nada integrado en Excel que permita capturar esta información de formato. Sin embargo, puede crear una macro muy simple que funcione. La siguiente macro toma, como argumentos, una referencia de celda y, opcionalmente, un indicador de los datos que desea devolver.

Function FontInfo1(Rn As Range, Optional iType As Integer)

Application.Volatile     If iType = 2 Then         FontInfo1 = Rn.Font.Size     Else         FontInfo1 = Rn.Font.Name     Endif End Function

Usa la función usando una fórmula como esta en una celda:

=FontInfo1(A1,1)

El segundo parámetro (en este caso 1) significa que desea el nombre de la fuente.

Si cambia el segundo parámetro a 2, se devuelve el tamaño de fuente.

(En realidad, podría hacer que el segundo parámetro sea diferente de 2, o dejarlo completamente desactivado, y devuelve el nombre de la fuente).

Si desea devolver ambos valores a la vez, puede aplicar una forma menos conocida de devolver matrices de información de una función definida por el usuario. Intente lo siguiente:

Function FontInfo2(c As Range) As Variant     Application.Volatile     FontInfo2 = Array(c.Font.Name, c.Font.Size)

End Function

Seleccione dos celdas adyacentes horizontalmente (como C7: D7) y escriba la siguiente fórmula:

=FontInfo(A1)

Debido a que la función devuelve una matriz, debe terminar la entrada de la fórmula presionando Shift + Ctrl + Enter. El nombre de la fuente aparece en la primera celda (C7) y el tamaño de la fuente aparece en la segunda celda (D7).

_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 (7139) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Determining_Font_Formatting [Determinación del formato de fuente].