Denne vejledning viser, hvordan du justerer cellegrænseindstillinger i VBA.
Formatering af grænser
Øverste kant - dobbelt linje
Lad os først se på et eksempel på, hvordan du indstiller en blå, tyk, fordoblet topkant til celle B3 på Sheet1:
123456789 | UndereksempelSetBorder ()Med regneark ("Ark1"). Område ("B3"). Kanter (xlEdgeTop).LineStyle = xlDouble.Vægt = xlThick.ColorIndex = 5Afslut medAfslut Sub |
Bemærk, at vi bruger en With -erklæring til at forenkle vores kodning.
Vi får adgang til den øverste grænse med .Grænser (xlEdgeTop).
Andre cellegrænser
I stedet kan du få adgang til andre grænser, herunder diagonaler:
123456 | Regneark ("Ark1"). Område ("B2"). Kanter (xlEdgeTop) .Color = RGB (128, 0, 0)Regneark ("Ark1"). Område ("B2"). Kanter (xlEdgeRight) .Color = RGB (0, 255, 0)Regneark ("Ark1"). Område ("B2"). Kanter (xlEdgeBottom) .Color = RGB (0, 0, 128)Regneark ("Ark1"). Område ("B2"). Kanter (xlEdgeLeft) .Color = RGB (255, 0, 0)Regneark ("Ark1"). Område ("B2"). Kanter (xlDiagonalDown) .Color = RGB (0, 0, 0)Regneark ("Ark1"). Område ("B2"). Kanter (xlDiagonalUp) .Color = RGB (0, 0, 0) |
Inde i grænserne
Du kan også justere vandrette (xlInsideHorizontal) og lodrette (xlInsideVertical) grænser for alle celler i et område:
12345 | Med regneark ("Ark1"). Område ("B2: C6"). Kanter (xlInsideHorizontal).LineStyle = xlDashDotDot.Vægt = xlMedium.ColorIndex = 3Afslut med |
LineStyle
Egenskaben LineStyle kan ændres til xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot og xlLineStyleNone.
Egenskapen Vægt kan enten være xlHariline, xlThin, xlMedium og xlThick. Du får dette resultat med nedenstående kode:
12345678 | Regneark ("Ark1"). Område ("C3"). Kanter (xlEdgeTop) .Vægt = xlHairlineRegneark ("Ark1"). Område ("C3"). Kanter (xlEdgeBottom) .Vægt = xlHairlineRegneark ("Ark1"). Område ("D3"). Kanter (xlEdgeTop) .Vægt = xlThinRegneark ("Ark1"). Område ("D3"). Kanter (xlEdgeBottom) .Vægt = xlThinRegneark ("Ark1"). Område ("E3"). Kanter (xlEdgeTop) .Vægt = xlMediumRegneark ("Ark1"). Område ("E3"). Kanter (xlEdgeBottom) .Vægt = xlMediumRegneark ("Ark1"). Område ("F3"). Kanter (xlEdgeTop) .Vægt = xlThickRegneark ("Ark1"). Område ("F3"). Kanter (xlEdgeBottom) .Vægt = xlThick |
Kantfarver kan indstilles som ColorIndex eller Color (RGB, serienummer eller vbColor). Se flere oplysninger om farveindstillinger her.
Du kan også tilføje grænser omkring et område med en kommando på én linje:
1 | Område ("B5: C7"). BorderAround LineStyle: = xlContinuous, Weight: = xlThick, Color: = vbRed |