Denne opplæringen viser hvordan du justerer innstillingene for cellegrenser i VBA.
Formatering av grenser
Øverste kant - dobbel linje
La oss først se på et eksempel på hvordan du setter en blå, tykk, doblet toppramme til cellen B3 på Sheet1:
123456789 | DeleksempelSetBorder ()Med regneark ("Ark1"). Område ("B3"). Grenser (xlEdgeTop).LineStyle = xlDouble.Vekt = xlThick.ColorIndex = 5Slutt medSlutt Sub |
Legg merke til at vi bruker en With -erklæring for å forenkle kodingen vår.
Vi får tilgang til den øvre grensen med .Grenser (xlEdgeTop).
Andre cellegrenser
I stedet får du tilgang til andre grenser, inkludert diagonaler:
123456 | Regneark ("Ark1"). Område ("B2"). Grenser (xlEdgeTop) .Color = RGB (128, 0, 0)Regneark ("Ark1"). Område ("B2"). Grenser (xlEdgeRight) .Color = RGB (0, 255, 0)Regneark ("Ark1"). Område ("B2"). Grenser (xlEdgeBottom) .Color = RGB (0, 0, 128)Regneark ("Ark1"). Område ("B2"). Grenser (xlEdgeLeft) .Color = RGB (255, 0, 0)Regneark ("Ark1"). Område ("B2"). Grenser (xlDiagonalDown) .Color = RGB (0, 0, 0)Regneark ("Ark1"). Område ("B2"). Grenser (xlDiagonalUp) .Color = RGB (0, 0, 0) |
Innenfor grenser
Du kan også justere horisontale (xlInsideHorizontal) og vertikale (xlInsideVertical) grenser for alle cellene i et område:
12345 | Med regneark ("Ark1"). Område ("B2: C6"). Grenser (xlInsideHorizontal).LineStyle = xlDashDotDot.Vekt = xlMedium.ColorIndex = 3Slutt med |
LineStyle
LineStyle -egenskapen kan endres til xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot og xlLineStyleNone.
Egenskapen Weight kan enten være xlHariline, xlThin, xlMedium og xlThick. Du vil ha dette resultatet med koden nedenfor:
12345678 | Regneark ("Ark1"). Område ("C3"). Grenser (xlEdgeTop) .Vekt = xlHairlineRegneark ("Ark1"). Område ("C3"). Grenser (xlEdgeBottom) .Vekt = xlHairlineRegneark ("Ark1"). Område ("D3"). Grenser (xlEdgeTop) .Vekt = xlThinRegneark ("Ark1"). Område ("D3"). Grenser (xlEdgeBottom) .Vekt = xlThinRegneark ("Ark1"). Område ("E3"). Grenser (xlEdgeTop) .Vekt = xlMediumRegneark ("Ark1"). Område ("E3"). Grenser (xlEdgeBottom) .Vekt = xlMediumRegneark ("Ark1"). Område ("F3"). Grenser (xlEdgeTop) .Vekt = xlThickRegneark ("Ark1"). Område ("F3"). Grenser (xlEdgeBottom) .Vekt = xlThick |
Kantfarger kan angis som ColorIndex eller Color (RGB, serienummer eller vbColor). Se mer informasjon om fargeinnstillinger her.
Du kan også legge til rammer rundt et område med en kommando på én linje:
1 | Område ("B5: C7"). BorderAround LineStyle: = xlContinuous, Weight: = xlThick, Color: = vbRed |