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.

Al presentar a su perro, se indica su nombre y su raza ("Snoopy, cocker"), y para usar una variable, se llama por su nombre.

2. Los tipos de datos

Hay varios tipos de datos (también tenemos las constantes).

De la misma manera que existen varias razas de perros.

Dim b As Byte  
b = 13 

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(3) As Date 

El índice 3 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

1 + 2 = 3 

-: resta

6 - 5 = 1 

*: multiplicación

4 * 9 = 36 

/: división

42 / 6 = 7 

\: para la división entera

8 \ 3 = 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.

25 mod 3 = 1' (car 25 = 3 * 8 + 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.

"Hola " & "a todos" = "Hola a todos" 

3. Los operadores de fechas

+: suma

#01/12/2020# + 365 = #01/12/2020# 

-: resta

#04/10/2016# - 4 = #04/06/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 ...

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_de_Procedimiento([argumento_1 As 
Tipo_Argumento, ...]) 
    'Comentarios  
    Instrucciones  
End Sub 

Nombre_de_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 (Public) por defecto.

Un procedimiento público se puede llamar desde cualquier otra ubicación del programa. Un procedimiento privado solo se puede llamar desde otro...

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 (Public) por defecto.

A continuación, se muestra un ejemplo de función El_Triple, que recibe un entero x como argumento y devuelve el doble de su valor (x*3).

Function El_Triple (x As Long) As Long  
    'Funció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 El_Triple, que necesita tener el valor x para devolver el doble.

Nuestro perro necesita saber qué buscar: "busca…la pelota".

La información proporcionada al procedimiento o función, se llama parámetros (también se utiliza la palabra argumento).

La pelota es el argumento para el perro.

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 

x as Long 

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

IsEmpty(Nombre_Argumento) 

Sub Prueba()  
    Dim Valor As Integer  
    Valor = 10  
    MsgBox Valor  
    Proc_5_Veces_ByRef Valor '10 ...

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:

Es el interior y el exterior de la casa.

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 
Private varModuloPrivado as Integer ...

1. Regla general

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

No podemos tener dos Rantanplan en una habitación, ni dos Milou en la casa, ni siquiera dos Snoopy en el exterior.

Ejemplos de nombres válidos

Nombre_Cliente 
NombreCliente 
Nombre_1_Cliente 

Le llamaremos Idefix en lugar de Idéfix.

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:

3. Convención de nomenclatura de los objetos de Access

Los objetos de Access se pueden nombrar según un prefijo de tres caracteres.

A continuación se listan algunos ejemplos de objetos y nombres.

4. Convención de nomenclatura de las variables

Para poder determinar el tipo de variable después de la lectura del nombre, es recomendable utilizar un prefijo...

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 

bMayor...

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 

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:

A continuación se muestra un ejemplo de programa que llama a la función InputBox, pidiendo al usuario su nombre y almacenando el resultado en una variable respuesta (declarada...

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 2:

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

En caso en que la variable x que se pase como argumento no sea igual a 2, 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á...

1. Los posibles tipos de error

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

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

Sub ErrorOrtograficoPalabraClaveEnd() 
    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 paréntesis  
    MsgBox("Ejemplo de código",vbOKOnly+vbCritical,"Capítulo 4") 
End Sub 

Sub ErrorNomenclatura () 
    Dim NombreDeVariableExtendida As Integer 
    NombreDeVariableExtendida = 3 
    'La línea siguiente mostrará 0 en lugar de 3, ...