| From | Message |
Manuel Labarca
Invitado
06/6/2005
22:28:00
|
 Tema: Ayuda en Exel 2003
IP: Logged
Mensaje:
Hola tengo excel 2003 y windows xp sp1, y necesito una formula o funcion para convertir automaticamente un numero en letras, es decir 1234 a mil doscientos treinta y cuatro, si alguien sabe porfavor ayudeme
|
dani
Invitado
07/6/2005
19:15:55
| RE: Ayuda en Exel 2003
IP: Logged
Message:
prueba esto :
Entra a Herrmientas --> Macro --> Editor de Visual Basic y pega este
codigo....
Function Numeros_A_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) = "un"
Numeros(2) = "dos"
Numeros(3) = "tres"
Numeros(4) = "cuatro"
Numeros(5) = "cinco"
Numeros(6) = "seis"
Numeros(7) = "siete"
Numeros(8) = "ocho"
Numeros(9) = "nueve"
Numeros(10) = "diez"
Numeros(11) = "once"
Numeros(12) = "doce"
Numeros(13) = "trece"
Numeros(14) = "catorce"
Numeros(15) = "quince"
Numeros(20) = "veinte"
Numeros(30) = "treinta"
Numeros(40) = "cuarenta"
Numeros(50) = "cincuenta"
Numeros(60) = "sesenta"
Numeros(70) = "setenta"
Numeros(80) = "ochenta"
Numeros(90) = "noventa"
Do
'*---> Centenas de Millón
If (Numero < 1000000000) And (Numero >= 100000000) Then
If (Int(Numero / 100000000) = 1) And ((Numero - (Int(Numero /
100000000) * 100000000)) < 1000000) Then
Letras = Letras & "cien millones "
Else
Select Case Int(Numero / 100000000)
Case 1
Letras = Letras & "ciento"
Case 5
Letras = Letras & "quinientos"
Case 7
Letras = Letras & "setecientos"
Case 9
Letras = Letras & "novecientos"
Case Else
Letras = Letras & Numeros(Int(Numero / 100000000))
End Select
If (Int(Numero / 100000000) <> 1) And (Int(Numero / 100000000)
<> 5) And (Int(Numero / 100000000) <> 7) _
And (Int(Numero / 100000000) <> 9) Then
Letras = Letras & "cientos "
Else
Letras = Letras & " "
End If
End If
Numero = Numero - (Int(Numero / 100000000) * 100000000)
End If
'*---> Decenas de Millón
If (Numero < 100000000) And (Numero >= 10000000) Then
If Int(Numero / 1000000) < 16 Then
Letras = Letras & Numeros(Int(Numero / 1000000))
Letras = Letras & " millones "
Numero = Numero - (Int(Numero / 1000000) * 1000000)
Else
Letras = Letras & Numeros(Int(Numero / 10000000) * 10)
Numero = Numero - (Int(Numero / 10000000) * 10000000)
If Numero > 1000000 Then
Letras = Letras & " y "
End If
End If
End If
'*---> Unidades de Millón
If (Numero < 10000000) And (Numero >= 1000000) Then
If Int(Numero / 1000000) = 1 Then
Letras = Letras & " un millón "
Else
Letras = Letras & Numeros(Int(Numero / 1000000))
Letras = Letras & " millones "
End If
Numero = Numero - (Int(Numero / 1000000) * 1000000)
End If
'*---> Centenas de Millar
If (Numero < 1000000) And (Numero >= 100000) Then
If (Int(Numero / 100000) = 1) And ((Numero - (Int(Numero / 100000) *
100000)) < 1000) Then
Letras = Letras & "cien mil "
Else
Select Case Int(Numero / 100000)
Case 1
Letras = Letras & "ciento"
Case 5
Letras = Letras & "quinientos"
Case 7
Letras = Letras & "setecientos"
Case 9
Letras = Letras & "novecientos"
Case Else
Letras = Letras & Numeros(Int(Numero / 100000))
End Select
If (Int(Numero / 100000) <> 1) And (Int(Numero / 100000) <> 5)
And (Int(Numero / 100000) <> 7) _
And (Int(Numero / 100000) <> 9) Then
Letras = Letras & "cientos "
Else
Letras = Letras & " "
End If
End If
Numero = Numero - (Int(Numero / 100000) * 100000)
End If
'*---> Decenas de Millar
If (Numero < 100000) And (Numero >= 10000) Then
If Int(Numero / 1000) < 16 Then
Letras = Letras & Numeros(Int(Numero / 1000))
Letras = Letras & " mil "
Numero = Numero - (Int(Numero / 1000) * 1000)
Else
Letras = Letras & Numeros(Int(Numero / 10000) * 10)
Numero = Numero - (Int((Numero / 10000)) * 10000)
If Numero > 1000 Then
Letras = Letras & " y "
Else
Letras = Letras & " mil "
End If
End If
End If
'*---> Unidades de Millar
If (Numero < 10000) And (Numero >= 1000) Then
If Int(Numero / 1000) = 1 Then
Letras = Letras & "un"
Else
Letras = Letras & Numeros(Int(Numero / 1000))
End If
Letras = Letras & " mil "
Numero = Numero - (Int(Numero / 1000) * 1000)
End If
'*---> Centenas
If (Numero < 1000) And (Numero > 99) Then
If (Int(Numero / 100) = 1) And ((Numero - (Int(Numero / 100) * 100))
< 1) Then
Letras = Letras & "cien "
Else
Select Case Int(Numero / 100)
Case 1
Letras = Letras & "ciento"
Case 5
Letras = Letras & "quinientos"
Case 7
Letras = Letras & "setecientos"
Case 9
Letras = Letras & "novecientos"
Case Else
Letras = Letras & Numeros(Int(Numero / 100))
End Select
If (Int(Numero / 100) <> 1) And (Int(Numero / 100) <> 5) And
(Int(Numero / 100) <> 7) _
And (Int(Numero / 100) <> 9) Then
Letras = Letras & "cientos "
Else
Letras = Letras & " "
End If
End If
Numero = Numero - (Int(Numero / 100) * 100)
End If
'*---> Decenas
If (Numero < 100) And (Numero > 9) Then
If Numero < 16 Then
Letras = Letras & Numeros(Int(Numero))
Numero = Numero - Int(Numero)
Else
Letras = Letras & Numeros(Int((Numero / 10)) * 10)
Numero = Numero - (Int((Numero / 10)) * 10)
If Numero > 0.99 Then
Letras = Letras & " y "
End If
End If
End If
'*---> Unidades
If (Numero < 10) And (Numero > 0.99) Then
Letras = Letras & Numeros(Int(Numero))
Numero = Numero - Int(Numero)
End If
Loop Until (Numero = 0)
'*---> Decimales
If (Decimales > 0) Then
Letras = Letras & " pesos con "
Letras = Letras & Format(Decimales * 100, "00") & "/100 centavos"
Else
Letras = Letras & " pesos " & " con 00/100 centavos"
End If
Numeros_A_Letras = UCase(Letras)
End Function
Saludos...
|
bono
Invitado
07/9/2005
01:42:17
| RE: Ayuda en Exel 2003
IP: Logged
Message:
si alguien me ayuda, para convertir un número a texto ejem:525 a quiñientos veinti cinco
|
valentin
Invitado
23/5/2006
20:21:01
|  RE: Ayuda en Exel 2003
IP: Logged
Message:
hola
vi tu respuesta pero no supe donde pegar la funcion
|
chamber
Invitado
07/8/2006
21:28:00
| RE: Ayuda en Exel 2003
IP: Logged
Message:
formula de iva
|
lio
Invitado
30/8/2006
19:18:45
| RE: Ayuda en Exel 2003
IP: Logged
Message:
despues de pegar el codigo que debo aser guardar o que onda y como la puedo ejecutar
saludos Lio de Michoacan
|
Steve
Invitado
10/9/2006
23:29:58
| RE: Ayuda en Exel 2003
IP: Logged
Message:
Gracias! Me ayudó mucho. Para Excel 2003 tiene que ser un Modulo. Tambien es posible que uno tiene que omitir unos espacios (busca los codigos en rojo).
|
hector lopez a.
Invitado
09/12/2006
03:38:58
| RE: Ayuda en Exel 2003
IP: Logged
Message:
de repente dejo de trabajar no se quiere abrir y si abre aparece lo siguiente la carpeta sku011cab tiene un herror
|
ariel
Invitado
08/2/2007
01:38:02
| RE: Ayuda en Exel 2003
IP: Logged
Message:
yo quiero una formula para que el valor de una celda se se convierta en kilometros en otra celda ej $10 de gnc sea el equivalente a 120 km
|
arturo jarquin
Invitado
08/5/2007
02:29:09
| RE: Ayuda en Exel 2003
IP: Logged
Message:
hola buenas tardes
necesito su amable ayuda
quiero hacer un recibo con exel solo que no puedo bloquear la pagina parcialmente .. esto es bloquear unas areas y otras que queden sin bloquear pues alli necesito poner los datos de mis clientes ... solo puedo bloquear toda la pagina ... saludos gracias
|
alex
Invitado
22/6/2007
21:56:22
| RE: Ayuda en los numeros en frances
IP: Logged
Message:
necesito los numeros en letra de frances es muy inpor tante porfi contestenme .
|
luis
Invitado
02/7/2007
02:11:20
| ¿quien quiere ayudarme ?
IP: Logged
Message:
Soy un principiante y pues no se como buscar esta tarea de Excel
a)¿que es un rango?
b)¿cuantos tipos de rangos hay?
c)barra de herramienta , boton de dezplazamiento
gracias
|
dani
Invitado
02/7/2007
12:38:27
| RE: Ayuda en Exel 2003
IP: Logged
Message:
perido en excell aver...el programa viene con una ayuda que es bastante clara, simplemente pulsa ayuda buscar y escribe rango .Una referencia identifica una celda o un rango de celdas en una hoja de cálculo e indica a Microsoft Excel en qué celdas debe buscar los valores o los datos que desea utilizar en una fórmula. En las referencias se puede utilizar datos de distintas partes de una hoja de cálculo en una fórmula, o bien utilizar el valor de una celda en varias fórmulas. También puede hacerse referencia a las celdas de otras hojas en el mismo libro y a otros libros. Las referencias a celdas de otros libros se denominan vínculos.
Un rango es el numero de casillas comprendidas entre otras dos, se refiere por A1 hasta A16 por ejemplo es un rango con 16 casillas se escriben entre $ por ejemplo $A$1:$A$3 o $A$1:$B$1
barra de herraminentas : selecciona en ver barra de herramientas...escribe barra d eherramientas en la ayuda en ? en el menu...
|
michelle
Invitado
31/10/2007
19:06:56
| RE: Ayuda en Exel 2003
IP: Logged
Message:
como puedo convertir de kilometros a millas,metros y centimetros
|
julia
Invitado
01/11/2007
09:27:53
| RE: Ayuda en Exel 2003
IP: Logged
Message:
como se ordena la informacion de una tabla alfabeticamente?
|
alejandro
Invitado
03/2/2008
14:17:00
| RE: Ayuda en Exel 2003
IP: Logged
Message:
como puedo realizar lo siguiente.
tengo un formato que imprimo cada mes pero tengo que cambir los datos de una celda treita veces es decir la celda que corresponde al nombre.
hay alguna forma de imprimir el formato de manera automatica y cadauno salga con diferente nombre?
agradesco su atencion
si no medi a entender porfavor dimelo
|
claudio
Invitado
26/6/2008
19:47:07
| RE: Ayuda en Exel 2003
IP: Logged
Message:
COMO CONVIERTO LA CELDA 1 EN UNA SOLA???
POR EJEMPLO Q SEA COMO UN TITULO EN UNA SOLA CELDA...
AYUDENME PORFA..
GRACIAS
|
hugo
Invitado
01/10/2008
19:45:17
| RE: Ayuda en Exel 2003
IP: Logged
Message:
hola tengo un problemita como puedo trabajar en 2 hojas diferentes que lo que hga en una automaticamente cambie en la otra como por ejemplo si en una modifico un nombre que cambie en la otra
|
Leo
Invitado
24/3/2009
23:14:31
| RE: HIPERVINCULO en Exel 2003
IP: Logged
Message:
el problem que tengo es con los hipervinculos en excel 2003. me aparece este mensaje cada vez que hago click en un hipervinculo: "operacion cancelada debido a restricciones en este equipo. pongase en contacto con su administrador de sistema" desde ya agradesco su colaboración, GRACIAS
|
