MACRO Formula PesosMN | Convertir a letra
HTML-код
- Опубликовано: 4 ноя 2024
- En este video aprenderemos a Convertir una cifra Numérica a texto utilizando la Función PesosMN en cualquier parte de la hoja de calculo
Link de Código de Descarga;
▶️mega.nz/#!nsNl...
═══════════════════════════════════
Si te gusta este vídeo y VOLUNTARIAMENTE quieres
hacerme una donación, puedes hacerlo
a mi cuenta de PayPal. ✅✅✅
www.paypal.com...
═══════════════════════════════════
Suscríbete a mi canal y comparte el contenido.
▶️ n9.cl/exceltra...
Pagina Facebook:
▶️ / evega.tuto
Sígueme en Facebook:
▶️ / tutoinformatica
Si te gusta este vídeo y VOLUNTARIAMENTE quieres
hacerme una donación, puedes hacerlo
a mi cuenta de PayPal. ✅✅✅
www.paypal.com/donate/?hosted_button_id=HD7PC66YUQPE6
MUCHAS GRACIAS, TODA LA SEMANA INTENTANDO, ESTABA BUSCANDO EL COMPLEMENTO NUMLETRAS PERO NADA ME FUISIONABA , MUCHAS GRACIAS
El mas facil que encontre!!! wow y funciona super bien y no puedo creer que tu video solo dura 3 minutos!! GRACIAS!!!
con mucho gusto amiga, gracias por dejar tu comentario. Te mando saludos y un abrazo
¡Muchas gracias! Excelente contenido🙂
con gusto amigo, gracias por dejar tu comentario
Muchas Gracias 😀👋👋👋👌
De nada 😊
Te amo amigo, me hiciste la vida más feli
😎 gracias amigo
Saludos, me funciono muy bien, gracias
que gusto saberlo amigo, gracias por comentarlo. Saludos
Gracias, me fue muy útil y mas efectivo que los complementos!!
Con mucho gusto amigo, gracias por dejar tu comentario. Saludos
hola,excelente informacion, estas instruciones debo llevarlas a cabo cada vez que requiera o se queda fijo en excel,gracias, diculpa la ignoracia
Se queda fijo en excel solo que si guarda tu archivo, como habilitado para macros para que se conserve el complemento
De este Enlace puedes copiar el código para usar la Función PesosMN
▶mega.nz/#!nsNlxQIA!QgoFplb6rzhD6Q5N7BjHUJhxi_QfR9VXVSbPL3yJ9Us
Funciona excelente, muchas gracias.
Excelente
Muchas gracias!! Me ha ayudado mucho con mis tareas
¿Cómo podría hacerle para quitar el espacio entre el primer paréntesis y la letra?
De modo que quede SON: (Diecinueve pesos 00/100 M.N.)
Lo he intentando modificar pero siempre me aparece un error
Me sirvió mucho. Muchas gracias.
con gusto amigo, gracias por dejar tu comentario
Hola funciona excelente y me gusta tu explicación, quiero donar pero tengo problemas con pay pal algun otro metodo para donar?
Hola amigo, gracias por dejar tu comentario. Te mando Saludos. (Te comparto mis datos Bancarios)
5579 1003 2898 8264
Santander
Gustavo Erik Vega Delgado
Excelente!!! Gracias.
con gusto amigo, gracias también a ti por comentar
EXCELENTE¡¡¡ GRACIAS
con gusto amigo, gracias por dejar tu comentario. Saludos
Hola! Se tiene que hacer el mismo procedimiento cada vez que se haga un nuevo archivo? No me aparece al crear nuevo documento, hice algo mal?
lo guardaste como Excel habilitado para macros ?
Buenísimo, muchas gracias ¿Cómo le quito la leyenda "SON"? Gracias :)
Gracias, muchas gracias
con gusto amigo, gracias también a ti por dejar tu comentario. Te invito a ver el demás contenido del canal. ¡Saludos!
Muchas gracias, disculpa y si ¿no quiero que aparezca la palabra son al principio como la elimino?
tendrías que borrar la palabra del código
Gracias!
con gusto! Saludos
Hola y en dólares americano?
Gracias funcionó bien, pero si quisiera quitar el "SON:" y los "()" se pudiera?
hay que buscarlo en el código y borrarlo
como le quito la palabra "son"
Hay alguna forma de que el resultado salga sin letras? Le muevo a la macro y no le encuentro
Que tal, me gusta mucho tu contenido bro... pero un tema a mi no me funciono mi aparece lo siguiente: #¿NOMBRE? le he intentado con inclusive otros tutoriales y es lo mismo. ¿Que habrá pasado?
y si quisiera las letras en minúsculas cómo las puedo modificar????
Tienes que modificar los arrays y ubicar cada decena, centenas están dentro de los " " y están en Mayúsculas ahí puedes cambiarlas a minúsculas.
Function PesosMN(tyCantidad As Currency) As String
Dim 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
Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta como Option Explicit
tyCantidad = Round(tyCantidad, 2)
lyCantidad = Int(tyCantidad)
lyCentavos = (tyCantidad - lyCantidad) * 100
laUnidades = Array("un", "dos", "tres", "cuatro", "cinco", "seis", "siete", "ocho", "nueve", "diez", "once", "doce", "trece", "catorce", "quince", "dieciséis", "diecisiete", "dieciocho", "diecinueve", "veinte", "veintiuno", "veintidós", "veintitrés", "veinticuatro", "veinticinco", "veintiséis", "veintisiete", "veintiocho", "veintinueve")
laDecenas = Array("diez", "veinte", "treinta", "cuarenta", "cincuenta", "sesenta", "setenta", "ochenta", "noventa")
laCentenas = Array("ciento", "doscientos", "trescientos", "cuatrocientos", "quinientos", "seiscientos", "setecientos", "ochocientos", "novecientos")
lnNumeroBloques = 1
Do
lnPrimerDigito = 0
lnSegundoDigito = 0
lnTercerDigito = 0
lcBloque = ""
lnBloqueCero = 0
For I = 1 To 3
lnDigito = lyCantidad Mod 10
If lnDigito 0 Then
Select Case I
Case 1
lcBloque = " " & laUnidades(lnDigito - 1)
lnPrimerDigito = lnDigito
Case 2
If lnDigito 1, " PESOS ", " PESO ") & Format(Str(lyCentavos), "00") & "/100 M.N.)"
End Function
HOLA, ESTÀ EXCELENTE ESTA FUNCIÒN, SOLO QUE PARA LO QUE REQIOERO, LA PALABRA "SON" ME PROVOCA PROBLEMA, ¿SE PUEDE ELIMINAR DEL MACRO? QUE NO SALGA LA PALABRA "SON:)
Hola Martha ¿Cómo estas?
Te dejo modificado el código, y nos haces favor y nos comunicas si te funciono.
Saludos
Function PesosMN(tyCantidad As Currency) As String
Dim 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
Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta como Option Explicit
tyCantidad = Round(tyCantidad, 2)
lyCantidad = Int(tyCantidad)
lyCentavos = (tyCantidad - lyCantidad) * 100
laUnidades = 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")
laDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA")
laCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS")
lnNumeroBloques = 1
Do
lnPrimerDigito = 0
lnSegundoDigito = 0
lnTercerDigito = 0
lcBloque = ""
lnBloqueCero = 0
For I = 1 To 3
lnDigito = lyCantidad Mod 10
If lnDigito 0 Then
Select Case I
Case 1
lcBloque = " " & laUnidades(lnDigito - 1)
lnPrimerDigito = lnDigito
Case 2
If lnDigito 1, " PESOS ", " PESO ") & Format(Str(lyCentavos), "00") & "/100 M.N.)"
End Function
@@excel-trabajatumente1617 yo también lo copie y quedan los : antes del parentesis donde viene la cantidad con letra, ojalá se los pudieran quitar y hacer que las letras salgan en minúsculas 🙏
@@grupoconstructorj8sadecv245
Function PesosMN(tyCantidad As Currency) As String
Dim 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
Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta como Option Explicit
tyCantidad = Round(tyCantidad, 2)
lyCantidad = Int(tyCantidad)
lyCentavos = (tyCantidad - lyCantidad) * 100
laUnidades = Array("un", "dos", "tres", "cuatro", "cinco", "seis", "siete", "ocho", "nueve", "diez", "once", "doce", "trece", "catorce", "quince", "dieciséis", "diecisiete", "dieciocho", "diecinueve", "veinte", "veintiuno", "veintidós", "veintitrés", "veinticuatro", "veinticinco", "veintiséis", "veintisiete", "veintiocho", "veintinueve")
laDecenas = Array("diez", "veinte", "treinta", "cuarenta", "cincuenta", "sesenta", "setenta", "ochenta", "noventa")
laCentenas = Array("ciento", "doscientos", "trescientos", "cuatrocientos", "quinientos", "seiscientos", "setecientos", "ochocientos", "novecientos")
lnNumeroBloques = 1
Do
lnPrimerDigito = 0
lnSegundoDigito = 0
lnTercerDigito = 0
lcBloque = ""
lnBloqueCero = 0
For I = 1 To 3
lnDigito = lyCantidad Mod 10
If lnDigito 0 Then
Select Case I
Case 1
lcBloque = " " & laUnidades(lnDigito - 1)
lnPrimerDigito = lnDigito
Case 2
If lnDigito 1, " PESOS ", " PESO ") & Format(Str(lyCentavos), "00") & "/100 M.N.)"
End Function
Cómo hago para sea en dólares 😢
@@excel-trabajatumente1617FUNCIONA EXCELENTEMENTE BIEN
Y si quisiera que saliera de esta forma así tal cual mayúscula y todo
CIENTO ONCE MIL SETENTA PESOS (00/100 M.N.)
buenos dias, es una excelente funcion, pero al apagar y prender la computadora no me guarda los cambios.
En el video me falto especificar, que al guardar el documento de Excel, lo tienen que guardar en "Tipo" "Excel Habilitado para Macros"
Alguien sabe por que no se guarda el modulo en mi excel?
Guárdalo como Libro de Excel Habilitado para Macros
EXCELENTE COMPLEMENTO PERO COMO PUEDO QUITAR LOS DOS PUNTOS QUE SE ANTEPONEN AL PARÉNTESIS DE LA CANTIDAD CON LETRA
Tienes que modificarlo en el código amigo, para que no aparezcan
como puedo quitar essa palabra (SON) que sale antes del nombre de las letras ?
Hay que modificar el Código de VBA, buscar esa palabra para eliminarla
Hola no logro abrir el enlace
que raro, haber te lo comparto
mega.nz/file/nsNlxQIA#QgoFplb6rzhD6Q5N7BjHUJhxi_QfR9VXVSbPL3yJ9Us
POR QUE ME EL SIGUIENTE TEXTO #¿NOMBRE? Y NO PUEDO SOLUCIONARLO
COMO LE PUEDO QUITAR LA PALABRA "SON"
te comparto el código sin la palabra "SON:"
Function PesosMN(tyCantidad As Currency) As String
Dim 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
Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta como Option Explicit
tyCantidad = Round(tyCantidad, 2)
lyCantidad = Int(tyCantidad)
lyCentavos = (tyCantidad - lyCantidad) * 100
laUnidades = 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")
laDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA")
laCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS")
lnNumeroBloques = 1
Do
lnPrimerDigito = 0
lnSegundoDigito = 0
lnTercerDigito = 0
lcBloque = ""
lnBloqueCero = 0
For I = 1 To 3
lnDigito = lyCantidad Mod 10
If lnDigito 0 Then
Select Case I
Case 1
lcBloque = " " & laUnidades(lnDigito - 1)
lnPrimerDigito = lnDigito
Case 2
If lnDigito 1, " PESOS ", " PESO ") & Format(Str(lyCentavos), "00") & "/100 M.N.)"
End Function
Y que pasa si quiero que diga dólares?
Aquí tienes el mismo procedimiento pero en Dólares (ExcelVBA) ruclips.net/video/YEU5B-zF0Gk/видео.html
NO ME SALO ME APARECE ASI ¿NOMBRE? CCUANDO TERMINO DE HACER EL PROCEDIMIENTO TAL Y COMO LO MUESTRAS EN EL VIDEO
Hola amigo German, te adjunto otro método que puedes utilizar, espero te pueda funcionar. Saludos
ruclips.net/video/mryI73ixrdc/видео.html
@@excel-trabajatumente16171:31 1:35
Me borra mis archivos a los que les inserto el código, y me los marca con virus 😑😑
🤨🤔
Como cambiar 1500 letra UN MIL QUINIENTOS diga solo MIL QUINIENTOS
DE DONDE SACO EL CODIGO
Function PesosMN(tyCantidad As Currency) As String
Dim 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
Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant 'Si esta como Option Explicit
tyCantidad = Round(tyCantidad, 2)
lyCantidad = Int(tyCantidad)
lyCentavos = (tyCantidad - lyCantidad) * 100
laUnidades = 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")
laDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA")
laCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS")
lnNumeroBloques = 1
Do
lnPrimerDigito = 0
lnSegundoDigito = 0
lnTercerDigito = 0
lcBloque = ""
lnBloqueCero = 0
For I = 1 To 3
lnDigito = lyCantidad Mod 10
If lnDigito 0 Then
Select Case I
Case 1
lcBloque = " " & laUnidades(lnDigito - 1)
lnPrimerDigito = lnDigito
Case 2
If lnDigito 1, " PESOS ", " PESO ") & Format(Str(lyCentavos), "00") & "/100 M.N.)"
End Function