por Hola a todos:
En algunas ocasiones necesitamos generar series numéricas para nuestros proyectos. Dependiendo de las necesidades la complejidad de estos algoritmos suele ser alta, sin embargo podemos hacer un pequeño ejercicio a modo de ejemplo con el que se pueda comprender la idea.
Una forma de hacerlo es programando varios loops como bucles anidados, lo que nos proporcionará la técnica adecuada para la generación de números. Veamos una secuencia sencilla y cómo la podemos programar, imaginad que tenemos que generar la siguiente progresión:
1|1
1|2
1|3
1|4
1|5
1|6
1|7
1|8
1|9
1|10
2|1
2|2
2|3
2|4
2|5
2|6
2|7
2|8
2|9
2|10
3|1
3|2
3|3
3|4
3|5
3|6
3|7
3|8
3|9
3|10
4|1
4|2
4|3
4|4
4|5
4|6
4|7
4|8
4|9
4|10
5|1
5|2
5|3
5|4
5|5
5|6
5|7
5|8
5|9
5|10
Como podéis observar, cada 10 bucles aumentamos en +1 la fila de la izquierda. Lo hacemos hasta llegar a 5 (podríamos hacerlo hasta cualquier otro número y complicando hasta varias filas el resultado).
Para realizar esto, utilizaremos la siguiente rutina:
Sub GENERA_NUM()
'Declaramos variables
Dim i As Integer, j As Integer, n As Integer
Dim x As Integer, nNum As Variant
With Sheets(1)
.Cells(1, 1) = "DATOS"
'Iniciamos primer bucle, 1 a 5
'Mientras es 1 generamos segundo loop hasta 10
'cuando finaliza, pasamos a 2 y volvemos a generar loop hasta 10
For i = 1 To 5: For j = 1 To 10
'Creamos un contador
x = Application.CountA(.Range("A:A")) + 1
nNum = i & "|" & j
'Mostramos datos en la hoja1
.Cells(x, 1) = nNum
Next: Next
End With
End Sub
Como podéis observar, anidamos las dos rutinas de modo que se sincronizan para generar la información:
Este tipo de procedimientos se suele utilizar para la generación de programas de descifrado de contraseñas, seguridad, etc. Aunque en este caso lo estamos utilizando para crear una serie numérica.
Lo realmente importante es conocer la utilidad de los bucles anidados y cómo programarlos. Esta es una forma y aunque hay más, por hoy creo que es suficiente.
Os dejo el archivo para el «trasteo» : )
Descarga el archivo de ejemplo pulsando en: BUCLES ANIDADOS. GENERAR SERIES NUMÉRICAS
¿Te ha resultado de interés?, puedes apoyar a Excel Signum con una pequeña donación.
¡¡Muchas gracias!!
Mediante la suscripción al blog, la realización comentarios o el uso del formulario de contacto estás dando tu consentimiento expreso al tratamiento de los datos personales proporcionados según lo dispuesto en la ley vigente (LOPD). Tienes más información al respecto en esta página del blog: Política de Privacidad y Cookies
