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

📚 Cursos de Café y Código

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! ☕