¿Saben de alguna fórmula de excel para pasar un múmero a texto? Tengo en la celda A1 45 y quiero una fórmula para que en la B1 escriba cuarenta y cinco. Desde ya muchas gracias
Aquí tienes el código de dos funciones que sirven para lo que pedís, tenés que copiarlas a un módulo y la fórmula que vas a usar en la celda es =enletras(A1) en la celda B1, igualmente si te surge alguna duda no dejes de consultarme, y por favor valora esta respuesta, Saludos, Diego Function Letras(x) Nu = Array("cero", "uno", "dos", "tres", "cuatro", "cinco", _ "seis", "siete", "ocho", "nueve", "diez", "once", "doce", _ "trece", "catorce", "quince", "dieciseis", "diecisiete", _ "dieciocho", "diecinueve", "veinte", "veintiuno", "veintidos", _ "veintitres", "veinticuatro", "veinticinco", "veintiseis", _ "veintisiete", "veintiocho", "veintinueve") Nd = Array("", "", "", "treinta", "cuarenta", "cincuenta", _ "sesenta", "setenta", "ochenta", "noventa") Nc = Array("", "ciento", "doscientos", "trescientos", "cuatrocientos", _ "quinientos", "seiscientos", "setecientos", "ochocientos", "novecientos") u = x Mod 10 d = Int(x / 10) Mod 10 c = Int(x / 100) If d > 2 Then Letras = Nd(d) + " y " + Nu(u) Else u = d * 10 + u Letras = Nu(u) End If If u = 0 Then Letras = Nd(d) If c > 0 Then Letras = Nc(c) + " " + Letras If x = 100 Then Letras = "cien" End Function Function Enletras(x) centavos = Int(x * 100) Mod 100 x = Int(x) grupo1 = x Mod 1000 grupo2 = Int(x / 1000) Mod 1000 grupo3 = Int(x / 1000000) n = Letras(grupo3) If Right(n, 3) = "uno" Then Enletras = Left(n, Len(n) - 1) + " millones " Else If grupo3 > 0 Then Enletras = n + " millones " End If If grupo3 = 1 Then Enletras = "un millón " n = Letras(grupo2) If Right(n, 3) = "uno" Then Enletras = Enletras + Left(n, Len(n) - 1) + " mil " Else If grupo2 > 0 Then Enletras = Enletras + n + " mil " End If If grupo1 > 0 Then Enletras = Enletras + Letras(grupo1) If centavos > 0 Then Enletras = Enletras + " con " + Str(centavos) + "/00" End Function
¿Cómo se copia esto a un módulo? No se como hacerlo...
Tienes que ir al menu Herramientas, macro, editor de visual basic y una vez que se abra el editor al menu insertar modulo.