Practicas y plantillas para macros

Ejercicio con macros
Estructura de un macro:

Un procedimiento empieza siempre con la instrucción
Sub Nombre_Procedimiento
Y termina con la instrucción
End Sub.

Macro 1. Procedimiento para poner el texto "Hola" en la casilla A1.
Ejemplo 1
Sub Primero
Range ("A1").Value = "Hola"
End Sub

Explicacion:
Observe el código.
Range("A1").Value="Hola"
En esta línea estamos indicando quetrabajamos con un objeto Range. Para indicarle que nos referimos a
la casilla A1, encerramos entre paréntesis esta referencia (más adelante verá otra forma de referirnos a las
casillas). De este objeto, indicamos que queremos establecer un nuevo valor para la propiedad Value,
observe que para separar el objeto de su propiedad utilizamos la notación punto.
Recuerde que el conjunto Range es unobjeto que pende del objeto WorkSheets, así por ejemplo el
siguiente código haría lo mismo que el anterior.
WorkSheets(1).Range ("A1").Value = "Hola"
Bueno, de hecho no hace lo mismo, en la primera opción, el texto "Hola" se pone dentro de la casilla A1
de la hoja activa, mientras que en el segundo es en la casilla A1 de primera hoja ( del conjunto de hojas).
La segunda notación es más larga,pero también más recomendable ya que se especifican todos los
objetos. En muchas ocasiones se pueden omitir algunos objetos precedentes, no le aconsejamos hacerlo,
sus programas perderán claridad y concisión.

Si desea hacer referencia a la hoja activa puede utilizar ActiveSheet, así, el primer ejemplo lo

dejaremos de la manera siguiente.

Sub Primero
ActiveSheet.Range("A1").Value ="Hola"
End Sub
Sub Primero
ActiveSheet.ActiveCell.Value = "Hola"
End Sub

Macro 2. En este segundo ejemplo simplemente ampliaremos la funcionalidad de la macro del
ejemplo 1. Además de escribir "Hola" en la casilla A1 de la celda A1, la pondremos en negrita y
le daremos color al texto. Para ello utilizaremos las propiedades Boldy Color del objeto Font.
Sub SegundoActiveSheet.Range("A1").Value = "Hola"
ActiveSheet.Range("A1").Font.Bold = True
ActiveSheet.Range("A1").Font.Color = RGB(255,0,0)
End Sub

True.
True, que traducido es verdadero, simplemente indica que la propiedad Boldestá
activada. Si se deseara desactivar, bastaría con igualarla al valor False.

La función RGB.
Observe que para establecer el color de la propiedad se utiliza la función RGB(Red,
Green, Blue),los tres argumentos para esta función son valores del 0 a 255 que
corresponden a la intensidad de los colores Rojo, Verde y Azul respectivamente.

Macro 3. Referenciar un rango de celdas.
Sólo tiene que cambiar a la forma Casilla_Inicial:Casilla_Final. Por ejemplo aplicar el
último ejemplo al rango de casillas que va de la A1 a la A8, ponga.
Sub Segundo
ActiveSheet.Range("A1:A8").Value ="Hola"
ActiveSheet.Range("A1:A8").Font.Bold = True
ActiveSheet.Range("A1:A8").Font.Color = RGB(255,0,0)
End Sub
A continuación vamos a repetir el programa Ejemplo1, pero en lugar de poner "Hola" en la
casilla A1 de la hoja activa, dejaremos que el usuario entre un texto desde teclado y a
continuación guardaremos ese valor en esa casilla. Observe que el valor que entre del usuario
debeguardarse en algún lugar para poder ponerlo después en la casilla A1; pues bien, ese
valor se guardará en una variable. Una variable es simplemente un trozo de memoria que la
función o procedimineto se reserva para guardar datos, la forma general de declarar una
variable es
DIM variable AS tipo.
Siendo variable el nombre que se asigna a la misma y Tipo el tipo de datos que se
guardarán (números,texto, fecha, boleanos,...). En nuestro ejemplo, declararemos la
variable de tipo String (tipo texto), y lo haremos de la forma siguiente.
Dim Texto As String
Con esto estamos indicando que se reserve un trozo de memoria (el que sea) , que se
llama Texto y que el tipo de datos que se guardarán ahí serán caracteres.

Macro 4. La Función InputBox.
Esta función muestra una ventana para que el...