Tento tutoriál ukáže, jak upravit nastavení ohraničení buňky ve VBA.
Formátování ohraničení
Horní hranice - dvojitá čára
Nejprve se podívejme na příklad, jak nastavit modré, silné, zdvojené horní ohraničení buňky B3 na List1:
| 123456789 | Dílčí příkladSetBorder ()S pracovními listy („List1“). Rozsah („B3“). Okraje (xlEdgeTop).LineStyle = xlDouble.Weight = xlThick.ColorIndex = 5Konec sEnd Sub |
Všimněte si, že používáme With Statement ke zjednodušení našeho kódování.
K horní hranici se dostaneme pomocí .Borders (xlEdgeTop).
Jiné buněčné hranice
Místo toho můžete přistupovat k dalším hranicím, včetně úhlopříček:
| 123456 | Pracovní listy („List1“). Rozsah („B2“). Okraje (xlEdgeTop). Barva = RGB (128, 0, 0)Pracovní listy („List1“). Rozsah („B2“). Okraje (xlEdgeRight). Barva = RGB (0, 255, 0)Pracovní listy („List1“). Rozsah („B2“). Okraje (xlEdgeBottom). Barva = RGB (0, 0, 128)Pracovní listy („List1“). Rozsah („B2“). Okraje (xlEdgeLeft). Barva = RGB (255, 0, 0)Pracovní listy („List1“). Rozsah („B2“). Okraje (xlDiagonalDown). Barva = RGB (0, 0, 0)Pracovní listy („List1“). Rozsah („B2“). Okraje (xlDiagonalUp). Barva = RGB (0, 0, 0) |
Uvnitř hranic
Můžete také upravit vodorovné (xlInsideHorizontal) a svislé (xlInsideVertical) ohraničení pro všechny buňky v rozsahu:
| 12345 | S pracovními listy („List1“). Rozsah („B2: C6“). Okraje (xlInsideHorizontal).LineStyle = xlDashDotDot.Hmotnost = xlMedium.ColorIndex = 3Konec s |
Styl čáry
Vlastnost LineStyle lze změnit na xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot a xlLineStyleNone.
Vlastnost Weight může být buď xlHariline, xlThin, xlMedium a xlThick. Tento výsledek získáte s níže uvedeným kódem:
| 12345678 | Pracovní listy („List1“). Rozsah („C3“). Okraje (xlEdgeTop). Váha = xlHairlinePracovní listy („List1“). Rozsah („C3“). Okraje (xlEdgeBottom). Váha = xlHairlinePracovní listy („List1“). Rozsah („D3“). Okraje (xlEdgeTop). Váha = xlThinPracovní listy („List1“). Rozsah („D3“). Hranice (xlEdgeBottom). Hmotnost = xlThinPracovní listy („List1“). Rozsah („E3“). Hranice (xlEdgeTop). Váha = xlMediumPracovní listy („List1“). Rozsah („E3“). Hranice (xlEdgeBottom). Váha = xlMediumPracovní listy („List1“). Rozsah („F3“). Okraje (xlEdgeTop). Váha = xlThickPracovní listy („List1“). Rozsah („F3“). Okraje (xlEdgeBottom). Váha = xlThick |
Barvy ohraničení lze nastavit jako ColorIndex nebo Color (RGB, sériové číslo nebo vbColor). Další informace o nastavení barev naleznete zde.
Okraje kolem rozsahu můžete přidat také pomocí jednorázového příkazu:
| 1 | Rozsah ("B5: C7"). BorderAround LineStyle: = xlContinuous, Weight: = xlThick, Color: = vbRed |
