Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:
Jak efektně vytvořit posloupnost příkazů pro jeden objekt.
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.
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
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
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
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.
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ů.
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.
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, ....
Pomohl Vám návod? Sdílejte na Facebooku, G+ |
||
LinkedIn... |
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 - 2024 |