Cadenas de caracteres
Que tal Experto, tengo una duda : quiero hacer un macro de forma tal que escribo en un inputbox o en un text (desde ya con el formulario) la palabra Juan y que me la ordene en forma alfabética dando como resultado : ajnu y me lo devuelva en msgbox o en otro text. Sin utilizar la hoja de excel.
. He practicado con mayúsculas y minúsculas cambiar, también practique ordenamientos de vectores numéricos no de caracteres, la verdad con no se me ocurre forma .
Desde ya gracias por su tiempo...
. He practicado con mayúsculas y minúsculas cambiar, también practique ordenamientos de vectores numéricos no de caracteres, la verdad con no se me ocurre forma .
Desde ya gracias por su tiempo...
1 Respuesta
Respuesta de tavopz
1
De esta manera puedes pasar los caracteres a número para ser ordenados:
x = InputBox("Texto")
Dim n(50)
l = Len(x)
For i = 0 To l - 1
n(i) = Asc(Mid(x, i, 1))
Next i
Con esta matriz, puedes usar alguno de los métodos de ordenación, te adjunto una ayuda para esto:
http://support.microsoft.com/kb/213818/es
Después será cuestión de pasar nuevamente los números a carácter para lo cual utilizas la función Chr().
x = InputBox("Texto")
Dim n(50)
l = Len(x)
For i = 0 To l - 1
n(i) = Asc(Mid(x, i, 1))
Next i
Con esta matriz, puedes usar alguno de los métodos de ordenación, te adjunto una ayuda para esto:
http://support.microsoft.com/kb/213818/es
Después será cuestión de pasar nuevamente los números a carácter para lo cual utilizas la función Chr().
