El lenguaje VBA

1. Presentación

El código VBA asociado a un libro está agrupado en un proyecto que contiene varias carpetas:

La lista de todos los módulos aparece en forma jerárquica en el Explorador de proyectos del entorno VBE.

1. Definiciones

Los procedimientos son subprogramas que permiten descomponer una tarea de programación compleja en un conjunto de tareas más breves y simples. Permiten organizar el código dentro de módulos para obtener un código de mantenimiento más simple y fácilmente reutilizable.

En VBA Excel, se distinguen tres tipos de procedimientos:

En este capítulo, solamente nos interesan los dos primeros, que son los más utilizados.

2. Acceso a los procedimientos

3. Procedimientos Sub

Hay dos tipos de procedimientos Sub:

Un procedimiento general es un procedimiento declarado en un módulo (generalmente un módulo estándar). La llamada a este tipo de procedimiento se define explícitamente en el código.

Un procedimiento...

1. Tipos de variables

Numéricas

Cadenas de caracteres

El tipo es String. Existen dos tipos de cadenas:

Ejemplo

' Cadena de longitud variable 
Dim sDomicilio As String 
' Cadena de longitud fija (20 caracteres) 
Dim sNombre As String * 20 

Boolean o lógica

El tipo es Boolean (o booleano). La variable puede tomar los valores True (Verdadero) o False (Falso), que es su valor por defecto. Ocupa dos bytes.

Fecha

El tipo es Date. La variable puede tomar los valores de fecha y de hora del 1 de enero del año 100 al 31 de diciembre de 9999. Ocupa ocho bytes.

Variant

Las variables de tipo Variant pueden contener datos de todo tipo, además de los valores especiales Empty, Error y Null.

Usar el tipo de dato Variant ofrece más flexibilidad en el tratamiento de datos. Por ejemplo, si una variable de tipo Variant contiene cifras, se puede usar su valor real o su representación en forma de cadena, según el contexto.

De todas formas, las variables de tipo Variant requieren 16 bytes de memoria para números y 22 bytes más la longitud de la cadena para los caracteres; esto puede ser perjudicial...

1. Presentación

Las variables en forma de matriz permiten almacenar y trabajar con un conjunto de valores llamados elementos. Una variable matriz se caracteriza por un número de dimensiones y un tamaño (número de ocurrencias) para cada una de las dimensiones. El número total de elementos de la tabla es el producto de los tamaños de todas las dimensiones.

Una tabla de una dimensión permite almacenar una lista de valores, una tabla de dos dimensiones permite sobre todo almacenar datos de un rango de celdas Excel: el primer argumento representa las filas y el segundo argumento representa las columnas.

El número de elementos de cada dimensión se define:

Una tabla cuya dimensión y tamaño se especifican en su declaración es una tabla estática. Una tabla cuyo tamaño se puede especificar y modificar durante la ejecución de un programa es una tabla dinámica, o tabla de dimensión libre.

Ejemplos

'    Tabla estática de una dimensión que puede almacenar  
'    13 valores de tipo cadena de caracteres (índice de 0 a 12)  
Option base 0   
Dim TabGastos(12) as String   
  
  
'    Tabla estática de una dimensión que puede almacenar  
'    12 valores enteros (índice de 1 a 12)   
Option base 1   
Dim TabGastos(12) As Integer    
  
'    Tabla estática de dos dimensiones que permite almacenar 
'    los valores de 11 líneas y 11 columnas 
Option base 0   
Dim TabGastos (10, 10) As Double    
Dim TabGastos (0 to 10, 0 to 10) as Double   
  
  
'    Tabla dinámica de dos dimensiones 
Option base 1   
Dim TabGastos() As Double   
Redim TabGastos(11,11) 

2. Declaración de una tabla

Para crear una variable matriz, use la siguiente...

1. Instrucción If

Permite ejecutar ciertas instrucciones en función del resultado de una condición.

If...Then

If <condición> Then <instrucción> [:<instrucción>] 

Si hay varias instrucciones, sepárelas por el signo de puntuación : (dos puntos). Esta sintaxis se usa especialmente para pruebas cortas y simples.

Ejemplo

Si la celda A1 está vacía, emite un bip y muestra un mensaje.

Sub Test_Celda_A1() 
  If IsEmpty(Range("A1")) Then Beep: MsgBox "Olvidó el título" 
End Sub 

If...Then...End If

If <condición> Then 
   <instrucción1> 
   <instrucción2> 
... 
End If 

Ejemplo

Sub Test_Titulo() 
'  Si la celda A1 no está vacía 
'  entonces ponerla en negrita y pintarla de rojo 
    If Not IsEmpty(Range("A1")) Then 
        With Range("A1") 
            .Font.Bold = True 
            .Interior.ColorIndex = 3 
        End With ...

1. Instrucción Do...Loop

Ejecuta un bloque de instrucciones un número indeterminado de veces.

Sintaxis 1

Las instrucciones se ejecutan, mientras que la condición devuelve el valor True.

Do While <Condición> 
      <Instrucciones> 
Loop 

Sintaxis 2

Las instrucciones se ejecutan una primera vez sin condición y, luego, mientras la condición devuelva True.

Do  
    <Instrucciones> 
Loop While <Condición> 

Ejemplo

El siguiente código solicita al usuario que escriba un número mientras que el valor introducido no sea numérico o superior a 100.

Sub Introducir_Numero ()  
  Dim vRespuesta as Variant  
  Do  
     vRespuesta = InputBox("Introduzca un número > 100") 
  Loop While (Not IsNumeric(vRespuesta) Or vRespuesta <= 100) 
End Sub 

Sintaxis 3

Las instrucciones se ejecutan hasta que la condición toma el valor True (mientras que la condición devuelva el valor False).

Do Until <Condición> 
    <Instrucciones> 
Loop 

Sintaxis 4

Las instrucciones se ejecutan una primera vez sin condición y luego hasta que la condición devuelva el valor True.

Do 
    <Instrucciones> 
Loop Until <Condición> 

Ejemplo

El siguiente código solicita al usuario que escriba un número hasta que el valor introducido sea numérico y mayor que 100.

Sub Introducir_Numero() 
  Dim vResponse as Variant 
  Do 
     vResponse = InputBox("Introduzca un número > 100") 
  Loop Until (IsNumeric(vResponse) And vResponse > 100) 
End Sub 

2. Instrucción While...Wend

Ejecuta una serie de instrucciones...

1. Operadores aritméticos

Permiten efectuar cálculos aritméticos con variables o constantes.

2. Operadores de comparación

Comparan dos valores o dos cadenas de caracteres.

La instrucción Option Compare utilizada a nivel de módulo permite declarar el método de comparación por defecto que conviene usar en la comparación de cadenas.

Puede tomar uno de estos tres valores posibles:

1. Comentarios

Los comentarios permiten documentar el código VBA para hacerlo más legible. 

REM comentario 

o

' comentario 

Al validar la línea de comentario, esta se muestra, por defecto, en verde.

2. Carácter de continuación

Una instrucción VBA puede escribirse en muchas líneas usando un guion bajo "_" precedido de un espacio.

Ejemplo

'   Pide la introducción de un precio en tanto que 
'   esté vacío o sea incorrecto 
Dim vPrecio as Variant 
Do While IsEmpty(vPrecio) Or Not IsNumeric(vPrecio) _ 
  Or vPrecio < 50 Or vPrecio > 500 
  vPrecio = InputBox("Escribir un importe comprendido entre " _ 
         & "50 y 500 ") 
Loop 

3. Sangrías

Las sangrías (o tabulaciones) permiten una mayor legibilidad del código. Es especialmente importante usarlas en las estructuras de control (sobre todo si hay varias instrucciones If anidadas) y las estructuras de decisión.