VBA podporuje ještě další typ cyklování v Excelu 2016: cyklování přes každý objekt v kolekci objektů. Sbírka, jak možná víte, se skládá z několika objektů stejného typu. Excel má například kolekci všech otevřených sešitů (kolekce Workbooks) a každý sešit má kolekci listů (kolekce Worksheets).
Pokud potřebujete procházet každý objekt v kolekci, použijte strukturu For Each-Next. Následující příklad prochází každý list v aktivním sešitu a odstraní ho, pokud je prázdný:
Sub DeleteEmptySheets()
Dim WkSht jako pracovní list
Application.DisplayAlerts = False
Pro každý WkSht v ActiveWorkbook.Worksheets
If WorksheetFunction.CountA(WkSht.Cells) = 0 Pak
WkSht.Delete
End If
Další WkSht
Application.DisplayAlerts = True
End Sub
V tomto příkladu je proměnná WkSht objektová proměnná, která představuje každý list v sešitu. Na názvu proměnné WkSht není nic zvláštního; můžete použít libovolný název proměnné, který chcete.
Kód prochází každý list a určí prázdný list spočítáním neprázdných buněk. Pokud je tento počet nula, list je prázdný a je smazán. Všimněte si, že nastavení DisplayAlerts je vypnuto, když smyčka dělá svou věc. Bez tohoto příkazu Excel zobrazí varování pokaždé, když se má list smazat.
Pokud jsou všechny listy v sešitu prázdné, zobrazí se při pokusu aplikace Excel o odstranění jediného listu chyba. Normálně byste napsali kód, který tuto situaci zvládne.
Zde je další příklad For Each-Next. Tento postup používá smyčku ke skrytí všech listů v aktivním sešitu kromě aktivního listu.
Dílčí HideSheets()
Dim Sht jako pracovní list
Pro každý Sht v ActiveWorkbook.Worksheets
If Sht.Name <> ActiveSheet.Name Then
Sht.Visible = xlSheetHidden
End If
Další Sht
End Sub
Procedura HideSheets zkontroluje název listu. Pokud není stejný jako název aktivního listu, je list skrytý. Všimněte si, že vlastnost Visible není logická. Tato vlastnost může ve skutečnosti nabývat jakékoli ze tří hodnot a Excel poskytuje tři vestavěné konstanty. Pokud vás zajímá třetí možnost (xlVeryHidden), podívejte se do systému nápovědy.
Co se skryje, musí se nakonec odkrýt, takže zde je makro, které odkryje všechny listy v aktivním sešitu:
Sub UnhideSheets()
Dim Sht jako pracovní list
Pro každý Sht v ActiveWorkbook.Worksheets
Sht.Visible = xlSheetVisible
Další Sht
End Sub
Není překvapením, že můžete vytvořit vnořené smyčky For Each-Next. Procedura CountBold prochází každou buňku v použitém rozsahu na každém listu v každém otevřeném sešitu a zobrazuje počet buněk, které jsou formátovány tučně:
Sub CountBold()
Ztlumit WBook jako sešit
Dim WSsheet As Worksheet
Dim Cell As Range
Dim Cnt As Long
Pro každý WBook v sešitech
Pro každý list WBook.Worksheets
Pro každou buňku v WSheet.UsedRange
Pokud Cell.Font.Bold = True, pak Cnt = Cnt + 1
Další buňka
Další WSlist
Další WBook
MsgBox Cnt & „nalezeny tučné buňky“
End Sub
Jak zablokovat aplikaci Microsoft Word v otevírání souborů v režimu pouze pro čtení v systému Windows Aplikace Microsoft Word otevírá soubory v režimu pouze pro čtení, takže je nelze upravovat? Nebojte se, metody jsou uvedeny níže
Jak opravit chyby při tisku nesprávných dokumentů Microsoft Word Chyby při tisku dokumentů Word se změněným písmem, chaotickými odstavci, chybějícím textem nebo ztraceným obsahem jsou poměrně časté. Nicméně ne
Pokud jste použili pero nebo zvýrazňovač ke kreslení na snímky aplikace PowerPoint během prezentace, můžete kresby uložit pro další prezentaci nebo je vymazat, takže až ji příště ukážete, začnete s čistými snímky aplikace PowerPoint. Chcete-li vymazat kresby perem a zvýrazňovačem, postupujte podle těchto pokynů: Mazání čar jedna na […]
Knihovna stylů obsahuje soubory CSS, soubory XSL (Extensible Stylesheet Language) a obrázky používané předdefinovanými vzorovými stránkami, rozvržení stránek a ovládací prvky v SharePointu 2010. Chcete-li najít soubory CSS v knihovně stylů webu pro publikování: Vyberte Akce webu→ Zobrazit Veškerý obsah webu. Zobrazí se obsah webu. Knihovna stylů se nachází v […]
Nezahlcujte své publikum gargantuovskými čísly. V aplikaci Microsoft Excel můžete zlepšit čitelnost řídicích panelů a sestav formátováním čísel tak, aby se zobrazovaly v tisících nebo milionech.
Naučte se používat nástroje sociálních sítí SharePoints, které umožňují jednotlivcům a skupinám komunikovat, spolupracovat, sdílet a propojovat se.
Juliánská data se často používají ve výrobním prostředí jako časové razítko a rychlý odkaz pro číslo šarže. Tento typ kódování data umožňuje maloobchodníkům, spotřebitelům a servisním zástupcům identifikovat, kdy byl produkt vyroben, a tím i stáří produktu. Juliánská data se také používají v programování, armádě a astronomii. Odlišný […]
Webovou aplikaci můžete vytvořit v Accessu 2016. Co je tedy vlastně webová aplikace? Web znamená, že je online, a aplikace je jen zkratka pro „aplikaci“. Vlastní webová aplikace je online databázová aplikace přístupná z cloudu pomocí prohlížeče. Webovou aplikaci vytváříte a udržujete ve verzi pro počítače […]
Většina stránek v SharePointu 2010 zobrazuje seznam navigačních odkazů na panelu Snadné spuštění na levé straně stránky. Panel Snadné spuštění zobrazuje odkazy na doporučený obsah webu, jako jsou seznamy, knihovny, weby a stránky publikování. Panel Snadné spuštění obsahuje dva velmi důležité odkazy: Odkaz na veškerý obsah webu: […]
U jednoduchých problémů Řešitel v Excelu obvykle rychle najde optimální hodnoty proměnné Řešitel pro účelovou funkci. Ale v některých případech má Řešitel problém najít hodnoty proměnné Řešitel, které optimalizují účelovou funkci. V těchto případech Řešitel obvykle zobrazí zprávu nebo chybovou zprávu, která popisuje nebo popisuje problém, který […]
