Funcion Cambiar Números A Letras

Páginas: 3 (555 palabras) Publicado: 15 de marzo de 2013
Funcion para cambiar números a letras
http://www.ppsotoasesor.com/download_engine/files/funcion_num_a_letra_excel.txt

Instrucciones, procedimiento para instalarla en tu computadora:

AbreExcel->alt+F11 (Te abre la ventana de Microsoft VisualBasic).
En la ventana de Proyecto VBA project, busca VBAProject (Personal.xls)
Haz doble click en "modulos"
Click boton izq en modulos para insertarun nuevo modulo
Copia y pega la funcion en el nuevo módulo que acabas de crear.
Cerrar y volver a Excel. Guarda, si te lo pregunta.
En Excel, en la celda a1 escribe cualquier cantidad. En la celdab1, dale click al boton funcion o a menu->insertar->funcion. En la categoria Definidas x usuario, busca la funcion que acabas de "grabar". Captura los paramteros deseados.
¡Voilá! Te aparece elresultado deseado en letra.

Espero te sirva.

Lic. Pepe Soto


Copiar a partir del renglon siguiente:
Option Explicit
'Mauricio Baeza
'Samuel Monajaras
'Enero-97
'Ultima modificacion Octubredel 2002
'mbs@inbox.net
'http://www.vbalym.netfirms.com
'Argumentos:
'Numero = Valor que deseamos convertir en texto
'Moneda = es el nombre de la moneda a mostrar
'Fraccion_Letras = Verdaderopara que la fraccion de la moneda
' tambien la convierta a letras
'Fraccion = Es el nombre de la fraccion de la moneda
'Texto_Inicial = Cualquier texto que quieras al principio delresultado
'Texto_Final = Cualquier texto que quieras al finla del resultado
'Estilo = Formato de salida
' 1 = MAYUSCULAS
' 2 = minusculas
' 3 = Tipo Titulo
'Losvalores negativos los convierte a positivos
'El valor minimo en 0, el valor maximo es 9,999,999,999,999.99

Public Function Num_Letra(ByVal numero As Double, _
ByVal Moneda AsString, _
Optional Texto_Final As String = "", _
Optional Estilo As Integer = 1) As String
Dim strLetras As String
Dim NumTmp As String
Dim intFraccion As...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • convertir numeros a letras funcion()

    ...FUNCTION CONVIERTENUMLETRA(NUMERO) DIM TEXTO DIM MILLONES DIM MILES DIM CIENTOS DIM DECIMALES DIM CADENA DIM CADMILLONES DIM CADMILES DIM CADCIENTOS TEXTO = NUMERO TEXTO = FORMATNUMBER(TEXTO, 2) TEXTO = RIGHT(SPACE(14) & TEXTO, 14) MILLONES = MID(TEXTO, 1, 3) MILES = MID(TEXTO, 5, 3) CIENTOS = MID(TEXTO, 9, 3) DECIMALES = MID(TEXTO, 13, 2) CADMILLONES = CONVIERTECIFRA(MILLONES, 1) CADMILES = CONVIERTECIFRA(MILES, 1) CADCIENTOS =...

    Leer más
    567 Palabras 3 Páginas
  • Función De Numeros A Letras

    ...Function num_letras(Numero As Double) As String Dim Letras As String Dim HuboCentavos As Boolean Dim Decimales As Double Decimales = Numero - Int(Numero) Numero = Int(Numero) Dim Numeros(90) As String Numeros(0) = "CERO" Numeros(1) = "UNO" Numeros(2) = "DOS" Numeros(3) = "TRES" Numeros(4) = "CUATRO"...

    Leer más
    740 Palabras 3 Páginas
  • Funcion Numero A Letra Visual Basic

    ...Public Class NumeroALetra Public Function Negritas(ByVal campo As String) As String Dim formato As String formato = "" & campo & "" Return formato End Function Public Function variables_concepto(ByVal marca As String, ByVal modelo As String, ByVal año As String, ByVal color As String, ByVal nserie As String) As String Dim convierte As New NumeroALetra Dim variables As String Dim mr, md, a, cl, ns As String If...

    Leer más
    993 Palabras 4 Páginas
  • Cambiar de numero a letra en excel

    ...FUNCTION CONVIERTENUMLETRA(NUMERO) DIM TEXTO DIM MILLONES DIM MILES DIM CIENTOS DIM DECIMALES DIM CADENA DIM CADMILLONES DIM CADMILES DIM CADCIENTOS TEXTO = NUMERO TEXTO = FORMATNUMBER(TEXTO, 2) TEXTO = RIGHT(SPACE(14) & TEXTO, 14) MILLONES = MID(TEXTO, 1, 3) MILES = MID(TEXTO, 5, 3) CIENTOS = MID(TEXTO, 9, 3) DECIMALES = MID(TEXTO, 13, 2) CADMILLONES = CONVIERTECIFRA(MILLONES, 1) CADMILES = CONVIERTECIFRA(MILES, 1) CADCIENTOS =...

    Leer más
    438 Palabras 2 Páginas
  • Numeros A Letras Funcion Excel

    ...Function LetraG(Numero As Variant) Numero = Format(Numero, "0") LetraG = NumLet(Numero) End Function Function LetraC(Numero As Variant) Numero = Format(Numero, "0.00") NumDec = Right(Numero, 2) NumEnt = Left(Numero, Len(Numero) - 3) LetraC = NumLet(NumEnt) + " CON " + NumLet(NumDec) + "CENTAVOS" End...

    Leer más
    327 Palabras 2 Páginas
  • Numeros a Letras

    ... Function NumTxt(Numero As Double, TMon As String) As String Dim Letras As String Dim Espacio As String Dim Num As Double Dim Deci As String Dim Valor As Double Dim Inicio As Integer Dim Contador As Integer Dim Texto As String Dim SubCadena As String Dim Centena As String Dim Decena As String Dim Unidad As String Dim Ancho As Integer '------ Inicio de la Programacion--------------- Num = Int(Numero) Texto = Format(CStr(Num),...

    Leer más
    713 Palabras 3 Páginas
  • letras y numero

    ...colonial y su estado de igualdad entre las personas…2 Cambios……………………………………………………………….……..3 Etapa de revolución en México……………………………………………….4 México en los 60´s ………………………………………………………………. 5 México actual………………………………………………………………………. 6 y 7 Conclusion……………………………………………………………………………….. 7 Introducción A continuación se presentaran puntos en los cuales hacen referencia a la igualdad social y que diferentes cambios han surgido...

    Leer más
    1493 Palabras 6 Páginas
  • Letra de Cambio

    ...Letra de cambio Concepto La letra de cambio es un título de crédito o de valor formal y completo que contiene una orden incondicionada y abstracta de hacer pagar a su vencimiento al tomador o a su orden una suma de dinero en un lugar determinado, vinculando solidariamente a todos los que en ella intervienen.1 La letra de cambio nace en los finales de la Edad media con la necesidad del comercio monetario y...

    Leer más
    1008 Palabras 5 Páginas

OTRAS TAREAS POPULARES

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS