Denna handledning visar hur du justerar cellgränsinställningar i VBA.
Formatera gränser
Övre kant - dubbel linje
Låt oss först titta på ett exempel på hur du sätter en blå, tjock, fördubblad övre kant till cellen B3 på Sheet1:
| 123456789 | Sub ExempelSetBorder ()Med kalkylblad ("Sheet1"). Range ("B3"). Borders (xlEdgeTop).LineStyle = xlDouble.Vikt = xlThick.ColorIndex = 5Sluta medAvsluta Sub |
Lägg märke till att vi använder ett With -uttalande för att förenkla vår kodning.
Vi når den övre gränsen med .Gränser (xlEdgeTop).
Andra cellgränser
Istället kan du komma åt andra gränser, inklusive diagonaler:
| 123456 | Arbetsblad ("Sheet1"). Omfång ("B2"). Borders (xlEdgeTop) .Color = RGB (128, 0, 0)Arbetsblad ("Sheet1"). Område ("B2"). Ramar (xlEdgeRight) .Color = RGB (0, 255, 0)Arbetsblad ("Sheet1"). Omfång ("B2"). Ramar (xlEdgeBottom) .Color = RGB (0, 0, 128)Arbetsblad ("Sheet1"). Omfång ("B2"). Borders (xlEdgeLeft) .Color = RGB (255, 0, 0)Arbetsblad ("Ark1"). Område ("B2"). Ramar (xlDiagonalDown) .Color = RGB (0, 0, 0)Arbetsblad ("Ark1"). Område ("B2"). Ramar (xlDiagonalUp) .Color = RGB (0, 0, 0) |
Inuti gränserna
Du kan också justera horisontella (xlInsideHorizontal) och vertikala (xlInsideVertical) gränser för alla celler i ett område:
| 12345 | Med kalkylblad ("Sheet1"). Omfång ("B2: C6"). Borders (xlInsideHorizontal).LineStyle = xlDashDotDot.Vikt = xlMedium.ColorIndex = 3Sluta med |
LineStyle
Egenskapen LineStyle kan ändras till xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot och xlLineStyleNone.
Egenskapen Vikt kan vara antingen xlHariline, xlThin, xlMedium och xlThick. Du kommer att få detta resultat med koden nedan:
| 12345678 | Arbetsblad ("Sheet1"). Omfång ("C3"). Borders (xlEdgeTop) .Weight = xlHairlineArbetsblad ("Sheet1"). Omfång ("C3"). Borders (xlEdgeBottom) .Weight = xlHairlineArbetsblad ("Sheet1"). Omfång ("D3"). Borders (xlEdgeTop) .Weight = xlThinArbetsblad ("Sheet1"). Omfång ("D3"). Borders (xlEdgeBottom) .Weight = xlThinArbetsblad ("Sheet1"). Omfång ("E3"). Borders (xlEdgeTop) .Weight = xlMediumArbetsblad ("Sheet1"). Omfång ("E3"). Borders (xlEdgeBottom) .Weight = xlMediumArbetsblad ("Sheet1"). Omfång ("F3"). Borders (xlEdgeTop) .Weight = xlThickArbetsblad ("Sheet1"). Omfång ("F3"). Borders (xlEdgeBottom) .Weight = xlThick |
Kantfärger kan ställas in som ColorIndex eller Color (RGB, serienummer eller vbColor). Se mer information om färginställningar här.
Du kan också lägga till gränser runt ett område med ett enradigt kommando:
| 1 | Område ("B5: C7"). BorderAround LineStyle: = xlContinuous, Vikt: = xlThick, Färg: = vbRed |
