El Projecte | Sobre nosaltres | Contribuir | Donacions | Llicència
HOME Els meus cursos Finalitzats
◄ Anterior
◄

Formatar cel·les amb VBA

Següent ►
►

En aquest tema, aprendrem com formatar cel·les en Excel utilitzant VBA. La formatació de cel·les és una part essencial de la presentació de dades, ja que ajuda a millorar la llegibilitat i la comprensió de la informació. A través d'exemples pràctics, veurem com aplicar diferents formats a les cel·les, com ara canviar el tipus de lletra, el color de fons, els marges, i molt més.

Objectius del tema

  • Comprendre com accedir a les cel·les i rangs en VBA.
  • Aprendre a aplicar diferents formats a les cel·les.
  • Practicar amb exemples pràctics de formatació de cel·les.

Accedir a les cel·les i rangs

Abans de començar a formatar cel·les, hem de saber com accedir-hi. Utilitzarem l'objecte Range per seleccionar les cel·les que volem formatar.

Exemple bàsic: Seleccionar una cel·la

Sub SeleccionarCel·la()
    ' Selecciona la cel·la A1
    Range("A1").Select
End Sub

Exemple bàsic: Seleccionar un rang de cel·les

Sub SeleccionarRang()
    ' Selecciona el rang de cel·les A1 a B2
    Range("A1:B2").Select
End Sub

Aplicar format a les cel·les

Canviar el tipus de lletra

Podem canviar el tipus de lletra d'una cel·la o un rang de cel·les utilitzant la propietat Font.

Sub CanviarTipusLletra()
    ' Canvia el tipus de lletra de la cel·la A1 a Arial
    Range("A1").Font.Name = "Arial"
    ' Canvia la mida de la lletra a 12
    Range("A1").Font.Size = 12
End Sub

Canviar el color de fons

Podem canviar el color de fons d'una cel·la o un rang de cel·les utilitzant la propietat Interior.

Sub CanviarColorFons()
    ' Canvia el color de fons de la cel·la A1 a groc
    Range("A1").Interior.Color = RGB(255, 255, 0)
End Sub

Aplicar marges

Podem aplicar marges a les cel·les utilitzant la propietat Borders.

Sub AplicarMarges()
    ' Aplica un marge a la cel·la A1
    With Range("A1").Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Color = RGB(0, 0, 0)
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

Exemple pràctic: Formatació completa d'un rang de cel·les

Ara que hem vist com aplicar diferents formats a les cel·les, anem a crear un exemple pràctic on aplicarem diversos formats a un rang de cel·les.

Sub FormatacioCompleta()
    ' Selecciona el rang de cel·les A1 a B2
    Dim rng As Range
    Set rng = Range("A1:B2")
    
    ' Canvia el tipus de lletra a Arial i la mida a 12
    With rng.Font
        .Name = "Arial"
        .Size = 12
    End With
    
    ' Canvia el color de fons a groc
    rng.Interior.Color = RGB(255, 255, 0)
    
    ' Aplica un marge a totes les cel·les del rang
    With rng.Borders
        .LineStyle = xlContinuous
        .Color = RGB(0, 0, 0)
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

Exercicis pràctics

Exercici 1: Formatació de cel·les individuals

  1. Escriu un subprocediment que canviï el tipus de lletra de la cel·la B3 a "Calibri" i la mida a 14.
  2. Canvia el color de fons de la cel·la B3 a blau (RGB(0, 0, 255)).

Solució de l'Exercici 1

Sub FormatacioCel·laB3()
    ' Canvia el tipus de lletra de la cel·la B3 a Calibri i la mida a 14
    With Range("B3").Font
        .Name = "Calibri"
        .Size = 14
    End With
    
    ' Canvia el color de fons de la cel·la B3 a blau
    Range("B3").Interior.Color = RGB(0, 0, 255)
End Sub

Exercici 2: Formatació d'un rang de cel·les

  1. Escriu un subprocediment que canviï el tipus de lletra del rang de cel·les C1 a D2 a "Times New Roman" i la mida a 10.
  2. Canvia el color de fons del rang de cel·les C1 a D2 a verd (RGB(0, 255, 0)).
  3. Aplica un marge a totes les cel·les del rang.

Solució de l'Exercici 2

Sub FormatacioRangCD()
    ' Selecciona el rang de cel·les C1 a D2
    Dim rng As Range
    Set rng = Range("C1:D2")
    
    ' Canvia el tipus de lletra a Times New Roman i la mida a 10
    With rng.Font
        .Name = "Times New Roman"
        .Size = 10
    End With
    
    ' Canvia el color de fons a verd
    rng.Interior.Color = RGB(0, 255, 0)
    
    ' Aplica un marge a totes les cel·les del rang
    With rng.Borders
        .LineStyle = xlContinuous
        .Color = RGB(0, 0, 0)
        .TintAndShade = 0
        .Weight = xlThin
    End With
End Sub

Conclusió

En aquest tema, hem après com formatar cel·les en Excel utilitzant VBA. Hem vist com canviar el tipus de lletra, el color de fons i aplicar marges a les cel·les. A més, hem practicat amb exemples pràctics i exercicis per reforçar els conceptes apresos. La formatació de cel·les és una habilitat essencial per presentar dades de manera clara i efectiva, i amb VBA podem automatitzar aquest procés per estalviar temps i esforç.

◄ Anterior
◄
Següent ►
►
El Projecte | Sobre nosaltres | Contribuir | Donacions | Llicència
© Copyright 2024. Tots els drets reservats