Números aleatorios

9 envíos / 0 nuevos
Último envío
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 3040
Números aleatorios

Dejo Libro adjunto.

Este contiene la solicitud en escrito. Es de 3 caracteres(núumeros)

Desearia que al presentar los números y si algun cae en 15 que presente 015 y si cae en 8 que pesente 008

A ver si algún experto me dá la solucion al problema

AdjuntoTamaño
Office spreadsheet icon Aleatorios no repetidos.xls44.5 KB
pacomegia
Imagen de pacomegia
Offline
última acción: Hace 13 horas 43 segs
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: Números aleatorios

para representar los números en las celdas con ceros a la izquierda no emplees formato de texto, utiliza un formato personalizado de número con tres ceros

000

si quieres aplicar el formato directamente en VBA, tienes la funcion Format, que aplica un formato al número (convirtiéndolo en un texto). también en este caso el formato que necesitas son tres ceros

tunumeroconformato=Format(tunúmero,"000")

------
Ya sé Excel, pero necesito más ahora en pdf

 

------
Ya sé Excel, pero necesito más.

universoexcel
Imagen de universoexcel
Offline
última acción: Hace 6 años 8 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 25/10/2011 - 19:41
Puntos: 710
Re: Números aleatorios

El problema en tu codigo es que nunca está llegando a la zona donde está condicional "If", por eso no te está agregando los ceros al principio.

El codigo está brincando desde : 

Do While InStr(numeros, " " & registro_obtenido & ",") > 0

hasta

numeros = Trim(numeros & " " & registro_obtenido & ",")

y no está pasando por tu IF.

Pega el IF después de obtener el valor de registro_obtenido antes del Do, para que primero evalúe si tiene 1,2 o 3 digitos y después lo agregue al listado de números.

 

Visitanos en http://universoexcel.com

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 3040
Re: Números aleatorios

Hice lo recomendado, no funcionó.

Entonces fuy cambiando de linea en linea hacia arrba y nada que me dá los ceros antes

============ X ============ La programación es una carrera entre ingenieros tratando de hacer mejores y mas grandes programas resistentes a idiotas y el universo haciendo mejores y grandes idiotas. Por ahora

universoexcel
Imagen de universoexcel
Offline
última acción: Hace 6 años 8 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 25/10/2011 - 19:41
Puntos: 710
Re: Números aleatorios

Prueba este codigo:

For i = 1 To 3

    'generamos el primer nº aleatorio

    registro_obtenido = Int((maximo - minimo + 1) * Rnd + minimo)

    If Len(registro_obtenido) = 2 Then

        registro_obtenido = "'0" & registro_obtenido

    ElseIf Len(registro_obtenido) = 1 Then

     registro_obtenido = "'00" & registro_obtenido

    End If

 

Visitanos en http://universoexcel.com

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 3040
Re: Números aleatorios

Hice lo recomendado, no logre nada. Fuy cambiando de linea en linea sin logros

Muestra

Lo azul no lo aporta y quisiera que lo aportara para cuando cae 12 o 5 x ejemplo, que se viera 012 o 005

Podrá ser la programacion del codigo pero haí no logro llegar yo

============ X ============ La programación es una carrera entre ingenieros tratando de hacer mejores y mas grandes programas resistentes a idiotas y el universo haciendo mejores y grandes idiotas. Por ahora

universoexcel
Imagen de universoexcel
Offline
última acción: Hace 6 años 8 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntos
alta: 25/10/2011 - 19:41
Puntos: 710
Re: Números aleatorios

Revisa las correcciones que le hice a tu archivo. 

Saludos,

Visitanos en http://universoexcel.com

AdjuntoTamaño
Office spreadsheet icon Aleatorios no repetidos.xls54.5 KB
JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 3040
Re: Números aleatorios

Perfecto amigo, Muy agradecido

Se puede cerrar el tema

============ X ============

La programación es una carrera entre ingenieros tratando de hacer mejores y mas grandes programas resistentes a idiotas y el universo haciendo mejores y grandes idiotas. Por ahora

JoaoM
Imagen de JoaoM
Offline
última acción: Hace 1 año 2 meses
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 15/12/2011 - 23:46
Puntos: 3040
Re: Números aleatorios

No me habia fijado en este mensage tuyo, disculpa

============ X ============ La programación es una carrera entre ingenieros tratando de hacer mejores y mas grandes programas resistentes a idiotas y el universo haciendo mejores y grandes idiotas. Por ahora