Cómo convertir números a letras en Excel

3
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

description

Cómo convertir números a letras en Excel EN 5 PASOSPASO 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 BCOPASO 4: COPIAN EL CODIGO QUE SE ENCUENTRA AQUÍ ABAJOPASO 5: CIERRAN EL VISUAL BASIC CON EL COMANDO ALT+Q Y LISTO YA TIENEN SU CODIGOTel Of. 57841465 Cel . 04455 36651690 Msn: [email protected] E-mail: [email protected] WEB: http://

Transcript of Cómo convertir números a letras en Excel

Page 1: Cómo convertir números a letras en Excel

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

Page 2: Cómo convertir números a letras en Excel

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

Page 3: Cómo convertir números a letras en Excel

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