With ... End With - Excel VBA

Úvodem

Tato konstrukce Vykonává posloupnost příkazů pro jeden objekt nebo uživatelsky definovaný typ. Příkazy With zrychlují zpracovávání procedur a umožňují vyhnout se opakovaným příkazům.

With objekt [příkazy] End With

Doplnění: V bloku With se nemůže změnit objekt. Proto nelze použít jeden příkaz With pro změnu vlastností různých objektů.

Doporučení: Podle příruček se nedoporučuje odskakujte do nebo z bloků With. Jsou-li provedeny příkazy bez With nebo End With, mohou nastat chyby nebo nepředvídatelné chování celého programu.

Příklad with ... End With

Potřebujete změnit buňce hodnotu, písmo změnit na tučné a změni barvu písma na žlutou.

With Worksheets("List1").Range("A1") .Value = 30 .Font.Bold = True .Interior.Color = RGB(255, 255, 0) End With

Vnořování with ... End With

Příkazy se dají vnořovat. Což nám opět může ulehčit práci a zpřehlednit náš program.

With Workbooks("MujSešit").Worksheets("List1").Cells(1, 1) .Formula = "=SQRT(25)" With .Font .Name = "Arial" .Bold = True .Size = 8 End With End With

Závěrem

Pro další náměty jak funguje with ... End With jsou k dispozici komentáře.

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

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od dubna roku 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím 8x za sebou). 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 20 let (o Excel píší přes 25). Zdarma je zde přes 1.500 návodu, tipů a triků, včetně přes 350 různých šablon, sešitů a přes 70 taháků v pdf.