lunes, 23 de julio de 2018

Variable lógica de control

Puede descargar el archivo booleanoPorDefecto.xlsm


Generamos siete números aleatorios entre 1 y 10 en las celdas del rango B4:H4. En la celda amarilla (B6) generamos otro número en el mismo rango y deseamos conocer si este valor se encuentra entre los siete números generados de la fila 4.

Veamos varias formas de abordar el caso práctico con macros de VBA para Excel.

Caso 1

El primer caso  imprime en la celda C6 la frase 'Se ha encontrado' cuando el valor de la celda B6 coincide con alguno de los siete números de la fila 4. En la fila 4 pueden darse valores repetidos como se puede ver en la imagen siguiente.



El inconveniente de este método reside en que cuando la celda amarilla no coincide con ninguno de los números de la fila 4, en la celda C6 no se imprime nada, ya que no se entra dentro del condicional if en ningún momento. Nos gustaría que si no encuentra coincidencia pusiera una frase indicando que así ha sido. Pero no podemos incluir en el condicional if un else ya que al analizar los siete números cada vez que uno de ellos no coincida con la celda amarilla escribiría la frase indicando que no coinciden. Esto supondría un funcionamiento incorrecto del código. Veamos el segundo caso donde esto se soluciona con la ayuda de una variable booleana.

Sub rastrea()
For i = 1 To 7
  Cells(4, i + 1) = Int(Rnd() * 10) + 1
Next i
n = WorksheetFunction.RandBetween(1, 10)
Range("B6") = n
Range("C6").ClearContents
For i = 1 To 7
  If Cells(4, i + 1) = n Then
    Range("C6") = "Se ha encontrado"
  End If
Next i
End Sub


Caso 2

El código de este caso parte del anterior si bien añade una variable lógica denominada distintos que se inicializa como True. Esto supone que de entrada supondremos que los valores son distintos. Por tanto, supondremos inicialmente que no existe coincidencia de valor entre la celda amarilla y las siete previas de la fila cuatro. Nos metemos en un bucle for que recorre las siete posiciones comprobando con un condicional if si existe coincidencia. Si se detecta alguna coincidencia la variable lógica distintos se torna en False. Finalmente, fuera del bucle, añadimos un nuevo condicional if que analizará si la variable booleana distintos es verdadera y en caso afirmativo imprimirá en la celda B6 la frase 'NO se ha encontrado'.
Observe que en el último condicional if no es necesario poner como condición distintos=True, ya que la variable lógica ya es en si misma True o False.




Sub analiza()
Dim distintos As Boolean
distintos = True
For i = 1 To 7
  Cells(4, i + 1) = Int(Rnd() * 10) + 1
Next i
n = WorksheetFunction.RandBetween(1, 10)
Range("B6") = n
Range("C6").ClearContents
For i = 1 To 7
  If Cells(4, i + 1) = n Then
    distintos = False
    Range("C6") = "Se ha encontrado"
  End If
Next i
If distintos Then
  Range("C6") = "NO se ha encontrado"
End If
End Sub

Caso 3

Este caso es una variante del anterior donde no usamos variable lógica. Lo que hacemos es escribir en la celda C6 de entrada, y como valor por defecto, la frase  'NO se ha encontrado'. Luego, si al analizar la coincidencia de valores se verifica que existe alguna coincidencia lo que se hace es reescribir esa celda con la frase 'Se ha encontrado'. Con este método lo que conseguimos es que si no se encuentra coincidencia de valores la frase inicialmente escrita es válida y se muestra en pantalla sin necesidad de añadirla porque ya existía desde un principio.

Sub noEncontradoPorDefecto()
For i = 1 To 7
  Cells(4, i + 1) = Int(Rnd() * 10) + 1
Next i
n = WorksheetFunction.RandBetween(1, 10)
Range("B6") = n
Range("C6") = "NO se ha encontrado"
For i = 1 To 7
  If Cells(4, i + 1) = n Then
    Range("C6") = "Se ha encontrado"
  End If
Next i
End Sub

Pasar argumentos por valor (ByVal) o por referencia (byRef) en VBA para Excel

Puede descargar el archivo ReferenciaValor.xlsm

En el lenguaje de programación VBA para Excel podemos elegir entre pasar parámetros o argumentos a las funciones o subprocedimientos por valor (ByVal) o por referencia (ByRef). Veremos las diferencias de ambos métodos y pondremos varios ejemplos.


  • ByVal. Cuando se pasa un parámetro por valor lo que se hace es enviar un número si la variable es numérica o un string si la variable es una cadena, o del tipo que sea. No son la misma variable la interna al subprocedimiento o función que la del procedimiento principal, por lo que al terminar el subprocedimiento y retornar el flujo del programa al procedimiento principal la variable no retorna con el valor con el que hubiera acabado el subprocedimiento. Al retornar al procedimiento principal la variable continúa valiendo lo mismo que valía cuando se envió como parámetro. Por ejemplo, si la variable i se envía como parámetro con el valor 5, y al terminar el subprocedimiento o función finaliza con el valor 10, al retornar al procedimiento principal la variable i continuará con el valor 5.
  • ByRef. Cuando se pasa un parámetro por referencia lo que hacemos es enviar una variable con un cierto valor, el que tenga en el momento del envío. Al retornar al procedimiento principal la variable viene con el valor con el que hubiera terminado en el subprocedimiento o función. Por ejemplo, si la variable i se envía como parámetro con el valor 5, y al terminar el subprocedimiento o función finaliza con el valor 10, al retornar al procedimiento principal la variable i vendrá con el valor 10.

Por defecto los parámetros en VBA se pasan ByRef



Caso 1

Disponemos de un procedimiento principal que contiene un bucle for que se repite cuatro veces. Dentro del bucle únicamente tenemos una línea de código que llama al subprocedimiento Saluda y le pasa el valor de i como parámetro.
El subprocedimiento Saluda recoge el parámetro i como valor (ByVal). Mediante un MsgBox mostrará en una pequeña ventana emergente un saludo diciendo Hola junto al valor de i, que será un número de 1 al 4. Luego, y dentro del subprocedimiento, se asigna a i el valor 100.

  • ByVal. Si pasamos el valor de i por valor, al lanzar el procedimiento principal la macro nos saludará cuatro veces y al final ejecutará la última línea del procedimiento principal y nos dirá que i es igual a 5.
  • ByRef. Si pasamos el valor de i por referencia, al lanzar el procedimiento principal únicamente nos saludará una vez diciendo Hola1, pero no seguirá con los siguientes ciclos del bucle for ya que la variable i vuelve con el valor 100. Como 100 es superior al límite dado en el bucle for que es cuatro, se considera que el bucle ha finalizado y por tanto se ejecutará la última línea del procedimiento principal que hace que se muestre en pantalla el valor 101.
 


Sub Principal_1()
For i = 1 To 4
  Call Saluda(i)
Next i
MsgBox (i)
End Sub
Sub Saluda(ByVal i)
  MsgBox ("Hola" & i)
  i = 100
End Sub



Caso 2

En el procedimiento principal asignamos a las variables x, y, z el valor 5. Imprimiremos su valor empleando para la variable x la columna A, para la variable y la columna B y para la variable z la columna C. Llamamos al subprocedimiento Dobla y le pasamos como parámetros los valores x, y, z.
El subprocedimiento Dobla recibe el parámetro x por referencia (ByRef), el parámetro y por valor (ByVal) y el parámetro z lo recibe sin indicar nada para ver cómo trata VBA por defecto los parámetros que se pasan a un subprocedimiento o función. Se dobla el valor de x, y, z. Se imprime nuevamente el valor de x, y, z en la fila dos de las columnas A, B, C respectivamente. Veremos que los valores impresos son 10, 10, 10, esto es así ya que estamos imprimiendo el valor de la variable interna del subprocedimiento y en los tres casos esta variable es el doble de cinco.
Finalizado el subprocedimiento se vuelve al procedimiento principal y en la fila tres se imprimen nuevamente los valores de x, y, z. Pero ahora vemos que lo que se imprime es 10, 5, 10. Veamos el motivo de esta diferencia.


  • ByRef. El parámetro x se pasó por referencia. Continúa siendo la misma variable la que se definió inicialmente en el procedimiento principal, la que luego se usa en el subprocedimiento y la que finalmente retorna al procedimiento principal. Al retornar, vuelve con el valor 10.
  • ByVal. El parámetro y se pasó por valor y por tanto lo que se hace es pasarlo como si fuera un número sin que quede vinculación con la variable inicialmente definida en el procedimiento principal. En el subprocedimiento se dobla el valor y para de 5 a 10, pero al retornar al procedimiento principal no se retorna ningún valor, y la variable y en el procedimiento principal sigue valiendo 5 que es tal y como se definió en un principio.
  • Por defecto. El parámetro z se pasó sin indicar nada y al final se ha comportado como la variable x. Esto indica que si no ponemos nada, por defecto VBA pasa los parámetros por referencia (ByRef).


Sub Principal_2()
x = 5: y = 5: z = 5
Cells(1, "A") = x: Cells(1, "B") = y: Cells(1, "C") = z
Call Dobla(x, y, z)
Cells(3, "A") = x: Cells(3, "B") = y: Cells(3, "C") = z
End Sub
Sub Dobla(ByRef x, ByVal y, z)
x = 2 * x: y = 2 * y: z = 2 * z
Cells(2, "A") = x: Cells(2, "B") = y:: Cells(2, "C") = z
End Sub



Caso 3

Queremos listar los números del 10 al 20. Disponemos de un procedimiento principal que llama a un subprocedimiento que se denomina Listado, al que se pasan dos parámetros a y b. El parámetro b se puede pasar por valor o por referencia. Si se pasa por valor la lista impresa se genera en vertical y si se pasa por referencia la lista impresa se muestra en diagonal.

En el procedimiento principal inicializamos la variable
b haciendo que su valor se igual a uno. Nos metemos en un bucle for donde la variable a varía entre 10 y 20. Dentro del bucle se llama al subprocedimiento Listado pasándole los parámetros a y b.

El subprocedimiento Listado escribe el valor de a en la fila a y columna b. Finalmente tiene una línea de código que incrementa el valor de b en una unidad.

  • ByRef. Si pasamos el parámetro b por referencia el incremento de la variable b en una unidad que se hace en la última línea de código se recordará en el procedimiento principal y por tanto la variable b en el primer ciclo del bucle for valdrá 1, pero en el segundo ciclo ya valdrá 2, en el tercero 3, y así sucesivamente. Esto hace que al ejecutar reiteradamente el subprocedimiento y escribir con cells cada vez se haga en una fila más a la derecha, lo que provoca que el resultado se vea en diagonal.
  • ByVal. Si pasamos el parámetro b por valor la última línea de código que hace que b se incremente en una unidad no se recordará al llegar la procedimiento principal y por tanto b continuará valiendo 1 que es el valor con el que se inicializó. Esto provoca que al ser b siempre igual a uno, no nos movamos de la columna uno, y por tanto la serie de números se imprima en vertical todos ellos en la columna uno.





Sub Principal_3()
b = 1
For a = 10 To 20
  Call Listado(a, b)
Next a
End Sub
Sub Listado(a, ByRef b)
Cells(a, b) = a
b = b + 1
End Sub



Caso 4

Vamos a calcular el montante final al que se llega aplicando la ley de capitalización compuesta con los siguientes datos.
Capital inicial C = 1.000 €
tipo de interés i = 0,15
tiempo años t = 3

Disponemos de un procedimiento principal que llama dos veces a la función Montante. En la función existe una última línea de código que hace que el valor del tipo de interés i se reduzca en un 5%.

  • ByRef. Si pasamos el parámetro i por referencia la primera vez el tipo de interés valdrá 15% y la segunda vez valdrá 10% ya que se ha reducido el valor del tipo de interés y el procedimiento principal toma ese valor ya que no olvida el último valor con el que quedó la variable. Esto provoca que los dos montantes sean diferentes, el primero calculado al 15% y el segundo al 10%.
  • ByVal. Si pasamos el parámetro i por valor la última línea del subprocedimiento no se recordará al llegar al procedimiento principal y por tanto el valor del tipo de interés no se reducirá y continuará siendo del 15%. Esto provoca que los dos montantes sean iguales, ambos calculados al 10%.




Sub Principal_4()
i = 0.15
t = 3
C = 1000
Cells(1, "H") = Montante(i, t, C)
Cells(2, "H") = Montante(i, t, C)
End Sub
Function Montante(ByVal i, t, C)
Montante = C * (1 + i) ^ t
i = i - 0.05
End Function

martes, 17 de julio de 2018

Bucles For anidados

Puede descargar el archivo BuclesForAnidados.xlsm

Vamos a trabajar con dos bucles For...Next anidados. Realizaremos unos ejercicios con macros Excel programando en VBA.

Llegaremos a realizar la siguiente figura con números que van entre 1 y 9, tanto en horizontal como en vertical.


Pero antes de llegar a obtener esa imagen que hemos denominado 'Bandera Color' vamos a ir paso a paso.



Borra

Como vamos a trabajar en varios casos, antes de comenzar  nos interesa borrar el contenido del rango A1.I9. También vamos a borrar el color de fondo de las celdas.


Sub Borra()
Dim R As Range
Set R = Range("A1:I9")
R.ClearContents
R.Interior.Pattern = xlNone
End Sub


Completo

Anidamos dos bucles For para conseguir imprimir en cada una de las celdas del cuadrado de 9 filas y 9 columnas, los números i j.



Sub Completo()
Dim i As Byte, j As Byte
Call Borra
For i = 1 To 9
  For j = 1 To 9
    Cells(i, j) = Str(i) & " " & Str(j)
  Next j
Next i
End Sub


Caja

Ahora queremos que no se imprima el cuadrado completo, únicamente deseamos imprimir los bordes. Para ello precisamos incluir dentro de los bucles anidados un condicional if que imprima únicamente los índices i j cuando se cumpla que el primero es igual a 1 o 9, o bien el segundo sea igual a 1 o 9. De esta forma conseguimos imprimir solo el perímetro del cuadrado.



Sub Caja()
Dim i As Byte, j As Byte
Call Borra
For i = 1 To 9
  For j = 1 To 9
    If i = 1 Or i = 9 Or j = 1 Or j = 9 Then
      Cells(i, j) = Str(i) & " " & Str(j)
    End If
  Next j
Next i
End Sub


Diagonal 1

Queremos imprimir únicamente la diagonal primera que se consigue haciendo que el condicional if filtre únicamente aquellos valores donde los índices i j coincidan.




Sub Diagonal_1()
Dim i As Byte, j As Byte
Call Borra
For i = 1 To 9
  For j = 1 To 9
    If i = j Then
      Cells(i, j) = Str(i) & " " & Str(j)
    End If
  Next j
Next i
End Sub


Diagonal 2

La segunda diagonal se consigue buscando qué tienen en común los índices i j. Observamos que esta diagonal cumple que al sumar ambos índices la suma siempre es igual a 10. Esta será la condición que impondremos en el condicional if.



Sub Diagonal_2()
Dim i As Byte, j As Byte
Call Borra
For i = 1 To 9
  For j = 1 To 9
    If i + j = 10 Then
      Cells(i, j) = Str(i) & " " & Str(j)
    End If
  Next j
Next i
End Sub


Bandera


Deseamos imprimir únicamente los bordes y las dos diagonales. A esta figura la hemos llamado bandera. Observe que se consigue incluyendo en el if seis condiciones concatenadas con el operador lógico Or.



Sub Bandera()
Dim i As Byte, j As Byte
Call Borra
For i = 1 To 9
  For j = 1 To 9
    If i = 1 Or i = 9 Or j = 1 Or j = 9 Or i = j Or i + j = 10 Then
      Cells(i, j) = Str(i) & " " & Str(j)
    End If
  Next j
Next i
End Sub


Bandera Color

Nos gustaría que la bandera tuviera colores. Los colores de fondo de cada celda se consiguen con Interior.ColorIndex=número. Donde el número nos da el color.





Sub BanderaColor()
Dim i As Byte, j As Byte
Call Borra
For i = 1 To 9
  For j = 1 To 9
    If i = j Or i + j = 10 Then
      Cells(i, j) = Str(i) & " " & Str(j)
      Cells(i, j).Interior.ColorIndex = 3 'rojo
    ElseIf i = 1 Or i = 9 Or j = 1 Or j = 9 Then
      Cells(i, j) = Str(i) & " " & Str(j)
      Cells(i, j).Interior.ColorIndex = 6 'amarillo
    Else
      Cells(i, j).Interior.ColorIndex = 8 'azul
    End If
  Next j
Next i
End Sub

Ya tenemos bandera.

lunes, 4 de junio de 2018

Triángulo de Floyd

Puede descargar el archivo trianguloFloyd.xlsm

El triángulo de Floyd para cuatro filas es el siguiente.


Se construye con los números naturales en forma de triángulo rectángulo. Se suele utilizar como ejercicio para los que están aprendiendo a programar en un cierto lenguaje.

El triángulo de Floyd se resuelve con un algoritmo que ideó el Dr. Floyd, científico e informático que fue compañero de habitación de Carl Sagan cuando ambos estudiaban en la universidad.

Hoja 1

Resuelto usando fórmulas de Excel y sin usar macros.



La fórmula de la celda C5 calcula el máximo de la fila anterior para saber con qué número se ha de comenzar la fila actual.

=MAX(C4:P4)+1

La celda D5 suma 1 al valor previo y usa un condicional SI para saber hasta que valor se ha de continuar sumando 1.

=SI(CONTAR($C5:C5)<$A5;C5+1;"")

Hoja 2

También resuelve el triángulo con fórmulas y sin usar macros.

En este caso las celdas de la primera columna se obtienen con una fórmula que indica que nos da el último valor de la fila precedente y le suma 1. Se cumple que los últimos valores de cada fila son los llamados números triangulares, que se obtienen como n*(n+1)/2. Siendo n el número de fila.


En nuestro caso la celda C5 tiene la siguiente expresión.

=(A5*(A5-1)/2)+1

La celda D5 se calcula con la siguiente fórmula, que es igual a la empleada en la Hoja1.

=SI(CONTAR($C5:C5)<$A5;C5+1;"")

Hoja3

Se construye el triángulo de Floyd mediante macro.


Sub Floyd1()
Dim n As Long, i As Long, j As Long, n_max As Long
Dim R As Range
Worksheets("Hoja3").Activate
Set R = Range("B3")
n_max = 24: j = 1
R.Offset(1, -1).Resize(n_max+2, n_max+2).ClearContents
For n = 1 To n_max
  R.Offset(n, -1) = n 'imprimimos la columna A
  For i = 1 To n 'i recorre los elementos de cada fila
    R.Offset(n, i) = j 'imprimimos el valor de j en la celda que toca
    j = j + 1  'j proporciona los números naturales correlativos
  Next i
Next n
End Sub


Hoja4

Dada una fila n, podemos calcular el último valor de su fila usando los números triangulares que son los siguientes.


  1. Para n=1 el número triangular es 1
  2. Para n=2 el número triangular es 3
  3. Para n=3 el número triangular es 6
  4. Para n=4 el número triangular es 10
  5. Para n=5 el número triangular es 15

A esos valores e le suma 1 para saber cuál es el primer valor de la fila siguiente.

Sub Floyd2()
Dim n As Long, i As Long, j As Long, n_max As Long
Dim R As Range
Worksheets("Hoja4").Activate
Set R = Range("B3")
n_max = 24
R.Offset(1, -1).Resize(n_max+2, n_max+2).ClearContents
For n = 1 To n_max
  R.Offset(n, -1) = n
  'primera columan del triángulo
  R.Offset(n, 1) = (n * (n - 1) / 2) + 1
  For i = 2 To n
    R.Offset(n, i) = R.Offset(n, i - 1) + 1
  Next i
Next n
End Sub

Hoja5


Una pequeña variante para poder elegir el número de filas desde un control numérico que se encuentra en la propia hoja de cálculo.


También está disponible en un lenguaje de programación que está muy de moda.

domingo, 3 de junio de 2018

Seleccionar tabla sin cabecera

Puede descargar el archivo seleccionaTabla.xlsm

Primero generamos una tabla con valores aleatorios y con un número de filas que podemos elegir, con un control numérico, entre 1 y 20.


La macro que genera la tabla con valores aleatorios es la siguiente.

Observe que se define la celda B4 como la esquina superior izquierda y en base a ella se genera toda la tabla. Esta esquina sería fácil de variar en el código de la macro, gracias al uso de Offset.

Sub generaTabla()
Dim n As Byte, i As Byte
Dim R As Range
Set R = Range("B4")
n = [I2]
Range("B5:F24").ClearContents
For i = 1 To n
  R.Offset(i, 0) = i
  R.Offset(i, 1).Value = WorksheetFunction.Choose(Int(Rnd() * 3) + 1, "Norte", "Sur", "Centro")
  R.Offset(i, 2).Value = Date - i + 1
  R.Offset(i, 3).Value = WorksheetFunction.Choose(Int(Rnd() * 3) + 1, "Libros", "Comic", "Web")
  R.Offset(i, 4).Value = (Int(Rnd() * 100000) + 20000) / 100
Next i
End Sub


El código VBA que selecciona la tabla sin incluir la cabecera es la siguiente.

Sub seleccionaTablaSinCabecera()
Worksheets("Hoja1").Activate
'el cursor inicialmente tiene que estar dentro de la tabla
Range("B5").Select
Set R = ActiveCell.CurrentRegion
R.Offset(1, 0).Resize(R.Rows.Count - 1, R.Columns.Count).Select
End Sub

Aquí vemos otro uso estupendo de Offset combinado con Resize, propiedad de los rangos que hemos visto recientemente. Puede verlo en el post siguiente.