GENERAR SERIE NUMÉRICA CON BUCLES ANIDADOS Y MATRICES. NÚMEROS NATURALES

Hola a todos:

En muchas ocasiones necesitamos generar una serie numérica con los números naturales, es decir: 1, 2, 3, 4 …hasta infinito.

Existen muchas formas de hacerlo, hoy os propongo hacerlo con un bucle anidado y una matriz en la que almacenar los números generados.

Así sería una forma de hacerlo:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Definimos variables
Dim fin As Long, i As Long, celda As String, MiRango As Variant
'Generamos final del rango p. e. de 1 a 25
fin = Application.WorksheetFunction.RandBetween(1, 25)
'Con un for Anidado, incluimos la serie numérica en el array
ReDim MiRango(1 To fin)
For i = 1 To fin:
MiRango(i) = i
Next i
'Capturamos celda en la que nos encontramos
celda = ActiveCell.Address
'pasamos la serie a la hoja transponiendo los datos en vertical.
Range(celda).Resize(fin, 1).Value = Application.Transpose(MiRango)
End Sub

Este código lo creado para generar la serie numérica en un rango aleatorio del 1 a la variable «fin» (aleatoria) y se ejecutará cada vez que hagamos doble clic en la celda en la que nos encontremos.

Por ejemplo:

Pero no solo es útil para generar este tipo de series, también podríamos generar series por múltiplos, por ejemplo así: MiRango(i) = i + i obtendríamos esto:

Y por poner otro ejemplo, con los cuadrados MiRango(i) = i ^ 2

Como podéis observar podemos crear prácticamente las series que necesitemos. Es un método muy sencillo y rápido.

Lo importante de esta macro es el método, simplemente pasamos la información al array (MiRango) después de generarla en el For.

ReDim MiRango(1 To fin)
For i = 1 To fin:
MiRango(i) = i
Next i

El resto de la macro es necesaria para realizar el ejemplo y mostrar la información en la hoja.

Descarga el archivo de ejemplo pulsando en: GENERAR SERIE NUMÉRICA CON BUCLES ANIDADOS Y MATRICES. NÚMEROS NATURALES

¿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