{"id":48,"date":"2013-11-20T00:15:52","date_gmt":"2013-11-20T00:32:39","guid":{"rendered":"https:\/\/5e5c5excelnumeros.jpg"},"modified":"2018-05-02T13:10:48","modified_gmt":"2018-05-02T19:10:48","slug":"convertir-de-numeros-a-letras-en-excel-2013","status":"publish","type":"post","link":"https:\/\/emanuelpaxtian.com\/blog\/convertir-de-numeros-a-letras-en-excel-2013\/","title":{"rendered":"Convertir de n\u00fameros a letras en Excel"},"content":{"rendered":"

Una de las funciones de Microsoft Excel m\u00e1s buscadas, es como convertir un numero a texto o numero a letras, esta funci\u00f3n no viene integrada en las formulas propias de Microsoft Excel, esto lo podemos hacer insertando un c\u00f3digo llamado \u201cMacro\u201d.<\/p>\n

\r\n\r\n'Funcion para pasar numeros a letras\r\nFunction NumLetras(Valor As Currency, Optional MonedaSingular As String = "", Optional MonedaPlural As String = "") As String\r\nDim lyCantidad As Currency, lyCentavos As Currency, lnDigito As Byte, lnPrimerDigito As Byte, lnSegundoDigito As Byte, lnTercerDigito As Byte, lcBloque As String, lnNumeroBloques As Byte, lnBloqueCero\r\nDim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta como Option Explicit\r\nDim ValorEntero As Long\r\nValor = Round(Valor, 2)\r\nlyCantidad = Int(Valor)\r\nValorEntero = lyCantidad\r\nlyCentavos = (Valor - lyCantidad) * 100\r\nlaUnidades = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTE", "VEINTIUN", "VEINTIDOS", "VEINTITRES", "VEINTICUATRO", "VEINTICINCO", "VEINTISEIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE")\r\nlaDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA")\r\nlaCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS")\r\nlnNumeroBloques = 1\r\n \r\nDo\r\nlnPrimerDigito = 0\r\nlnSegundoDigito = 0\r\nlnTercerDigito = 0\r\nlcBloque = ""\r\nlnBloqueCero = 0\r\nFor I = 1 To 3\r\nlnDigito = lyCantidad Mod 10\r\nIf lnDigito <> 0 Then\r\nSelect Case I\r\nCase 1\r\nlcBloque = " " & laUnidades(lnDigito - 1)\r\nlnPrimerDigito = lnDigito\r\nCase 2\r\nIf lnDigito <= 2 Then\r\nlcBloque = " " & laUnidades((lnDigito * 10) + lnPrimerDigito - 1)\r\nElse\r\nlcBloque = " " & laDecenas(lnDigito - 1) & IIf(lnPrimerDigito <> 0, " Y", Null) & lcBloque\r\nEnd If\r\nlnSegundoDigito = lnDigito\r\nCase 3\r\nlcBloque = " " & IIf(lnDigito = 1 And lnPrimerDigito = 0 And lnSegundoDigito = 0, "CIEN", laCentenas(lnDigito - 1)) & lcBloque\r\nlnTercerDigito = lnDigito\r\nEnd Select\r\nElse\r\nlnBloqueCero = lnBloqueCero + 1\r\nEnd If\r\nlyCantidad = Int(lyCantidad \/ 10)\r\nIf lyCantidad = 0 Then\r\nExit For\r\nEnd If\r\nNext I\r\nSelect Case lnNumeroBloques\r\nCase 1\r\nNumLetras = lcBloque\r\nCase 2\r\nNumLetras = lcBloque & IIf(lnBloqueCero = 3, Null, " MIL") & NumLetras\r\nCase 3\r\nNumLetras = lcBloque & IIf(lnPrimerDigito = 1 And lnSegundoDigito = 0 And lnTercerDigito = 0, " MILLON", " MILLONES") & NumLetras\r\nEnd Select\r\nlnNumeroBloques = lnNumeroBloques + 1\r\nLoop Until lyCantidad = 0\r\nNumLetras = NumLetras & " " & Format(Str(lyCentavos), "00") & "\/100 " & IIf(ValorEntero = 1, MonedaSingular, MonedaPlural)\r\nEnd Function\r\n\r\n<\/pre>\n
Bien, ahora que ya tenemos el c\u00f3digo vamos a insertarlo en nuestra hoja de trabajo de Microsoft Excel. Recomendable trabajar en un libro nuevo.<\/p>\n
Hacemos clic en Vista->Macros->Ver macros, o simplemente presionando Alt+F11<\/p>\n
 <\/p>\n
Una vez abierto el editor de Visual Basic nos vamos a Insertar->Modulo<\/p>\n
\"Insertando<\/p>\n
En la ventana que se abre pegamos el codigo de la macro<\/p>\n
\"pegamos<\/p>\n
\"codigo<\/p>\n
Listo, ya tenemos nuestro macro listo para trabajar, cerramos el editor de Visual Basic, lo puedes hacer con Alt+Q y regresamos a Microsoft Excel<\/p>\n
Vamos a probarlo, en la celda A1 ponemos un importe, abajo, en la celda A2 ponemos =PesosMN(A1)<\/p>\n
\"Imagen<\/p>\n","protected":false},"excerpt":{"rendered":"
Una de las funciones de Microsoft Excel m\u00e1s buscadas, es como convertir un numero a texto o numero a letras, esta funci\u00f3n no viene integrada en las formulas propias de…<\/p>\n","protected":false},"author":1,"featured_media":386,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[8],"tags":[],"class_list":["post-48","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-general"],"_links":{"self":[{"href":"https:\/\/emanuelpaxtian.com\/blog\/wp-json\/wp\/v2\/posts\/48","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/emanuelpaxtian.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/emanuelpaxtian.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/emanuelpaxtian.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/emanuelpaxtian.com\/blog\/wp-json\/wp\/v2\/comments?post=48"}],"version-history":[{"count":1,"href":"https:\/\/emanuelpaxtian.com\/blog\/wp-json\/wp\/v2\/posts\/48\/revisions"}],"predecessor-version":[{"id":1101,"href":"https:\/\/emanuelpaxtian.com\/blog\/wp-json\/wp\/v2\/posts\/48\/revisions\/1101"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/emanuelpaxtian.com\/blog\/wp-json\/wp\/v2\/media\/386"}],"wp:attachment":[{"href":"https:\/\/emanuelpaxtian.com\/blog\/wp-json\/wp\/v2\/media?parent=48"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/emanuelpaxtian.com\/blog\/wp-json\/wp\/v2\/categories?post=48"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/emanuelpaxtian.com\/blog\/wp-json\/wp\/v2\/tags?post=48"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}