Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » vba-listy-bunky » ohraniceni-bunek-borders-excel-vba

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

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

Jak pomocí kódu VBA nastavovat ohraničení buněk umístění, styl, barvy, tloušťka čar...

Úvodem

Microsoft Excel logo

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:


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

Než se pustíme do programování tak se seznámíme s možnostmi, co lze v Excel VBA pro ohraničení buněk využít:

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

Ohraničení buňky (Borders) Microsoft Excel

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

Ohraničení buňky (Borders) - styl čáry Microsoft Excel

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 na ohraničení prakticky

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.

Microsoft Excel VBA - stahuj logo

Ke stažení

Soubor Ohraničení buněk - praktické příklady - Excel VBA soubor ve formátu *.xlsm 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:

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: 01.11.2014 14:16

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2006. Své vědomosti a zkušenosti dávám k dispozici na různých školeních a konzultacích, ale také na tomto webu. K dispozici na tomto webu je mnoho návodu, tipů a triků včetně desítek různých šablon.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil

Doporučte tento článek přátelům

Pokud vám článek pomohl, případně si myslíte, že může pomoci i někomu dalšímu, budu rád když jej sdílením doporučíte přátelům - děkuji:



Komentáře zatím nejsou

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







Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články

25.03.2017:
ROUNDUP, ROUNDDOWN - zaokrouhlování

07.04.2017:
Řazení Excel - bug - problém

09.04.2017:
Podmínkové funkce Excel - bug - problém


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2017 | 5246

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.