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

Nový videokurz na Seduo: Excel pro začátečníky

     

Jste zde: Úvodní stránka » excel » vba-teorie-zaklady » with-end-with-excel-vba

With ... End With - Excel VBA


Jak efektně vytvořit posloupnost příkazů pro jeden objekt.

Ú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: 01.11.2014 14:39

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


Jenik

Přidáno: 09.04.13 09:58

Dobrý den, velmi rád se vzdělávám z vašich webových stránek, ale pořád nemohu naprogramovat makro, které by mi pomohlo při databázových operací. Mám přibližně něco kolem 60000 řádků ve sloupci E. Chtěl bych aplikovat vzorec MIN(E1;E115), MIN(E116;E284), MIN(E285;E453), který by se automaticky vypisoval třeba do sloupce "F" řádek po řádku a usnadnil mi práci abych nemusel vypisovat vzorec do každého řádku zvlášť. Děkuji za případnou pomoc.

Pavel Lasák

Přidáno: 01.08.15 20:34

To Jenik: Využít funkci POSUN a pro jednoduchost v dalším sloupi bych počítal okrajové podmínky E115, E248, ....


Přidání nového komentáře

Poznámka: Z časových důvodu není v mých sílách zodpovědět všechny dotazy. Děkuji za pochopení.




(vlož číslo padesátpět)

Z bezpečnostních důvodu dočasně nemůžete použít HTML značky, kromě <code> a </code> (pro vkládání VBA kódu). Děkuji za pochopení.
Děkuji, za Vaše komentáře.

Za obsah komentářů neodpovídám, jelikož jsou komentáře publikovány ihned po jejich napsání čtenářem. Toto nemohu nijak ovlivnit. Přesto si vyhrazuji možnost jakýkoli neslušný komentář smazat bez udání důvodu. V komentářích si tykáme. ;-)






Sdílejte

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

Nové články


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 - 2016 | 11490

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