Que tal, me podrían apoyar con la creación de una función para aplicar "Superscript" lo estoy intentando pero no me esta dando ningún resultado:

Function SUPERSCRIPT(x As String) As String
    SUPERSCRIPT = Font.Superscript = True
End Function

No tengo mucho conocimiento de VBA. Por eso acudo a su ayuda.

De antemano gracias y hasta luego...

Ss.

Hola

Si tu intención es cambiar el formato de una celda a través de una UDF, siento decirte que no se puede. De ser otro tu dilema, trata de dar más detalles. Saludos.

En 13/6/2020 at 1:02 , avalencia dijo:

Hola

Si tu intención es cambiar el formato de una celda a través de una UDF, siento decirte que no se puede. De ser otro tu dilema, trata de dar más detalles. Saludos.

Quería expresar un formato de celda "Superscript" como fórmula. Para incluirla dentro de una fórmula que estoy creando para transformar un texto. Ejm:

Sin fórmula: Rank 1

Con fórmula: Rank ¹

Creo que al final esto no se puede lograr.

Muchas gracias por la aclaración.

Ss.

Saludos @RandalHP, tal vez con la UDF no se pueda, pero pudieras hacerlo con un macro normal, algo así

Sub Macro1()
    
    With ActiveCell.Characters(Start:=Len(ActiveCell), Length:=1).Font
        .Name = "Calibri"
        .FontStyle = "Normal"
        .Size = 11
        .Strikethrough = False
        .Superscript = True
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    
End Sub

suerte