El lenguaje VBA

1. La sintaxis de declaración

Como sucede con las funciones y los procedimientos, para que una variable se pueda llamar y utilizar, es necesario declararla. La sintaxis de declaración de una variable es la siguiente:

Dim NombreDeVariable As TipoVariable
 

La palabra clave Dim sirve para declarar una variable. Viene seguida del nombre de la variable. Después de la palabra clave As, encontramos el tipo de la variable. Hay varios tipos de datos, que es posible manipular en VBA.

2. Los tipos de datos

Dim b As Byte  
b = 10
 

Dim i As Integer 
i = 315
 

Dim l As Long 
l = 70000
 

1. Las tablas de tamaño fijo

Se determina una tabla de tamaño fijo cuando se define durante la declaración de la variable.

Option Base 0 
Dim Tabla(4) As Integer
 

El índice 4 especifica el tamaño de la tabla. La numeración de los elementos puede comenzar en 0 o 1, según la definición de la instrucción...

1. Los operadores numéricos

+, -, *, /: operadores matemáticos de las operaciones básicas

+: suma

5 + 2 = 7
 

-: resta

3 - 1 = 2
 

*: multiplicación

5 * 2 = 10
 

/: división

20 / 4 = 5
 

\: para la división entera

5 \ 2 = 2
 

ˆ: potencia

2 ˆ 4 = 2 * 2 * 2 * 2 = 16
 

mod: módulo

El módulo devuelve el resto de la división entera de un número entre otro.

10 mod 3 = 1
 

2. Los operadores de cadenas de caracteres

&: concatenación

Para concatenar dos cadenas de caracteres entre ellas, se usa el símbolo ampersand ” & ”. Observe que el operador + también puede funcionar, pero se pueden producir errores si utiliza este operador, ya que se usa para las variables numéricas.

"Hello " & "world" = "Hello world"
 

3. Los operadores de fechas

+: suma

#02/15/2016# + 5 = #02/20/2016#
 

-: resta

#02/15/2016# - 3 = #02/12/2016#
 

4. Los operadores booleanos, operadores lógicos

And: operador Y

True And False = False
 

Or: operador O

True Or False = True
 

Not: operador NO

Not True = False
 

Xor: operador O EXCLUSIVO

Xor permite determinar si es una u otra, pero no las dos al mismo tiempo.

True Xor False = True 
False Xor False...

1. Declaración de un procedimiento

La declaración de un procedimiento en VBA se hace con la palabra clave Sub, según la siguiente sintaxis:

[Private o Public] Sub Nombre_Procedimiento([argumento_1 
Tipo_Argumento, ...]) 
    'Comentarios  
    Instrucciones  
End Sub
 

Nombre_Procedimiento es el nombre del procedimiento, y argumento_1, el nombre de un argumento de tipo Tipo_Argumento. La expresión entre corchetes [Private o Public] significa que podemos añadir si queremos una de las palabras clave Public o Private, utilizadas para definir el carácter público o privado del procedimiento. Si no se utiliza ninguna de estas palabras clave, el procedimiento será público por defecto.

Un procedimiento público se llamará desde cualquier otra ubicación del programa. Un procedimiento privado solo se puede llamar desde otro procedimiento (o función), que se sitúa en el mismo módulo del programa.

Para hacer...

1. Declaración de una función

La declaración de una función en VBA se hace con la palabra clave Function, según la siguiente sintaxis:

[Private o Public] Function Nombre_Funcion([argumento_1 
As Tipo_Argumento, ...]) As Tipo_Retorno 
    'Comentarios 
    Instrucciones 
    Nombre_Funcion = expresión 
End Function
 

Nombre_Funcion es el nombre de la función y argumento_1 el nombre de un argumento de tipo Tipo_Argumento. Una función se puede declarar con cero, uno o varios argumentos. As Tipo_Retorno permite determinar el tipo de valor que la función devolverá. La expresión entre corchetes [Private o Public] significa que podemos añadir si queremos, una de las palabras clave Public o Private, utilizadas para definir el carácter público o privado de la función. Si no se utiliza ninguna de estas palabras clave, la función será pública por defecto.

A continuación se muestra un ejemplo de función Al_Cubo, que recibe un entero n como argumento y devuelve su valor al cubo (n³= n * n * n).

Function Al_Cubo(n As Long) As Long 
    'Función que devuelve el valor de n potencia 3 
    Al_Cubo = n * n * n ...

1. Pasar argumentos

Durante la llamada a una función o procedimiento, algunas veces el programa necesita información para ejecutarse; es el caso, por ejemplo, de la función Al_Cubo, que necesita tener el valor n para devolver su cubo. La información que se proporciona al procedimiento o a la función se llama argumento.

La sintaxis general del paso de argumentos es la siguiente:

[Optional] [ByRef o ByVal] [ParamArray] <nombre_argumento> 
[As Tipo_Argumento]
 

Cada una de las palabras clave tiene un impacto en la naturaleza del argumento. 

Nombre_argumento As Tipo_Argumento
 

N as Long
 

Nombre As String, Apellidos As String, Opcional Nombre_De_Pila As String
 

IsEmpty(Nombre_Argumento)
 

1. El ámbito

Cuando se declaran y se utilizan variables en un programa, se plantea la cuestión de la accesibilidad de estas variables respecto al conjunto del programa. Hay varias maneras de declarar variables/constantes. Según la palabra clave utilizada durante la declaración, la variable será accesible solamente desde algunos puntos del programa. De la misma manera, una variable solo se puede conservar durante la ejecución de un procedimiento o durante toda la ejecución de un programa.

Se definen tres niveles de acceso posibles:

En el siguiente ejemplo, la variable varProc tiene un ámbito de nivel procedimiento, la variable varModuloPrivado tiene un ámbito de nivel módulo y la variable varModuloPublico tiene un ámbito de nivel proyecto.

Public varModuloPublico As Integer 
Dim varModuloPrivado as Integer 
Sub Init() 
varModuloPublico = 50 
varModuloPrivado...

1. Regla general

Los nombres de objetos, variables, constantes, funciones y procedimientos están sujetos a algunas reglas en VBA.

Ejemplos de nombres válidos

Nombre_Becario 
NombreBecario 
Nombre_1_Becario
 

2. Convención de nomenclatura de los objetos

De manera general, se deben renombrar los objetos de la interfaz (Controls). El nombre de los objetos sigue el modelo TypeOfControl, seguido de un número autoincrementado por Access. A continuación se muestran algunos ejemplos de nombres:

Más allá de la dificultad de saber en el momento de codificar qué objeto hace referencia el nombre, es frecuente utilizar un prefijo que determine el tipo de objeto del que se trata, seguido del nombre del objeto. El uso de un carácter de subrayado entre el prefijo y el nombre del objeto puede ayudar en la lectura, pero no es un requisito previo.

A continuación se listan algunos prefijos para los objetos de control:

1. La estructura de prueba If … Then … End If

If condición_1 Then  
    Instrucción_A  
[Else  
    Instrucción_B]  
End If
 

If Edad > 17 Then  
    bMayor = True  
Else  
    bMayor = False  
End If
 

1. El bucle Do Loop

Hay varias estructuras de bucles Do Loop en VBA. Cada estructura tiene su sintaxis.

Do While CondicionAComprobar 
    Instrucciones 
Loop
 

Do   
    Instrucciones  
Loop While CondicionAComprobar
 

Do Until CondicionAComprobar 
    Instrucciones 
Loop
 

Do 
    Instrucciones 
Loop Until CondicionAComprobar
 

1. La función InputBox

Esta función muestra un cuadro de diálogo en el que el usuario puede escribir texto o hacer clic en un botón, y la función devuelve al programa el contenido de la zona de texto en forma de cadena de caracteres. Esta función VBA se declara de la siguiente manera:

Public Function InputBox( _  
    ByVal Prompt As String, _  
    Optional ByVal Title As String = "", _  
    Optional ByVal DefaultResponse As String = "", _  
    Optional ByVal Xpos As Integer = -1, _  
    Optional ByVal YPos As Integer = -1, _  
    Optional ByVal HelpFile As String = "", _  
    Opcional Context As Long) As String
 

Como puede comprobar al leer la declaración de esta función, muchos de los argumentos son opcionales. A continuación se muestra a qué corresponden:

1. Salida de la función: Exit Function

Es posible salir de una función antes del fin End Function. En el ejemplo siguiente, el programa saldrá de la función si el argumento proporcionado es igual a 0:

Function SiNoNul(x as Integer) As Boolean 
SiNoNul = False 
If x = 0 Then 
    Exit Function 
End If 
... 
End Function
 

En caso en que la variable x que se pase como argumento no sea igual a 0, el código se continúa hasta llegar a la instrucción de fin de la función End Function.

2. Salida de un procedimiento: Exit Sub

Es posible salir de un procedimiento antes del fin End Sub. En el siguiente ejemplo, el programa saldrá del procedimiento si el argumento proporcionado es una cadena de caracteres vacía.

Sub SiNoVacia (x as String) 
If x = "" Then 
    Exit Sub 
End If 
... 
End Sub
 

En caso en que la variable...

1. Los posibles tipos de error

Cuando codificamos, hay varios errores posibles que se pueden cometer a diferentes niveles del código.

Sub AusenciaPalabaClave () 
    Dim a As Integer 
    'la línea siguiente está incompleta, 
   se ha olvidado la palabra clave Then 
    If a=1  
          a = a + 1 
    End If 
End Sub
 

Sub ErrorOrtograficoPalabraClave() 
    Dim a As Integer  
    If a = 1 Then  
          a = a + 1  
    ' la línea siguiente tiene un error ortográfico,  
    ' la palabra clave And se debe sustituir por la palabra clave End 
    And if  
End Sub
 

Sub ErrorEnParentesis ()  
    'la línea siguiente tiene demasiados...