Cómo convertir números a letras en Excel
En Excel, no existe una función para convertir de números a letras y por ello, deberemos crear nosotros la función de Excel a través de macros. Para insertar un macro seguiremos el tutorial avanzado de Excel y podremos realizar la función de convertir números a letras en Excel con el tutorial de Visual Basic para Excel.
Pasar de números a letras en Excel
Para crear la función y pasar de números a letras en Excel, insertaremos un módulo en Visual Basic siguiendo las instrucciones explicadas a continuación. ¿Qué macro Excel sirve para convertir números a letras y cómo funciona? Usaremos la función función ConvertToLetter.
- Hacer clic en el menú de programador
- Seleccionar la opción Visual Basic
- Hacer clic en el menú Insertar módulo
- Utilizar el siguiente código de VB que os detallamos:
Function CONVERTIRNUMEROLETRA(Numero As Long) As String
Dim Unidades, Decenas, Centenas
Dim Resultado As String
‘**************************************************
‘ Nombre de los números
‘**************************************************
Unidades = Array(«», «Un», «Dos», «Tres», «Cuatro», «Cinco», «Seis», «Siete», «Ocho», «Nueve», «Diez», «Once», «Doce», «Trece», «Catorce», «Quince», «Dieciséis», «Diecisiete», «Dieciocho», «Diecinueve», «Veinte», «Veintiuno», «Veintidos», «Veintitres», «Veinticuatro», «Veinticinco», «Veintiseis», «Veintisiete», «Veintiocho», «Veintinueve»)
Decenas = Array(«», «Diez», «Veinte», «Treinta», «Cuarenta», «Cincuenta», «Sesenta», «Setenta», «Ochenta», «Noventa», «Cien»)
Centenas = Array(«», «Ciento», «Doscientos», «Trescientos», «Cuatrocientos», «Quinientos», «Seiscientos», «Setecientos», «Ochocientos», «Novecientos»)
‘**************************************************
Select Case Numero
Case 0
Resultado = «Cero»
Case 1 To 29
Resultado = Unidades(Numero)
Case 30 To 100
Resultado = Decenas(Numero \ 10) + IIf(Numero Mod 10 <> 0, » y » + CONVERTIRNUMEROLETRA(Numero Mod 10), «»)
Case 101 To 999
Resultado = Centenas(Numero \ 100) + IIf(Numero Mod 100 <> 0, » » + CONVERTIRNUMEROLETRA(Numero Mod 100), «»)
Case 1000 To 1999
Resultado = «Mil» + IIf(Numero Mod 1000 <> 0, » » + CONVERTIRNUMEROLETRA(Numero Mod 1000), «»)
Case 2000 To 999999
Resultado = CONVERTIRNUMEROLETRA(Numero \ 1000) + » Mil» + IIf(Numero Mod 1000 <> 0, » » + CONVERTIRNUMEROLETRA(Numero Mod 1000), «»)
Case 1000000 To 1999999
Resultado = «Un Millón» + IIf(Numero Mod 1000000 <> 0, » » + CONVERTIRNUMEROLETRA(Numero Mod 1000000), «»)
Case 2000000 To 1999999999
Resultado = CONVERTIRNUMEROLETRA(Numero \ 1000000) + » Millones» + IIf(Numero Mod 1000000 <> 0, » » + CONVERTIRNUMEROLETRA(Numero Mod 1000000), «»)
End Select
CONVERTIRNUMEROLETRA = Resultado
End Function
- Una vez copiado el código anterior de Visual Basic guardaremos el documento con extensión .xlsm que habilita los macros en Excel.
- Seguidamente emplearemos la función que hemos creado en cualquier celda utilizando la siguiente sintaxis: =CONVERTIRNUMEROLETRA(A1)