5. Subrutinas y Funciones Propias

En esta lección aprenderás a:

Distinguir Sub (sin retorno) de Function (con retorno).
Pasar parámetros con ByVal y ByRef.
Llamar un Sub desde otro procedimiento.
Crear funciones personalizadas (UDF) usables directamente en celdas.

Sub vs Function

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.

Diferencias clave entre Sub y FunctionResumen

Una Sub automatiza acciones. Una Function calcula y devuelve un resultado.

	A	B	C
1		Sub	Function
2	Devuelve un valor	No	Sí
3	Se puede usar en celdas de Excel	No	Sí (UDF)
4	Se puede llamar desde código	Sí	Sí
5	Aparece en Alt+F8 (lista de macros)	Sí	No
6	Sintaxis de cierre	End Sub	End Function

Sub con parámetros — ByVal

Saludos.bas

VBA

  Sub MostrarSaludo(ByVal nombre As String) 
      MsgBox "Hola, " & nombre & "!" 
  End Sub 
    
  Sub EjecutarSaludo() 
      Call MostrarSaludo("Ana") 
      Call MostrarSaludo("Carlos") 
  End Sub 

ByVal vs ByRef

ByValVsRef.bas

VBA

  Sub DoblarByVal(ByVal numero As Double) 
      numero = numero * 2 
      Debug.Print "Dentro ByVal: " & numero 
  End Sub 
    
  Sub DoblarByRef(ByRef numero As Double) 
      numero = numero * 2 
  End Sub 
    
  Sub Prueba() 
      Dim x As Double 
      x = 5 
      DoblarByVal x 
      Debug.Print "ByVal — x sigue siendo: " & x   ' → 5 
      DoblarByRef x 
      Debug.Print "ByRef — x ahora es: " & x        ' → 10 
  End Sub 

Function — crear funciones personalizadas (UDF)

UDFs.bas

VBA

  Function PrecioConIVA(ByVal precio As Double) As Double 
      PrecioConIVA = precio * 1.19 
  End Function 
    
  ' En una celda de Excel escribe: 
  ' =PrecioConIVA(B2) 
    
  Function ClasificarEdad(ByVal edad As Integer) As String 
      If edad < 18 Then 
          ClasificarEdad = "Menor de edad" 
      ElseIf edad < 65 Then 
          ClasificarEdad = "Adulto" 
      Else 
          ClasificarEdad = "Adulto mayor" 
      End If 
  End Function 

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.

Crea MostrarSaludo() y llámala desde EjecutarSaludo() con dos nombres distintos.
Ejecuta la Sub Prueba() y verifica en la ventana Inmediata la diferencia entre ByVal y ByRef.
Escribe PrecioConIVA() en el módulo y úsala desde una celda con =PrecioConIVA(1000).
Crea ClasificarEdad() y aplícala en una columna de edades.

Ejercicios de práctica

Ejercicio 1 — Sub que limpia un rango

Crea una Sub LimpiarHoja que borre el contenido de A1:Z100 de la hoja activa. Llámala desde otra Sub para probarla.

Ver solución sugerida

LimpiarHoja.bas

VBA

  Sub LimpiarHoja() 
      Range("A1:Z100").ClearContents 
      MsgBox "Hoja limpiada." 
  End Sub 
    
  Sub PruebaLimpiar() 
      Call LimpiarHoja 
  End Sub 

Ejercicio 2 — Function: es positivo?

Crea una Function EsPositivo(n As Double) As Boolean que devuelva True si el número es mayor que 0. Úsala en una Sub que lea A1 y muestre el resultado con MsgBox.

Ver solución sugerida

EsPositivo.bas

VBA

  Function EsPositivo(n As Double) As Boolean 
      EsPositivo = (n > 0) 
  End Function 
    
  Sub PruebaEsPositivo() 
      Dim val As Double 
      val = Range("A1").Value 
      If EsPositivo(val) Then 
          MsgBox val & " es positivo." 
      Else 
          MsgBox val & " NO es positivo." 
      End If 
  End Sub 

Ejercicio 3 — UDF: Celsius a Fahrenheit

Crea una UDF CelsiusAFahrenheit(c As Double) As Double. La fórmula es (c × 9/5) + 32. Úsala en una celda con =CelsiusAFahrenheit(A1).

Ver solución sugerida

Temperatura.bas

VBA

  Function CelsiusAFahrenheit(c As Double) As Double 
      CelsiusAFahrenheit = (c * 9 / 5) + 32 
  End Function 

Ejercicio 4 — Sub con parámetro de encabezado

Crea una Sub LlenarEncabezado(ByVal columnas As Integer) que escriba "Columna 1", "Columna 2", … hasta el número de columnas indicado, en la fila 1. Llámala con LlenarEncabezado 5.

Ver solución sugerida

LlenarEncabezado.bas

VBA

  Sub LlenarEncabezado(ByVal columnas As Integer) 
      Dim i As Integer 
      For i = 1 To columnas 
          Cells(1, i).Value = "Columna " & i 
      Next i 
  End Sub 
    
  Sub PruebaEncabezado() 
      LlenarEncabezado 5 
  End Sub 

Ejercicio 5 — Function: promedio de tres

Crea una Function Promedio3(a As Double, b As Double, c As Double) As Double y úsala en una Sub que lea tres celdas y muestre el promedio.

Ver solución sugerida

Promedio3.bas

VBA

  Function Promedio3(a As Double, b As Double, c As Double) As Double 
      Promedio3 = (a + b + c) / 3 
  End Function 
    
  Sub PruebaPromedio3() 
      Dim resultado As Double 
      resultado = Promedio3(Range("A1").Value, Range("B1").Value, Range("C1").Value) 
      MsgBox "Promedio: " & resultado 
  End Sub 

Ejercicio 6 — Sub organizada en dos partes ⭐⭐

Crea una Sub principal PrepararReporte que llame a dos Sub auxiliares: LimpiarZona (borra A1:E20) y EscribirEncabezados (escribe títulos en la fila 1). Organiza el código en tres procedimientos separados.

Ver solución sugerida

Reporte.bas

VBA

  Sub PrepararReporte() 
      LimpiarZona 
      EscribirEncabezados 
      MsgBox "Reporte preparado." 
  End Sub 
    
  Sub LimpiarZona() 
      Range("A1:E20").ClearContents 
  End Sub 
    
  Sub EscribirEncabezados() 
      Range("A1").Value = "Producto" 
      Range("B1").Value = "Precio" 
      Range("C1").Value = "Cantidad" 
      Range("D1").Value = "Subtotal" 
      Range("E1").Value = "Con IVA" 
  End Sub 

Ejercicio 7 — UDF: comisión de ventas ⭐⭐

Crea una UDF CalcularComision(ventas As Double, porcentaje As Double) As Double. Úsala en celdas con =CalcularComision(A1, 0.08) para calcular el 8% de comisión.

Ver solución sugerida

Comision.bas

VBA

  Function CalcularComision(ventas As Double, porcentaje As Double) As Double 
      CalcularComision = ventas * porcentaje 
  End Function 

Ejercicio 8 — ByRef en práctica ⭐⭐

Crea una Sub AgregarIVA(ByRef precio As Double) que multiplique el precio por 1.19 modificando la variable original. Comprueba que después de llamarla, la variable del llamador tiene el nuevo valor.

Ver solución sugerida

AgregarIVA.bas

VBA

  Sub AgregarIVA(ByRef precio As Double) 
      precio = precio * 1.19 
  End Sub 
    
  Sub PruebaIVA() 
      Dim p As Double 
      p = 100 
      AgregarIVA p 
      Debug.Print "Precio con IVA: " & p   ' → 119 
  End Sub 

Ejercicio 9 — UDF: ¿Es fin de semana? ⭐⭐

Crea una UDF EsWeekend(fecha As Date) As Boolean que devuelva True si la fecha cae en sábado (7) o domingo (1) usando Weekday(). Úsala en una celda.

Ver solución sugerida

EsWeekend.bas

VBA

  Function EsWeekend(fecha As Date) As Boolean 
      Dim dia As Integer 
      dia = Weekday(fecha) 
      EsWeekend = (dia = 1 Or dia = 7) 
  End Function 

Ejercicio 10 — Parámetro opcional ⭐⭐

Crea una Sub MostrarMensaje(ByVal texto As String, Optional titulo As String = "Aviso"). Si se pasa el segundo argumento usa ese título; si no, usa "Aviso" como predeterminado. Pruébala con y sin el segundo argumento.

Ver solución sugerida

MensajeOpcional.bas

VBA

  Sub MostrarMensaje(ByVal texto As String, Optional titulo As String = "Aviso") 
      MsgBox texto, vbInformation, titulo 
  End Sub 
    
  Sub PruebaOpcional() 
      MostrarMensaje "Operación exitosa." 
      MostrarMensaje "¡Error crítico!", "ERROR" 
  End Sub 

Ejercicio 11 — Function que cuenta no vacías ⭐⭐⭐

Crea una Function ContarNoVacias(rango As Range) As Integer que cuente las celdas con contenido en el rango dado. Úsala en una Sub pasando Range("A1:A20").

Ver solución sugerida

ContarNoVacias.bas

VBA

  Function ContarNoVacias(rango As Range) As Integer 
      Dim celda As Range 
      Dim c     As Integer 
      c = 0 
      For Each celda In rango 
          If celda.Value <> "" Then c = c + 1 
      Next celda 
      ContarNoVacias = c 
  End Function 
    
  Sub PruebaContar() 
      MsgBox "No vacías: " & ContarNoVacias(Range("A1:A20")) 
  End Sub 

Ejercicio 12 — UDF: clasificar venta ⭐⭐⭐

Crea una UDF ClasificarVenta(monto As Double) As String que devuelva "Baja" (menor de 1000), "Media" (1000–9999) o "Alta" (10000 o más). Aplícala en una columna de montos.

Ver solución sugerida

ClasificarVenta.bas

VBA

  Function ClasificarVenta(monto As Double) As String 
      If monto < 1000 Then 
          ClasificarVenta = "Baja" 
      ElseIf monto < 10000 Then 
          ClasificarVenta = "Media" 
      Else 
          ClasificarVenta = "Alta" 
      End If 
  End Function 

Ejercicio 13 — Extraer solo letras ⭐⭐⭐

Crea una Function SoloLetras(texto As String) As String que recorra el texto carácter por carácter con Mid() y devuelva solo las letras (A-Z, a-z) eliminando números y espacios.

Ver solución sugerida

SoloLetras.bas

VBA

  Function SoloLetras(texto As String) As String 
      Dim resultado As String 
      Dim i         As Integer 
      Dim c         As String 
      resultado = "" 
      For i = 1 To Len(texto) 
          c = Mid(texto, i, 1) 
          If (c >= "A" And c <= "Z") Or (c >= "a" And c <= "z") Then 
              resultado = resultado & c 
          End If 
      Next i 
      SoloLetras = resultado 
  End Function 

Ejercicio 14 — Exit Function ⭐⭐⭐

Crea una Function DividirSeguro(a As Double, b As Double) As Variant que devuelva el resultado de a/b. Si b es 0, usa Exit Function después de asignar DividirSeguro = "Error: división por cero".

Ver solución sugerida

DividirSeguro.bas

VBA

  Function DividirSeguro(a As Double, b As Double) As Variant 
      If b = 0 Then 
          DividirSeguro = "Error: división por cero" 
          Exit Function 
      End If 
      DividirSeguro = a / b 
  End Function 

Ejercicio 15 — Pipeline de funciones ⭐⭐⭐

Crea tres funciones: BaseImponible(precio, cantidad), CalcularIVA(base) y TotalFactura(precio, cantidad) que llame a las dos anteriores. Escribe en celdas A1=precio, B1=cantidad y ejecuta una Sub que llene C1=base, D1=IVA y E1=total.

Ver solución sugerida

Pipeline.bas

VBA

  Function BaseImponible(precio As Double, cantidad As Integer) As Double 
      BaseImponible = precio * cantidad 
  End Function 
    
  Function CalcularIVA(base As Double) As Double 
      CalcularIVA = base * 0.19 
  End Function 
    
  Function TotalFactura(precio As Double, cantidad As Integer) As Double 
      Dim base As Double 
      base = BaseImponible(precio, cantidad) 
      TotalFactura = base + CalcularIVA(base) 
  End Function 
    
  Sub LlenarFactura() 
      Dim precio   As Double 
      Dim cantidad As Integer 
      precio   = Range("A1").Value 
      cantidad = CInt(Range("B1").Value) 
    
      Range("C1").Value = BaseImponible(precio, cantidad) 
      Range("D1").Value = CalcularIVA(BaseImponible(precio, cantidad)) 
      Range("E1").Value = TotalFactura(precio, cantidad) 
  End Sub 

Contenido

📚 Elige un curso

5. Subrutinas y Funciones Propias

Sub vs Function

Diferencias clave entre Sub y FunctionResumen

Sub con parámetros — ByVal

ByVal vs ByRef

Function — crear funciones personalizadas (UDF)

Practica en Excel

Ejercicios de práctica

Ejercicio 1 — Sub que limpia un rango

Ejercicio 2 — Function: es positivo?

Ejercicio 3 — UDF: Celsius a Fahrenheit

Ejercicio 4 — Sub con parámetro de encabezado

Ejercicio 5 — Function: promedio de tres

Ejercicio 6 — Sub organizada en dos partes ⭐⭐

Ejercicio 7 — UDF: comisión de ventas ⭐⭐

Ejercicio 8 — ByRef en práctica ⭐⭐

Ejercicio 9 — UDF: ¿Es fin de semana? ⭐⭐

Ejercicio 10 — Parámetro opcional ⭐⭐

Ejercicio 11 — Function que cuenta no vacías ⭐⭐⭐

Ejercicio 12 — UDF: clasificar venta ⭐⭐⭐

Ejercicio 13 — Extraer solo letras ⭐⭐⭐

Ejercicio 14 — Exit Function ⭐⭐⭐

Ejercicio 15 — Pipeline de funciones ⭐⭐⭐

Pon a prueba tus conocimientos

¡Hecho con mucho cariño! ☕