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

With ... End With - Excel VBA

Videokurzy Excel

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

Jak na Excel - naučte se efektivně využívat Excel - nejoblíbenější (Hodnocení 97%, přes 13.000 studentů, + 750 pozitivních zpětných vazeb) - Získat kurz
MaxiKurz Excel - získejte lepší práci, více peněz, staňte se nepostradatelní (přes 6 hodin videí, 160 lekcí) - Získat kurz
G tabulky... - pokud nemáte rádi Excel využijte kurz na Google-tabulky

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: 19.09.2020 11:07

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

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.