Contenido de las clases (20h)

Descargar

• archivos.7z — Archivos XLSM realizados en clase

Temario del curso

Libro recomendado

Otros libros:

• Excel VBA Programming for Dummies — John Walkenbach

Apuntes

• Visual Basic: Operadores lógicos, Condicionales, Bucles
• Traducción de las funciones de Excel al inglés…
• Modelo de objetos de Excel
  

Enlaces

• Common VBA Statements for Excel VBA Programming &
  VBA Functions for Excel VBA Programming — dummies.com
• Visual Basic Quick Reference — cheat-sheets.org

Ejercicios

Módulos

• Condicionales.bas —
• Bucles.bas —
• CopiarPegarArray.bas —

Ejercicios de celdas, filas y columnas

• Formatear celdas no continuas

  for each celda in hoja1.UsedRange
    if celda.NoteText <> ""
      celda.Interior.colorIndex = 20

• Ocultar algunas filas

  with hoja1
    filaMax = .UsedRange.Rows.Count
    for fila = 2 to filaMax
      if .Cells(fila,1).Value < 50
        .Rows(indice).Hidden = True

• Mostrar todas las filas

  hoja1.Rows.Hidden = false

• Marcar fines de semana

  select case Weekday(celda.value, vbMonday)
    case 6 to 7: celda.Interior.ColorIndex = 4
    case else: celda.Interior.ColorIndex = xlColorIndexNone

• Encontrar duplicados

  =CONTAR.SI(A:A;A2)

  for fila = 2 to filaMax
    if Application.WorksheetFunction.CountIf( _
      Columns(1), Cells(fila, 1).Value) > 1

• Eliminar algunas filas

  with hoja1
    for fila = filaMax to 2 step -1
      if .Cells(fila, 1).Value = "X"
        .Rows(fila).delete

• Eliminar filas vacías

  for fila = filaMax to 2 steop -1
    if Application.WorksheetFunction.CountA(Rows(fila)) = 0
      Rows(fila).Delete

• Buscar y reemplazar mediante las funciones: UCASE, INSTR y REPLACE

Ejercicios de hojas

• Añadir una nueva hoja

  Worksheets.Add before:=Worksheets(1)

  Worksheets.Add after:=Worksheets(Worksheets.Count)

• Crear un libro de meses

  Application.SheetsInNewWorkbook = 1
  for indice = 1 to 11
    Worksheets.Add
  for indice = 1 to 12
    Worksheets(indice).Name = monthname(indice)

• Guardar cada hoja en un libro separado

  Application.DisplayAlerts = false
  for each hoja in ThisWorkbook.Worksheets
    hoja.Copy
    ActiveWorkbook.SaveAs ThisWorkbook.path & "\" & ActiveSheet.Name & ".xlsx"
    ActiveWorkbook.Close

• Ocultar todas las hojas menos una

  for each hoja in Worksheets
    if hoja.CodeName <> "Hoja2"
      hoja.Visible = xlSheetHidden

• Proteger/Desproteger hojas una a una

  for each hoja in ThisWorkbook.Worksheets
    hoja.protect password:="···", allowFormattingCells:=True

    hoja.unprotect "···"

• Ocultar las macros: PRIVATE en el SUB y contraseña en las propiedades del proyecto

• Encabezado y pie de página en cada hoja

  for each hoja in Worksheets
    with hoja.PageSetup
      .centerHeader = Environ("username")
      .centerFooter = ThisWorkbook.BuiltinDocumentProperties("creation date")

• Comprobar si existe una hoja

  function existeHoja(nombre)
    for each hoja in Worksheets
      if hoja.CodeName = nombre
        existeHoja = True
        exit function

Ejercicios en PDF

Codificación de macros

• escribir_macro.pdf — Escribir secuencia en las celdas seleccionadas
• factura_macros.pdf — Macros para la creación de una factura
• filas_cols_vacias.pdf — Eliminar filas y columnas vacías
• macro_de_excel_para_eliminar_duplicados_y_resumir_detalle.pdf —
• marcar_especial.pdf — Marcar las celdas con fórmulas, valores y bloqueos

Funciones de usuario

• application_caller.pdf — Opera sobre el rango donde se aplica la función
• bd_nombres_apellidos_vba.pdf — Función aleatoria ponderada
• calcular_edad.pdf — Función que calcula la edad
• calendario_anual.pdf — Muestra un calendario anual mediante una función matricial
• calendario_mensual.pdf — Calendario mensual mediante una función matricial
• cuenta_bancaria.pdf — Calcula el dígito de control de una cuenta bancaria
• cverr.pdf — Mostrar errores de Excel desde una función
• digito5x3.pdf — Muestra un dígito en 5×3 celdas
• ecuacion_segundo_grado.pdf — Función para resolver una ecuación de 2º grado
• funcion_nif.pdf — Función para calcular la letra del NIF
• funcion_unir.pdf — Función para concatenar un rango de celdas
• la_primitiva.pdf — Función para calcular una primitiva

Miscelánea

• mostrar_imagen.pdf — Evento para mostrar una imagen según el valor de celda
• complemento.pdf — Crear un complemento en Excel con funciones y macros

Artículos relacionados

• Aplicar el filtro de página al resto de tablas dinámicas
• Cálculo del IBAN a partir del CCC
• Convertir cifras en letras
• Convertir una fecha y hora en un número entero largo (y a la inversa)
• Funciones de usuario Excel para la generación de calendarios
• Tabla cartesiana en Excel
• Clase para crear formularios en Excel
• Envío y recepción de encuestas con Excel
• Macro de Excel para eliminar duplicados y resumir detalle
• Macro Excel de consulta por ejemplo