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:

GENERAR SERIE NUMERICA CON BUCLES ANIDADOS Y MATRICES. NUMEROS NATURALES

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:

GENERAR SERIE NUMERICA CON BUCLES ANIDADOS Y MATRICES. NUMEROS NATURALES_1

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

GENERAR SERIE NUMERICA CON BUCLES ANIDADOS Y MATRICES. NUMEROS NATURALES_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.

Donate Button with Credit Cards

¡¡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

¿Te ha gustado?, Realiza un comentario.

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios .