Ciclos For Next en Visual Basic para Excel: Fibonacci Automático

Clase 14 de 17 • Curso de Excel Avanzado con Macros

Resumen

¿Cómo se utiliza el ciclo For Next en Visual Basic?

El ciclo For Next en Visual Basic permite ejecutar una serie de instrucciones repetidamente mientras un contador se encuentra dentro de un rango determinado. Esto es crucial cuando necesitas automatizar tareas repetitivas, como llenar múltiples celdas en Excel con valores específicos o realizar un conteo hasta cierto número.

¿Qué es la sucesión de Fibonacci y cómo se implementa con Visual Basic?

La sucesión de Fibonacci es una serie de números que comienza con 1, seguida por otro 1, y cada número subsecuente es la suma de los dos anteriores. Implementar esta sucesión en Excel usando Visual Basic es una excelente manera de poner en práctica el ciclo For Next.

Definir Subrutinas y Variables:
- Comienza definiendo una subrutina sin argumentos ni valores de retorno.
- Establece variables, como un contador (Dim i As Integer) y el número de términos que quieres calcular (Dim n As Integer).
Crear un Input Box:
- Utiliza un Input Box para solicitar al usuario cuántos términos de la sucesión desea calcular:
```
n = InputBox("Elementos de la sucesión", "Fibonacci")
```
Configurar el Documento y Asignar Valores Iniciales:
- Decide desde dónde comenzarás a vaciar la información en tu hoja activa, generalmente desde la celda A1.
- Las primeras dos entradas deberán ser asignadas manualmente, ya que siempre son 1s:
```
Cells(1, 1) = 1
Cells(2, 1) = 1
```
Implementar el Ciclo For Next:
- Iniciar el ciclo desde 3, puesto que los dos primeros valores están definidos:
```
For i = 3 To n
```
- Calcula cada elemento como la suma de los dos anteriores:
```
Cells(i, 1) = Cells(i - 1, 1) + Cells(i - 2, 1)
```
- Finaliza el ciclo con Next i para pasar al siguiente término.

¿Cómo verificar el funcionamiento correcto de la subrutina?

Puedes ejecutar la subrutina y recibirás un prompt preguntando cuántos términos de la sucesión deseas realizar. Ingresando, por ejemplo, 20 te permitirá confirmar visualmente en Excel que los números aparecen correctamente. Incluso puedes verificar manualmente sumando los dos números anteriores y compararlos con el resultado.

¿Cuándo es útil utilizar ciclos For Next?

El ciclo For Next es extremadamente valioso cuando se trata de:

Poner formato: Aplicar estilos o formatos específicos en rangos definidos.
Manipulación masiva de datos: Insertar, modificar o eliminar grandes cantidades de datos de manera organizada.
Automatización: Realizar acciones repetitivas sin intervención manual, ahorrando tiempo y minimizando errores.

¿Cómo iniciar tu propio proyecto usando ciclos For Next?

Te invito a practicar implementando tus propias soluciones. Piensa en actividades diarias realizadas en Excel que se podrían simplificar mediante estos ciclos. Compártelas o reflexiona sobre sus beneficios en los comentarios, y sigue explorando la programación para seguir ampliando tus habilidades.

Tomas Pucutay

student•

Para el ejercicio se podría convertir el Ciclo For en una función recursiva (función que se llama a sí misma) y luego a través de otro ciclo generar una sumatoria de los primeros N número de Fibonacci. Aquí el ejemplo

Lo comenté para facilitar el entendimiento, pero para este momento con el curso de la profesora Annie seguro que ni necesitaban que lo comente porque son super geniales . El código es:

Public Function Fibonacci(x As Integer) As Integer

    'Función recursiva basado en f(x) = f(x-1) + f(x-2)
    'Con valores para detenerse en f(2) = 1 y f(1) = 1, que son los iniciales de Fibonacci

    If x = 2 Or x = 1 Then
        Fibonacci = 1
    Else
        Fibonacci = Fibonacci(x - 1) + Fibonacci(x - 2)
    End If

End Function

Public Sub Suma_Fibonacci()
    
    'Definición de variables, nótese que se pueden definir varias con un mismo tipo
    Dim n, suma_fibo As Integer
    Dim m As String
    
    'Solicitud de dato al usuario y set inicial de la suma en 0
    n = InputBox("Coloca la cantidad de números de Fibonacci que quieres acumular (mayor que 0)", "Acumulador Fibonacci")
    suma_fibo = 0
    
    'Ciclo For
    For i = 1 To n
        suma_fibo = suma_fibo + Fibonacci(Int(i))
    Next
    
    m = MsgBox("El resultado es: " & suma_fibo)
    
End Sub

. El ciclo For sirve bastante para acumular resultados. Aunque más allá de eso te puede servir para cosas super interesantes como scrapping a las webs. Yo uso los objetos XML.HTTP y HTMLDocument, luego alimento excel con un listado de datos y uso del ciclo FOR para recorrer cada dato y las demás mecánicas extraen la información que necesito de páginas

Dither Saúl Trejo Rodríguez

student•

Muchas gracias,

Podrías comentarnos dónde aprendiste? Serviría para muchos que estamos tomando este curso poder retroalimentar y despejar dudas que nos surjen.

Mateo Posada

student•

Muy bien algo así había visto que se podía hacer en python

Sergio N

student•

Lo entiendo, el problema será cuando quiera hacer algo solo 😅

Jeinfferson Bernal G

student•

jejejeje. Estamos de acuerdo 🥴

Leandro Ortiz

student•

jajajajajaj asi me siento yo

Jonathan Higueros Garrido

student•

Utilicé FOR para hacer una macro sencilla en la que al ingresar un número nos devuelve su tabla de multiplicar.

Joel Sierra Mendoza

student•

Excelente Jonathan. Lo intenté hacer y en el proceso lo "optimicé un poco" y le agregué una columna para indicar por cual número se estaba multiplicando.

Maria Paoli

student•

Hice una subrutina para actualizar los precios de todos mis productos, ingresando la cantidad de productos y el aumento de precios en porcentaje. Para el caso de un 100 (%) me da la siguiente tabla:

Jeinfferson Bernal G

student•

Genial! 👍🏽

Miguel Ángel Bocanegra

student•

Es más complicado utilizar este ciclo que en lenguajes de programación

Jeinfferson Bernal G

student•

En general es mas complicado que utilizar otros lenguajes de programacion, pero sin duda potencia la forma de trbajar con Excel 👍🏽

Julio Cesar Campos Rimarachín

student•

Aquí va mi aporte Muestra reloj y días de la semana

Miguel Angel Zuluaga Palacios

student•

Well done!!

Yuliana Cruz

student•

Ejemplo de bucle For Next el cual va contando hacia atrás por el step-1

Julián Cárdenas

student•

Excelente y es super entendible el código

Isaac Bustillo

student•

Utilice ciclo for para obtener valores de la funcion y = x ^ 2

Saludos,

Jeinfferson Bernal G

student•

Super interesante! buen trabajo 👍🏽

Renzo Samoel Andrade Rosales

student•

Que tal, tengo una duda respecto a la instruccion Next i, no entendi bien para que se usa, entiendo que con "Next" se cierra el ciclo, pero porque le agrega la i? y eso en que influye en la subrutina? lo probe usando el "Next" sin la "i" y funciona igual.

Mauricio Pantoja

student•

Hola,

Realmente no tiene influencia en la sub rutina. Por convención se utiliza next i (o la variable que está en el bucle) para que sea más fácil de leer de un vistazo. Los beneficios de esta práctica se ven reflejados cuando tenemos ciclos for anidados, así sabremos de un vistazo cuál next pertenece a cuál for. Por ejemplo:

<Código para escribir una "x"  desde la celda A1 hasta la celda H8 (Rango A1:H8)>

Sub Ejemplo()
	
	dim i as integer
	dim j as integer

	for i = 1 to 8 'La variable i almacenará las filas

		for j = 1 to 8'La variable j almacenará columnas

			cells(i,j) = "x"

		next j 'Cerramos el bucle de la variable j

	next i 'Cerramos el bucle de la variable i

End sub

Como puedes ver, entre más bucles anidados existan, más next encontrarás uno seguido del otro. Si en algún momento quieres introducir código cuando termine cierto bucle, te serviría mucho saber cuál next es el que finaliza ese bucle, y si ya lo tienes identificado con su variable, resultará mucho más fácil y rápido la identificación.

Espero que te haya ayudado.

Andersson Bustos Padilla

student•

¿Una pregunta si quiero que el paso del ciclo sea diferente a 1 como le hago?

Paolo Quintero

student•

añadiendo un step (número de pasos ) luego de la variable For i = 3 To n Step 2

Andersson Bustos Padilla

student•

Muchas gracias, me sirve ya que en las clases lo dejaron de lado y a mi parecer es algo que no toma casi tiempo en explicar y si me parece importante.

Jose Martin Sainpere Vegas

student•

Los ciclos For Next son herramientas clave para automatizar tareas repetitivas. Al emplear una variable contador y una estructura For Next con la sintaxis adecuada, se logra ejecutar un bloque de código en un rango predefinido de veces. Esto simplifica la manipulación de datos, la aplicación de fórmulas y otros cálculos al tiempo que se pueden incorporar condiciones para acciones específicas.

Pablo Alejandro Figueroa

student•

Lizette Rosalía Dazza Hernández

student•

🔑 Resumen de la clase

For Next repite un bloque de código un número definido de veces.
Fibonacci = cada número es la suma de los dos anteriores.
En Excel puedes llenar una columna completa automáticamente con esta lógica.

Miguel Alexis Fabián Nava

student•

vba cual seria el equivalente a los break, continue y pass?

Annie Martinez Parente Dodero

teacher•

¡Hola! También puedes utilizar la instrucción Continue. Aquí te dejo la explicación

Maria Camila Rodriguez Moreno

student•

El ciclo For Next en VBA es una estructura de control que permite ejecutar un bloque de código un número específico de veces. Se utiliza para iterar a través de un conjunto de valores, facilitando tareas repetitivas, como llenar celdas en Excel.

La sintaxis básica es:

For contador = inicio To fin
    ' Código a ejecutar
Next contador

Esto es útil, por ejemplo, al generar secuencias o aplicar fórmulas en un rango de celdas, como se explicó en la clase sobre la sucesión de Fibonacci.

Nicolas Leonardo Anicama Espinoza

student•

Aquí hay algunas situaciones comunes en las que puedes usar "For Next" en macros de VBA:

Recorrer una serie de elementos: Puedes utilizar "For Next" para iterar sobre una serie de elementos, como una matriz o una colección, y realizar alguna acción en cada elemento.

Generar una secuencia numérica: Si necesitas generar una secuencia de números, puedes usar "For Next" para iterar desde un valor inicial hasta un valor final, incrementando en pasos específicos si es necesario.

Realizar cálculos repetitivos: Si tienes una fórmula o una serie de cálculos que necesitas repetir un número determinado de veces, puedes utilizar "For Next" para realizar los cálculos de forma iterativa.

HELVERT TORRES

student•

Este ciclo For... Next se podía emplear por ejemplo para cambiar los valores de una fila o columna, por ejemplo valores positivos y negativos, dejarlos todos como positivos. Este sería un ejemplo.

Pablo Alejandro Figueroa

student•

Ernesto García Silva

student•

Muestra los Numeros Primos dando un valor limite, inidcando si es primo y justificando si no lo es. Sintaxis:

Resultados en Hoja:

Camilo Andrés Aldana Orozco

student•

Public Sub Potenciador()

Dim y As Integer
Dim z As Integer

z = InputBox("Coloque el valor", "Potenciador")

Cells(1, 1) = z

For y = 2 To z

Cells(y, 1) = (Cells(1, 1) * (y - 1))

Next y

End Sub

Ciclos For Next en Visual Basic para Excel: Fibonacci Automático

Introducción a Macros y VBA

Macros y Visual Basic en Excel Avanzado

Uso de Macros en Excel con Visual Basic

Creación de Diagramas de Flujo para Solución de Problemas

Variables y Tipos de Datos en Visual Basic

Funciones y Subrutinas en Visual Basic

Automatización de Tareas con Macros en Excel

Funciones y subrutinas

Sintaxis de Funciones y Subrutinas en Visual Basic

Creación de Funciones en Visual Basic para Excel

Creación de Subrutinas en Visual Basic para Excel

Uso de MessageBox en Visual Basic para Mostrar Resultados

Input Box en Visual Basic: Solicitar Datos al Usuario

Uso de Select Case en Visual Basic para Condicionales

Condicionales IF-THEN en Visual Basic: Funciones y Ejercicios Prácticos