Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Función para mostrar números elevados

wernser412

Member
Registrado
23 Dic 2020
Mensajes
70
En la celda A1 = 34

Quiero una funcion para que los numeros en la celda A1 se muestren como exponente en la celda A3= ³⁴

Otro ejemplos:
A1 = 65
A3 = ⁶⁵

Solo he logrado hasta el cubo:

Código:
...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Solución
estaba agregando para el signo "+" , pero solo me aparece el "⁰", no se en que me equivoque
la funcion esta configurada para "tratar/convertir" numeros en dos partes:
1) la declaracion de la variable "x" como de tipo Long
2) el uso de la funcion Val(...) que cualquier caracter NO numerico lo convierte a 0 (cero)

lo que no encuentro son los equivalentes para "+" y "-" en superindice

en cualquier caso, prueba con esta modificacion:
Código:
Function comoExponente(numero As String) As String
  Dim n As Long, x, y As String
  For n = 1 To Len(numero)
    x = Mid(numero, n, 1)
    Select Case x
      Case "+": y = y & ChrW(726)
      Case "-": y = y & ChrW(727)
      Case 1: y = y & "¹"
      Case 2: y = y & "²"
      Case 3: y = y & "³"...
Arriba