Přejít na hlavní obsah

Excel vyhledávání na všech listech pomocí VBA: efektivní způsob

Microsoft Excel je jedním z nejoblíbenějších nástrojů pro práci s datovými tabulkami. Poskytuje mnoho funkcí a funkcí, které výrazně zjednodušují a urychlují práci s velkým množstvím informací. Jednou z těchto funkcí je vyhledávání dat ve všech listech knihy.

Při práci se spoustou listů a různými datovými strukturami může být nutné najít určitou hodnotu, ale ručně procházet každý list je dlouhý a neefektivní proces. V tomto případě může použití makra v jazyce VBA (Visual Basic for Applications) výrazně usnadnit vyhledávání.

Makro v Excelu je řada příkazů a instrukcí zaznamenaných v programovacím jazyce VBA. Umožňuje automatizovat provádění opakujících se úkolů a rychle provádět operace zpracování dat. Chcete-li vyhledat hodnotu ve všech listech knihy, můžete napsat makro, které střídavě prochází každý list a hledá hledanou hodnotu.

V tomto článku se podíváme na efektivní způsob, jak vytvořit makro pro vyhledávání všech listů v Excelu pomocí programovacího jazyka VBA. Ukážeme, jak určit rozsah vyhledávání, jak nastavit kritéria vyhledávání a nakonec jak získat výsledky vyhledávání na novém listu. Tento přístup bude užitečný pro práci s velkým množstvím dat a ušetří vám čas a úsilí při hledání správných informací v Excelu.

Excel: vyhledávání všech listů s VBA

Hledání informací ve velkých tabulkách Excelu může být velmi časově náročné. Pomocí VBA je však možné tento proces výrazně zjednodušit tím, že umožňuje vyhledávat požadovaná data současně na všech listech knihy.

Chcete-li začít, musíte otevřít Editor VBA v Excelu stisknutím kombinace kláves ALT+F11. Poté vložíme následující kód:

Sub Поиск_по_всем_листам()Dim sh As WorksheetDim rng As RangeDim searchValue As String' Здесь указываем значение, которое необходимо найтиsearchValue = "Искомое значение"' Перебираем все листы книгиFor Each sh In ThisWorkbook.Sheets' Ищем значение в каждом листеSet rng = sh.Cells.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)' Если значение найдено, то выводим егоIf Not rng Is Nothing ThenMsgBox "Значение найдено на листе " & sh.Name & " в ячейке " & rng.AddressEnd IfNext shEnd Sub

Tento kód funguje následovně:

  • Do proměnné searchValue je třeba umístit hodnotu, kterou je třeba najít v tabulce. Například "hledaný význam".
  • Cyklus For Each prochází všemi listy knihy, počínaje prvním.
  • V řádku Set rng = sh.Cells.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False) vyhledává hodnotu searchValue v buňkách sh (každého listu). Možnosti LookIn:=xlValues a LookAt:=xlWhole znamenají, že vyhledávání bude provedeno pouze v hodnotách a přesné shodě s hodnotou.
  • Pokud je hodnota nalezena, zobrazí se zpráva s názvem listu a adresou buňky, kde byla hodnota nalezena.

Po použití tohoto kódu, Excel projede všechny listy knihy a zobrazí zprávu, pokud najde požadovanou hodnotu. Hledání hodnot v Excelu tak bude výrazně efektivnější a rychlejší.

Je třeba poznamenat, že tento kód hledá hodnotu pouze v textových buňkách. Pokud je nutné hledat v jiných typech buněk (např. v číselných nebo datových), je nutné podle toho změnit možnost LookIn.

Pomocí VBA je tedy možné výrazně zjednodušit a urychlit proces vyhledávání informací v tabulkách Excelu. To může být zvláště užitečné při práci s velkým množstvím dat nebo když je třeba najít konkrétní informace ve více listech knihy najednou.

Čtěte také