Tel Of. 57841465 Cel . 04455 36651690
Msn: [email protected] E-mail: [email protected]
WEB: http://webnaxh.blogspot.com
Cómo convertir números a letras en Excel
EN 5 PASOS
PASO 1: SI YA TIENES UN ARCHIVO EJEMPLO FACTURA ABRES TU ARCHIVO
PASO 2: VAMOS ABRIR EL VISUAL BASIC CON EL COMANDO ALT+F11
PASO 3: EN INSERTAR VAMOS A SELECCIONAR MODULO SE NOS VA A ABRIR UNA HOJA EN BCO
PASO 4: COPIAN EL CODIGO QUE SE ENCUENTRA AQUÍ ABAJO
PASO 5: CIERRAN EL VISUAL BASIC CON EL COMANDO ALT+Q Y LISTO YA TIENEN SU CODIGO
Tel Of. 57841465 Cel . 04455 36651690
Msn: [email protected] E-mail: [email protected]
WEB: http://webnaxh.blogspot.com
NOTA : AL GUARDAR TU ARCHIVO TE VA A DECIR ESTO
LE DAN CLICK EN NO Y SELECCIONAN TIPO DE EXCEL HABILITADO PARA MACROS
AL GUARDAR ASI ESTAN DUPLICANDO SU ARCHIVO AHORA VAN A TENER UNO CON MACROS Y
UNO SIN MACROS .
O J O
SOLO ES PARA EL ARCHIVO QUE MODIFICARON EH ! NO ES PARA TODOS LOS ARCHIVOS DE EXCEL,
SI ABREN UNO NUEVO Y NECESITAN DE ESE CODIGO , TIENEN QUE HACER DE NUEVO LOS MISMOS
PASOS
UN AGRADECIMIENTO A : Blog de Gonzalo_Conta
Tel Of. 57841465 Cel . 04455 36651690
Msn: [email protected] E-mail: [email protected]
WEB: http://webnaxh.blogspot.com
CODIGO EN PESOS MEXICANOS
Function PesosMX(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 <= 2 Then
lcBloque = " " & laUnidades((lnDigito * 10) + lnPrimerDigito - 1)
Else
lcBloque = " " & laDecenas(lnDigito - 1) & IIf(lnPrimerDigito <> 0, " Y", Null) & lcBloque
End If
lnSegundoDigito = lnDigito
Case 3
lcBloque = " " & IIf(lnDigito = 1 And lnPrimerDigito = 0 And lnSegundoDigito = 0, "CIEN", laCentenas(lnDigito - 1)) & lcBloque
lnTercerDigito = lnDigito
End Select
Else
lnBloqueCero = lnBloqueCero + 1
End If
lyCantidad = Int(lyCantidad / 10)
If lyCantidad = 0 Then
Exit For
End If
Next I
Select Case lnNumeroBloques
Case 1
PesosMX = lcBloque
Case 2
PesosMX = lcBloque & IIf(lnBloqueCero = 3, Null, " MIL") & PesosMX
Case 3
PesosMX = lcBloque & IIf(lnPrimerDigito = 1 And lnSegundoDigito = 0 And lnTercerDigito = 0, " MILLON", " MILLONES") & PesosMX
End Select
lnNumeroBloques = lnNumeroBloques + 1
Loop Until lyCantidad = 0
PesosMX = "SON: (" & PesosMX & IIf(tyCantidad > 1, " PESOS ", " PESO ") & Format(Str(lyCentavos), "00") & "/100 M.N.)"
End Function
Top Related