2. Variables y Tipos de Datos

En esta lección aprenderás a:

Declarar variables con Dim y entender por qué es buena práctica.
Elegir el tipo correcto: Integer, Long, Double, String, Boolean.
Activar Option Explicit para evitar errores silenciosos.
Leer y escribir valores de celdas usando variables.

¿Por qué usar variables?

Una variable guarda un dato en memoria con un nombre descriptivo. Dim la declara y le asigna un tipo:

declaraciones.bas

VBA

  Dim precio    As Double   ' número decimal 
  Dim cantidad  As Integer  ' número entero pequeño 
  Dim cliente   As String   ' texto 
  Dim activo    As Boolean  ' verdadero / falso 

Tipos de datos más usados

Vista tipo Excel: la primera fila muestra las letras de columna; la primera columna muestra los números de fila. En las celdas con fórmula (=...), cada referencia lleva un color distinto. Clic en la referencia: resalta solo esa celda. Clic en el resto de la celda (por ejemplo el = o los operadores): resalta todas las celdas citadas. Repetir el mismo gesto sobre lo ya resaltado lo oculta.

Tipos de datos en VBAResumen

Evita Variant salvo que sea necesario: consume más memoria y puede ocultar errores de tipo.

	A	B	C
1	Tipo	Rango / Descripción	Cuándo usarlo
2	Integer	−32 768 a 32 767	Contadores pequeños, índices de bucles
3	Long	−2 mil millones a 2 mil millones	Números de fila grandes, cantidades sin decimal
4	Double	Decimal de doble precisión	Precios, porcentajes, cálculos financieros
5	String	Texto de cualquier longitud	Nombres, categorías, mensajes
6	Boolean	True o False	Banderas, resultados de condiciones
7	Date	Fechas y horas	Trabajar con Now(), cálculos de días
8	Variant	Cualquier tipo (menos eficiente)	Solo cuando el tipo es desconocido

Option Explicit

Escribe Option Explicit en la primera línea del módulo para que VBA exija declarar cada variable antes de usarla:

CalcularDescuento.bas

VBA

  Option Explicit 
    
  Sub CalcularDescuento() 
      Dim precio    As Double 
      Dim descuento As Double 
      Dim total     As Double 
    
      precio    = Range("B2").Value 
      descuento = 0.15   ' 15% 
      total     = precio * (1 - descuento) 
    
      MsgBox "Total con descuento: " & total 
  End Sub 

Leer y escribir valores de celdas

TransferirDato.bas

VBA

  Sub TransferirDato() 
      Dim origen As String 
      Dim valor  As Double 
    
      origen = Range("A1").Value   ' lee el texto de A1 
      valor  = Range("B1").Value   ' lee el número de B1 
    
      Range("C1").Value = origen & " — " & valor 
  End Sub 

Practica en Excel

Abre Excel (o copia los datos con el botón de la tabla), sigue los pasos y comprueba el resultado en tu hoja.

Abre el editor VBA (Alt + F11) y escribe Option Explicit al inicio del módulo.
Declara variables de tipo Double, String y Boolean y asígnales valores con Debug.Print.
Escribe la Sub CalcularDescuento() con un precio en B2 y ejecútala.
Intenta usar una variable sin declararla con Option Explicit activo y observa el error.
Crea la Sub TransferirDato() y verifica que C1 combina los valores de A1 y B1.

Ejercicios de práctica

Ejercicio 1 — Tipos básicos

Declara una variable de cada tipo (Integer, Double, String, Boolean), asígnales un valor y muéstralos todos con Debug.Print.

Ver solución sugerida

TiposBasicos.bas

VBA

  Sub TiposBasicos() 
      Dim edad     As Integer 
      Dim precio   As Double 
      Dim nombre   As String 
      Dim activo   As Boolean 
    
      edad   = 30 
      precio = 99.99 
      nombre = "Laptop" 
      activo = True 
    
      Debug.Print "Edad: "   & edad 
      Debug.Print "Precio: " & precio 
      Debug.Print "Nombre: " & nombre 
      Debug.Print "Activo: " & activo 
  End Sub 

Ejercicio 2 — Área de un rectángulo

Declara variables Double para base y altura. Asígnales valores 12 y 7.5. Calcula el área y muéstrala con MsgBox.

Ver solución sugerida

AreaRectangulo.bas

VBA

  Sub AreaRectangulo() 
      Dim base   As Double 
      Dim altura As Double 
      Dim area   As Double 
    
      base   = 12 
      altura = 7.5 
      area   = base * altura 
    
      MsgBox "Área: " & area & " cm²" 
  End Sub 

Ejercicio 3 — Nombre completo

Declara variables String para nombre y apellido. Asígnales tus datos. Concatena ambas en una tercera variable y muéstrala.

Ver solución sugerida

NombreCompleto.bas

VBA

  Sub NombreCompleto() 
      Dim nombre    As String 
      Dim apellido  As String 
      Dim completo  As String 
    
      nombre   = "María" 
      apellido = "López" 
      completo = nombre & " " & apellido 
    
      MsgBox "Nombre completo: " & completo 
  End Sub 

Ejercicio 4 — Leer precio de celda y calcular IVA

Escribe un precio en B2. Crea una Sub que lea ese valor, calcule el IVA (19%) y escriba el total con IVA en C2.

Ver solución sugerida

PrecioConIVA.bas

VBA

  Sub PrecioConIVA() 
      Dim precio As Double 
      Dim total  As Double 
    
      precio = Range("B2").Value 
      total  = precio * 1.19 
    
      Range("C2").Value = total 
  End Sub 

Ejercicio 5 — Variable Boolean como bandera

Declara una variable Boolean llamada esMayor. Asígnale True. Muestra con MsgBox: si es True, "Acceso permitido"; si es False, "Acceso denegado".

Ver solución sugerida

ControlAcceso.bas

VBA

  Sub ControlAcceso() 
      Dim esMayor As Boolean 
      esMayor = True 
    
      If esMayor Then 
          MsgBox "Acceso permitido" 
      Else 
          MsgBox "Acceso denegado" 
      End If 
  End Sub 

Ejercicio 6 — Constante de tasa ⭐⭐

Declara una constante con Const TASA_IVA As Double = 0.19. Úsala para calcular el precio con IVA de tres artículos de distintos precios y muestra cada resultado con Debug.Print.

Ver solución sugerida

ConstanteTasa.bas

VBA

  Sub ConstanteTasa() 
      Const TASA_IVA As Double = 0.19 
    
      Debug.Print "Laptop: "  & 800 * (1 + TASA_IVA) 
      Debug.Print "Teclado: " & 45  * (1 + TASA_IVA) 
      Debug.Print "Monitor: " & 350 * (1 + TASA_IVA) 
  End Sub 

Ejercicio 7 — Conversión de tipos ⭐⭐

Escribe el número 42 en A1. Léelo con una variable String usando CStr(). Luego escribe el texto "100" en B1, léelo con CInt() y multiplícalo por 3. Muestra ambos resultados.

Ver solución sugerida

Conversiones.bas

VBA

  Sub Conversiones() 
      Range("A1").Value = 42 
      Range("B1").Value = "100" 
    
      Dim comoTexto   As String 
      Dim comoNumero  As Integer 
    
      comoTexto  = CStr(Range("A1").Value) 
      comoNumero = CInt(Range("B1").Value) 
    
      Debug.Print "A1 como texto: " & comoTexto & " (longitud " & Len(comoTexto) & ")" 
      Debug.Print "B1 x 3: " & comoNumero * 3 
  End Sub 

Ejercicio 8 — Cuál es mayor ⭐⭐

Escribe dos números en A1 y B1. Declara dos variables, léelas y muestra con MsgBox cuál de las dos es mayor (o si son iguales).

Ver solución sugerida

CualEsMayor.bas

VBA

  Sub CualEsMayor() 
      Dim a As Double 
      Dim b As Double 
    
      a = Range("A1").Value 
      b = Range("B1").Value 
    
      If a > b Then 
          MsgBox "A1 es mayor: " & a 
      ElseIf b > a Then 
          MsgBox "B1 es mayor: " & b 
      Else 
          MsgBox "Son iguales: " & a 
      End If 
  End Sub 

Ejercicio 9 — Suma de tres celdas ⭐⭐

Escribe números en A1, B1 y C1. Crea una Sub que los lea en tres variables Double, los sume en una cuarta variable y escriba el resultado en D1.

Ver solución sugerida

SumaTresCeldas.bas

VBA

  Sub SumaTresCeldas() 
      Dim v1    As Double 
      Dim v2    As Double 
      Dim v3    As Double 
      Dim total As Double 
    
      v1    = Range("A1").Value 
      v2    = Range("B1").Value 
      v3    = Range("C1").Value 
      total = v1 + v2 + v3 
    
      Range("D1").Value = total 
  End Sub 

Ejercicio 10 — Variable Long para número de fila ⭐⭐

Declara una variable Long y asígnale el valor 1048576 (la cantidad máxima de filas de Excel). Muéstrala con Debug.Print. Intenta lo mismo con Integer y observa el error.

Ejercicio 11 — Calculadora con variables ⭐⭐⭐

Escribe en A1 un precio unitario y en B1 una cantidad. Crea una Sub que calcule: subtotal, descuento del 10% si la cantidad es ≥ 5 (usa If simple por ahora), y total. Escribe los tres resultados en C1, D1 y E1 respectivamente.

Ver solución sugerida

CalculadoraVentas.bas

VBA

  Sub CalculadoraVentas() 
      Dim precioUnit As Double 
      Dim cantidad   As Integer 
      Dim subtotal   As Double 
      Dim descuento  As Double 
      Dim total      As Double 
    
      precioUnit = Range("A1").Value 
      cantidad   = CInt(Range("B1").Value) 
      subtotal   = precioUnit * cantidad 
    
      If cantidad >= 5 Then 
          descuento = subtotal * 0.1 
      Else 
          descuento = 0 
      End If 
    
      total = subtotal - descuento 
    
      Range("C1").Value = subtotal 
      Range("D1").Value = descuento 
      Range("E1").Value = total 
  End Sub 

Ejercicio 12 — Variable Date ⭐⭐⭐

Declara una variable Date, asígnale la fecha de hoy con Now() y calcula en otra variable cuántos días faltan para el 31 de diciembre del año actual. Muestra el resultado.

Ver solución sugerida

DiasRestantes.bas

VBA

  Sub DiasRestantes() 
      Dim hoy        As Date 
      Dim finDeAno   As Date 
      Dim diasRestantes As Long 
    
      hoy        = Now() 
      finDeAno   = DateSerial(Year(Now()), 12, 31) 
      diasRestantes = DateDiff("d", hoy, finDeAno) 
    
      MsgBox "Faltan " & diasRestantes & " días para fin de año." 
  End Sub 

Ejercicio 13 — Detectar tipo de variable ⭐⭐⭐

Escribe valores distintos en A1 (número), A2 (texto), A3 (fecha). Crea una Sub que lea cada celda y use IsNumeric(), IsDate() para detectar el tipo y mostrarlo con Debug.Print.

Ver solución sugerida

DetectarTipo.bas

VBA

  Sub DetectarTipo() 
      Dim val As Variant 
    
      val = Range("A1").Value 
      If IsNumeric(val) Then Debug.Print "A1 es numérico: " & val 
    
      val = Range("A2").Value 
      If Not IsNumeric(val) And Not IsDate(val) Then _ 
          Debug.Print "A2 es texto: " & val 
    
      val = Range("A3").Value 
      If IsDate(val) Then Debug.Print "A3 es fecha: " & val 
  End Sub 

Ejercicio 14 — Intercambiar dos variables ⭐⭐⭐

Escribe valores en A1 y B1. Crea una Sub que intercambie los valores de esas dos celdas usando una variable temporal temp. Después de ejecutarla, A1 debe tener el valor original de B1 y viceversa.

Ver solución sugerida

IntercambiarValores.bas

VBA

  Sub IntercambiarValores() 
      Dim temp As Variant 
      temp             = Range("A1").Value 
      Range("A1").Value = Range("B1").Value 
      Range("B1").Value = temp 
      MsgBox "¡Valores intercambiados!" 
  End Sub 

Ejercicio 15 — Reporte de variables ⭐⭐⭐

Crea una Sub que llene las celdas A1:B5 con un mini reporte: en la columna A los nombres de 5 variables ("Precio", "Cantidad", "Subtotal", "Descuento", "Total") y en la columna B sus valores calculados usando variables intermedias.

Ver solución sugerida

MiniReporte.bas

VBA

  Sub MiniReporte() 
      Dim precio    As Double 
      Dim cantidad  As Integer 
      Dim subtotal  As Double 
      Dim descuento As Double 
      Dim total     As Double 
    
      precio    = 50 
      cantidad  = 8 
      subtotal  = precio * cantidad 
      descuento = subtotal * 0.05 
      total     = subtotal - descuento 
    
      Range("A1").Value = "Precio":    Range("B1").Value = precio 
      Range("A2").Value = "Cantidad":  Range("B2").Value = cantidad 
      Range("A3").Value = "Subtotal":  Range("B3").Value = subtotal 
      Range("A4").Value = "Descuento": Range("B4").Value = descuento 
      Range("A5").Value = "Total":     Range("B5").Value = total 
  End Sub 

Contenido

📚 Elige un curso

2. Variables y Tipos de Datos

¿Por qué usar variables?

Tipos de datos más usados

Tipos de datos en VBAResumen

Option Explicit

Leer y escribir valores de celdas

Practica en Excel

Ejercicios de práctica

Ejercicio 1 — Tipos básicos

Ejercicio 2 — Área de un rectángulo

Ejercicio 3 — Nombre completo

Ejercicio 4 — Leer precio de celda y calcular IVA

Ejercicio 5 — Variable Boolean como bandera

Ejercicio 6 — Constante de tasa ⭐⭐

Ejercicio 7 — Conversión de tipos ⭐⭐

Ejercicio 8 — Cuál es mayor ⭐⭐

Ejercicio 9 — Suma de tres celdas ⭐⭐

Ejercicio 10 — Variable Long para número de fila ⭐⭐

Ejercicio 11 — Calculadora con variables ⭐⭐⭐

Ejercicio 12 — Variable Date ⭐⭐⭐

Ejercicio 13 — Detectar tipo de variable ⭐⭐⭐

Ejercicio 14 — Intercambiar dos variables ⭐⭐⭐

Ejercicio 15 — Reporte de variables ⭐⭐⭐

Pon a prueba tus conocimientos

¡Hecho con mucho cariño! ☕