Ohraničení buněk (Borders) - kódy Excel VBA

Úvodem

Pro přehlednost je článek rozdělen na kapitoly, které se týkají nastavování formátu buněk. K dispozici je zatím:

• Trocha teorie
• Ohraničení buňky
• Barva ohraničení
• Sešit ke stažení - zdarma
• Související články

Ohraničení buňky (Borders) - teorie

Umístění

Přesná specifikace umístění ohraničení (čáry):

• xlDiagonalDown
• xlDiagonalUp
• xlEdgeRight
• xlEdgeTop
• xlInsideHorizontal
• xlEdgeBottom
• xlInsideVertical
• xlEdgeLeft

poslední neméně důležitá, pokud nechcete mít ohraničení žádné:

• xlNone

Graficky

Typ čáry

K dispozici je 6 základních typů (stylů) čar:

• xlContinuous
• xlDot - tečkovaná
• xlDashDotDot - čerchovaná
• xlDash - čarkovaná
• xlSlantDashDot - čerchovaná posunutá
• xlDouble - dvojitá

Tloušťka

K dispozici jsou tři tloušťky čar Weight

• xlThin
• xlMedium - střední podobně jako steak ;)
• xlThick

Předpřipravené čáry

Na první pohled se může zdát, že typu čar je v Excel více, ale jde o kombinaci typu čáry a její tloušťky.

Základní teorií máte za sebou. Můžeme teorií vyzkoušet prakticky.

Barva

Barvy fungují stejně jako u pozadí, barvy písma atd. Takže na výběr je nepřeberné množství.

• Color RGB(150, 150, 150)
• ColorIndex
• ThemeColor

Ohraničení buňky

Jak nastavit ohraničení (borders) buňky pomocí VBA v Excelu pro horní linku?

Range("B32").Select With Selection.Borders(xlEdgeTop) .LineStyle = xlDouble .Weight = xlThick .ColorIndex = xlAutomatic End With Range("B32").Select With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlHairline .ColorIndex = xlAutomatic End With

Odstranění ohraničení:

Potřebujeteli ohraničení odstranit

Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone Selection.Borders(xlEdgeLeft).LineStyle = xlNone Selection.Borders(xlEdgeTop).LineStyle = xlNone Selection.Borders(xlEdgeBottom).LineStyle = xlNone Selection.Borders(xlEdgeRight).LineStyle = xlNone Selection.Borders(xlInsideVertical).LineStyle = xlNone Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Nebo pro oblast buněk B18:C25

Range("B18:C25").Select With Selection.Borders .LineStyle = xlNone End With Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone

Barva ohraničení:

Ohraničení můžete přiřadit i barvu. Například využitím

.ThemeColor = 6

nebo

.ColorIndex = 8

nebo

.Color = RGB(150, 150, 150)

Pro oblast B41:C41 a šedou barvu ;)

Range("B41:C41").Select With Selection.Borders .LineStyle = xlContinuous .Weight = xlThin .Color = RGB(150, 150, 150) End With

Podrobněji v samostatném článku.

Ke stažení

Soubor Ohraničení buněk - praktické příklady - Excel VBA ke stažení zdarma. Soubor využívá makra (pro Excel 2007 a novější).

Další související články:

Pokud už máte buňku (oblast) označenou můžete s touto oblasti dále pracovat například:

• RESIZE, OFFSET - zvětšit, posunout oblast
• Zapiš údaj do buňky (oblasti)
• Přečti údaj z buňky (oblasti)
• Formátování buněk datum a čas
• ...

Závěrem

Máte svůj oblíbený kód, které ještě není uveden. Můžete se pochlubit v komentářích.

Článek byl aktualizován: 19.09.2020 11:06

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.