miércoles, 7 de septiembre de 2016

Acumulación de texto en varias diagonales sucesivas

Continuando el ejemplo anterior, vamos a definir una lista en varias diagonales, en las que se mostrará el texto previamente definido (“BIENVENIDO”). En la nueva versión del programa anterior, se podrá observar cómo utilizar la función “condición” (representada por la función if) y el bucle (mediante la aplicación de la función for, entre otras opciones).
Así, para hacer que la palabra “BIENVENIDO” aparezca colocada siguiendo varias diagonales un número determinado de veces. Se definen, inicialmente, dos variables contador como enteros
(función Dim… As Integer), y que representan además los índices de las celdas de la Hoja de Cálculo (filas y columnas). Se define el texto en la primera celda. Seguidamente, se define la condición de que la suma de los índices de celda (variables contadores) sean números pares, con la utilización de la función mod (función resto, dividiendo el número requerido por dos, si el resto es 0, el número es par), así se tendrían definidas las diferentes diagonales. Esta “condición” estaría colocada dentro de un doble bucle for (bucle anidado), en el que el valor de cada nueva celda de la diagonal, tendrá el mismo valor que la anterior.