Jump to content

Recommended Posts

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.

Link to post
Share on other sites
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 1

Creo que al final esto no se puede lograr.

Muchas gracias por la aclaración.

Ss.

Link to post
Share on other sites

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

Link to post
Share on other sites
a


  • Crear macros Excel

  • Posts

    • Hola Haplox (José), Gracias por la valiosa ayuda tuya y de Héctor Miguel, hoy he sido capaz de resolver todas las dudas sobre la plantilla. Adjunto el documento por si hay otras personas interesedas en usarla. Una vez más os doy las gracias a todos que me habeis ayudado hasta ahora y os deseo una buena semana. Ruego poner el tema como: SOLUCIONADO. Saludos a todos, CONTROL DESAYUNOS FINAL 24.11.2020.xlsm
    • ¡Hola @joseppp! Revisa el adjunto, donde propongo una solución a lo que pides.  ¡Bendiciones! Libro1.xlsx
    • Antoni buenos días, por favor podrías ayudarme  agregando a este código lo necesario para crear la hoja de avance de obra siguiente, en este adjunto puse notas para guiarte.  Mil gracias.   Consulta Macro Hoja Avances.xlsx
    • Buenos dias, Agadeceré si me podeis ayudar con esta fórmula, ya que no entiendo porque sale bien con el mayor de los numeros, si pongo en el parametro de coincidir, valor exacto (0). Gracias   Libro1.xlsx
    • Buenas,  es una cosa fácil pero se me esta resistiendo, con Application.hWnd saco la de la ventana activa, el excel, y con FindWindow("notepad", vbNullString), la de notepad, pero cuando intento otras que tengo activas como por ejemplo el word no me da nada... alguien me puede indicar como indicar en el findwindow / ex el titulo de la ventana, gracias
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy