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
| Adjunto | Tamaño |
|---|---|
 Aleatorios no repetidos.xls | 44.5 KB |
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.
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
Visitanos en http://universoexcel.com
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
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
Visitanos en http://universoexcel.com
Hice lo recomendado, no logre nada. Fuy cambiando de linea en linea sin logros
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
Revisa las correcciones que le hice a tu archivo.
Saludos,
Visitanos en http://universoexcel.com
Visitanos en http://universoexcel.com
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
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