En esta lección veremos un ejemplo para poder convertir un valor introducido en pesetas a euros y viceversa además de aplicar el formato correspondiente.

Estas macros se pueden realizar para cualquier otra moneda, lo único que deberemos cambiar será el tipo de conversión y el formato con el que deseamos trabajar.

Conversión de pesetas a euros

   Sub Euro()

      valor = ActiveCell.Value / 166.386

      ActiveCell.Value = valor

      Selection.NumberFormat = _

      "_-* #,##0.00 [$"-1]_-;-* #,##0.00 [$"-1]_-;_-* ""-""?? [$"-1]_-;_-@_-"

   End Sub

En la primera línea de esta Macro lo único que hacemos es mirar el valor que hay en la celda activada y dividirlo por 166,386, seguidamente asignamos este valor a una variable. A continuación esta variable la asignamos a la misma celda en la que nos encontramos. De esta forma lo que hacemos es reemplazar un valor por otro. Seguidamente lo único que hacemos es cambiar el formato de la celda pasándola de un formato de pesetas a un formato de Euro, con dos decimales y con el símbolo ".

Conversión de euros a pesetas

   Sub Peseta()

      valor = ActiveCell.Value * 166.386

      ActiveCell.Value = valor

      Selection.Style = "Currency [0]"

   End Sub

Esta segunda Macro funciona exactamente igual que la primera, podríamos decir que el único cambio que hay es que en esta se realiza una multiplicación y que el formato de celda que se selecciona es de pesetas, sin decimales y con Pts al final de la cifra.

Con este curso hemos tenido una visión general de para que se pueden utilizar las macros y cómo poder trabajar con ellas a parte de ver ejemplos que nos pueden ser de gran utilidad.

Para saber crear nuestras macros deberíamos realizar un curso en el cual se explicara instrucción a instrucción qué es lo que realiza.