Jak vložit hotové makro do sešitu? Automatizujte úkoly s Macro Recorder - Excel

Objekty, jako jsou makra v Excelu, pomohou kompetentně organizovat proces práce v Excelu.

Podívejme se podrobněji na všechny funkce práce s těmito objekty v softwarovém balíku MS Office.

Pomocí maker lze zautomatizovat každou buňku v dokumentu. To je způsobeno tím, že uživatel zaznamenává všechny akce v době jejich vytvoření.

Co jsou makra a proč jsou potřebná

S makry můžete pracovat v kterémkoli z programů MS Office. Především jsou potřeba, aby bylo možné kompetentně organizovat práci uživatele v programu.

Jsou nezbytné, aby se stejný typ úkolů a akcí neprováděl několikrát.

Jejich vytvoření a použití pomůže výrazně ušetřit čas a maximálně zautomatizovat práci v programu.

Důležité! Díky vytvořenému makru můžete práci jednoduše udělat okamžitě, přičemž ruční provedení by zabralo spoustu času.

Jeho tělo se ve skutečnosti skládá z instrukcí, které programu říkají, co má dělat, pokud uživatelé zvolí jeden nebo druhý.

S konceptem makra se můžeme setkat i v programu Word, ale v Excelu má několik výhod:

• Nejprve spojí všechny instrukce do jednoho kompletního prováděcího skriptu, což vám umožní optimalizovat zátěž programu a začít pracovat rychleji;
• Můžete jej vyvolat pomocí klávesy na panelu nástrojů nebo pomocí speciální kombinace kláves. To umožní uživateli, aby se během práce neodtrhl od klávesnice;

Zaznamenáváme další dva články, které mohoubudete potřebovat:

Vytváření vlastních maker v Excelu 2010, 2007, 2013

Podívejme se podrobněji na příklady vytváření v aplikaci Excel 2007, 2013:

• Otevřete dokument, se kterým pracujete a pro který chcete vytvořit makro. Mimochodem, každá buňka, na které se akce provádí, musí být zpracována;
• Zobrazte kartu vývojáře na pásu karet. Chcete-li to provést, otevřete položku nabídky "Soubor" a otevřete možnosti, jak je znázorněno na obrázku;

• Poté vyberte přizpůsobení pásu karet a přidejte okno vývojáře do seznamu hlavních oken, jak je znázorněno na obrázku níže;

• Nyní můžete přejít přímo k vytvoření samotného uživatelského makra.
  Po svém vytvoření bude každá buňka automatizována – to znamená, že kterákoli buňka v uživatelském dokumentu provede stejný typ akce, který uživatel určí;
• Najděte na kartě vývojáře speciální klíč pro tvoření. Jeho umístění je znázorněno na obrázku níže;

• Klikněte na klíč. Zobrazí se okno pro vytvoření, ve kterém musíte zadat název, klávesovou zkratku, pomocí které se zapne. Můžete také přidat krátký popis toho, jak makro funguje.
  To je třeba udělat, pokud jich máte příliš mnoho, abyste se nepletli;

• Potom klepněte na tlačítko OK. Okno se zavře a proces nahrávání začne. Chcete-li nahrávání zastavit, stiskněte odpovídající tlačítko na ovládacím panelu;

• Nyní začněte provádět akce, které budou zaznamenány do makra. Každá buňka může být vyplněna určitými údaji.
  Můžete také pracovat pouze s jednou buňkou, po nahrání a povolení makra bude stejná buňka zaznamenána podle zadaného algoritmu;
• Nezapomeňte stisknout tlačítko zastavení záznamu dat. Po dokončení všech výše uvedených kroků bude zaznamenán a uložen do programu.

Jak povolit a pracovat s makry v Excelu

Chcete-li to provést, postupujte podle následujících pokynů:

• Na kartě vývojáře vyhledejte tlačítko s názvem „Makra“. Klikněte na to;

• Vyberte ze seznamu požadované makro a klikněte na tlačítko "Spustit";

• Potřebné makro můžete také spustit pomocí klávesové zkratky, kterou uživatel zadal na počáteční fáze jeho vytvoření;
• Po kliknutí na tlačítko spustit se znovu provedou všechny akce, které byly provedeny během nahrávání.

Makro se nejlépe používá, když je třeba určitou buňku zkopírovat vícekrát.

Makro pro zvýraznění na každém listu v aktivním sešitu buňky A1. Posouvá také obrazovku.

Sub A1SelectionEachSheet() Dim i As Integer Application.ScreenUpdating = False For i = 1 To Sheets.Count Sheets(i).Select ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = 1 Range("a1").Select Next Sheets(1) .Vyberte Application.ScreenUpdating = True End Sub

Makro pro kopírování aktuálního listu zadaným počtem opakování. Užitečné pro testování některých maker - provedli změny, zkontrolovali je na kopii dat. Došly kopie – spusťte makro znovu

Sub SimpleCopy() Dim i As Integer, j As Integer i = Application.InputBox("Zadejte počet kopií aktuálního listu") Application.ScreenUpdating = False For j = 1 To i ActiveSheet.Copy after:=Sheets(Sheets) .Count) ActiveSheet .Name = "Kopírovat" & j Další j Application.ScreenUpdating = True End Sub

Vytvářejte listy s názvy ze zadaného rozsahu na listu

Sub CreateFromList() Ztlumit buňku jako rozsah pro každou buňku ve výběru Sheets.Add after:=Sheets(Sheets.Count) ActiveSheet.Name = cell.Value Další buňka End Sub

Markros odesílá e-maily se zpožděním. Upravené makro z knihy Johna Walkenbacha Professional VBA Programming

Sub SendMail() Dim OutApp as Object Dim OutApp As Object Dim OutMail as Object Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon On Error GoTo cleanup Set OutMail = OutApp.CreateItem(0) On Error Pokračovat dále s OutMail .To = " [e-mail chráněný]" .Subject = "Přehled prodeje" .Přílohy.Přidat "C:\Test.txt" .Body = "Tělo zprávy" .DeferredDeliveryTime = Replace(Date, ".", "/") & " 11:00:00 " .send ".Display pro vytvoření e-mailu a jeho otevření End With On Error Přejít na 0 Set OutMail = Nothing cleanup: Set OutApp = Nothing End Sub

Mírně upravené makro obsahu od Nikolaje Pavlova.
Pokud kniha již obsahuje list Obsah, makro navrhne jeho odstranění. Pokud ne, vytvoří list "Obsah" a vloží odkazy s názvy listů

Sub TableOfContent() Dim sheet As Worksheet Dim cell As Range Dim Answer As Integer Application.ScreenUpdating = False S ActiveWorkbook For Every Worksheet In ActiveWorkbook.Worksheets If Worksheet.Name = "Table of Contents" Then Answer = MsgBox("There is a sheet v sešitu s názvem Obsah. Delete it?", vbYesNo) If Answer = vbNo Then Exit Sub If Answer = vbYes Then Application.DisplayAlerts = False Worksheet.Delete Application.DisplayAlerts = True End If End If Next End With Sheets(Array (1)).Select Sheets.Add Sheets(1).Name = "Obsah" S ActiveWorkbook Pro každý list V ActiveWorkbook.Worksheets If sheet.Name<>"Obsah" Poté nastavte buňku = Worksheets(1).Buňky(list.Index, 1) .Worksheets(1).Hyperlinks.Add anchor:=cell, Address:="", SubAddress:=""" & sheet .Name & """ & "!A1" cell.Formula = list.Name End If Další list End With Rows("1:1").Delete Application.ScreenUpdating = True End Sub

Třídění listů z průvodců VBA. Makro třídí, vč skryté listy. Nebude fungovat, pokud má kniha ochranu struktury

Sub SORT_ALL_SHEETS() Application.ScreenUpdating = False: Application.EnableEvents = False Dim iSht As Worksheet, oDict As Object, i%, j% Set oDict = CreateObject("Scripting.Dictionary") " si zapamatujte stav viditelnosti každého listu a proveďte vše viditelné Pro každý iSht v ActiveWorkbook.Sheets oDict.Item(iSht.Name) = iSht.Visible: iSht.Visible = True Další S ActiveWorkbook " seřadit viditelné listy For i = 1 To .Sheets.Count - 1 For j = i + 1 To .Sheets.Count If UCase(.Sheets(i).Name) > UCase(.Sheets(j).Name) Potom .Sheets(j).Přesunout před:=.Sheets(i) Další j Další i Konec "obnovit výchozí stav viditelnost každého listu Pro každý iSht v ActiveWorkbook.Sheets iSht.Visible = oDict.Item(iSht.Name) Další Application.EnableEvents = True: Application.ScreenUpdating = True End Sub

Import sloupců "Pole1" a "Pole2" z listu "List1" Excel soubor"C:\Manager.xls" přes připojení ADODB a vložte obsah počínaje buňkou A1 aktuálního listu

Málokdo ví, že první verze populární produkt společnosti Microsoft Excel se objevil v roce 1985. Od té doby prošel několika úpravami a je žádaný miliony uživatelů po celém světě. Mnoho lidí přitom pracuje jen s malým zlomkem možností tohoto tabulkového procesoru a ani si neuvědomují, jak by jim dovednost programování v Excelu mohla usnadnit život.

Co je VBA

Programování v Excelu se provádí pomocí programovacího jazyka Visual Základní pro Aplikace, která je původně zabudována do té nejznámější tabulkový procesor od společnosti Microsoft.

Odborníci označují jeho výhody za srovnatelnou snadnost vývoje. Jak ukazuje praxe, základy VBA zvládnou i uživatelé, kteří nemají profesionální programátorské dovednosti. Mezi funkce jazyka VBA patří spouštění skriptu v prostředí kancelářských aplikací.

Nevýhodou programu jsou problémy spojené s kompatibilitou různé verze. Jsou způsobeny skutečností, že programový kód VBA odkazuje funkčnost, které jsou přítomny v nová verze produkt, ale ve starém chybí. Mezi nevýhody patří také příliš vysoká otevřenost kódu pro změny. od outsidera. Nicméně Microsoft Office, stejně jako IBM Lotus Symphony, umožňují uživateli zašifrovat počáteční kód a nastavit heslo pro jeho zobrazení.

Objekty, kolekce, vlastnosti a metody

Právě těmto pojmům musí rozumět ti, kdo se chystají pracovat v prostředí VBA. Nejprve musíte pochopit, co je objekt. V Excelu je to list, sešit, buňka a rozsah. Tyto objekty mají zvláštní hierarchii, tzn. jsou si navzájem podřízeny.

Hlavní je Aplikace, která odpovídá většině Excel program. Pak přijdou Pracovní sešity, Pracovní listy a také Rozsah. Chcete-li například získat přístup k buňce A1 na konkrétním listu, musíte zadat cestu, která bere v úvahu hierarchii.

Pokud jde o pojem „kolekce“, jedná se o skupinu objektů stejné třídy, která má v záznamu tvar ChartObjects. Její jednotlivé prvky jsou také předměty.

Dalším pojmem jsou vlastnosti. Jsou nezbytnou vlastností každého předmětu. Například pro rozsah je to Hodnota nebo Vzorec.

Metody jsou příkazy, které označují, co je třeba udělat. Při psaní kódu ve VBA musí být odděleny od objektu tečkou. Například, jak bude ukázáno později, velmi často se při programování v Excelu používá příkaz Cells(1,1).Select. To znamená, že musíte vybrat buňku se souřadnicemi

Spolu s ním se často používá Selection.ClearContents. Jeho provedení znamená vymazání obsahu vybrané buňky.

Jak začít

Poté je třeba přejít do aplikace VB, pro kterou stačí použít kombinaci kláves „Alt“ a „F11“. Dále:

• v panelu nabídek v horní části okna klikněte na ikonu vedle ikony Excel;
• vyberte příkaz Mudule;
• uložit kliknutím na ikonu s obrázkem;
• napište, řekněme, náčrt kódu.

Vypadá to takto:

podprogram()

„Náš kód

Všimněte si, že řádek „Náš kód“ bude zvýrazněn jinou barvou (zeleně), důvodem je apostrof na začátku řádku, který označuje, že následuje komentář.

Nyní můžete napsat libovolný kód a vytvořit si ho pro sebe nový nástroj ve VBA Excel (viz příklady programů níže). Pro ty, kteří jsou obeznámeni se základy Visual Basicu, to bude samozřejmě mnohem jednodušší. Nicméně i ti, kteří je nemají, se na přání budou moci dostat do pohodlí dostatečně rychle.

Makra v Excelu

Tento název skrývá programy napsané v jazyce Visual Basic for Application. Programování v Excelu je tedy vytváření maker s správný kód. Díky této schopnosti se tabulka Microsoftu sama vyvíjí a přizpůsobuje se potřebám konkrétního uživatele. Poté, co jste přišli na to, jak vytvořit moduly pro psaní maker, můžete začít uvažovat konkrétní příklady programy VBA Vynikat. Nejlepší je začít s nejzákladnějšími kódy.

Příklad 1

Úkol: napište program, který zkopíruje hodnotu obsahu jedné buňky a následně zapíše do druhé.

Pro tohle:

• otevřete kartu "Zobrazit";
• přejděte na ikonu "Makra";
• klikněte na "Zaznamenat makro";
• vyplňte otevřený formulář.

Pro zjednodušení ponechte v poli „Název makra“ „Macro1“ a do pole „Klávesová zkratka“ vložte např. hh (to znamená, že program spustíte bleskovým příkazem „Ctrl + h“). Stiskněte Enter.

Nyní, když záznam makra již začal, obsah buňky se zkopíruje do jiné. Návrat k původní ikoně. Klikněte na "Zaznamenat makro". Tato akce znamená konec programu.

• znovu přejděte na řádek "Makra";
• vyberte ze seznamu "Makro 1";
• klikněte na "Spustit" (stejná akce se spustí spuštěním klávesové zkratky "Ctrl + hh").

V důsledku toho dojde k akci, která byla provedena během záznamu makra.

Má smysl vidět, jak kód vypadá. Chcete-li to provést, přejděte zpět na řádek „Makra“ a klikněte na „Upravit“ nebo „Zadat“. Díky tomu se ocitnou v prostředí VBA. Samotný kód makra je ve skutečnosti umístěn mezi řádky Sub Macro1() a End Sub.

Pokud bylo provedeno kopírování například z buňky A1 do buňky C1, bude jeden z řádků kódu vypadat jako Range(“C1”). Vyberte. V překladu to vypadá jako “Range(“C1”).Select, jinými slovy skočí do VBA Excel, do buňky C1.

Příkaz ActiveSheet.Paste dokončí aktivní část kódu. Znamená to zaznamenat obsah vybrané buňky (v tento případ A1) do zvýrazněné buňky C1.

Příklad 2

Smyčky VBA vám pomohou vytvářet různá makra v aplikaci Excel.

Smyčky VBA vám pomohou vytvořit různá makra. Předpokládejme, že existuje funkce y=x + x 2 + 3x 3 - cos(x). Chcete-li získat jeho plán, musíte vytvořit makro. To lze provést pouze pomocí smyček VBA.

Vezměte x1=0 a x2=10 pro počáteční a konečné hodnoty argumentu funkce. Kromě toho musíte zadat konstantu - hodnotu pro krok změny argumentu a počáteční hodnotu pro čítač.

Všechny příklady maker Excel VBA jsou vytvořeny podle stejného postupu jako výše. V tomto konkrétním případě kód vypadá takto:

podprogram()

krok = 0,1

Do Zatímco x1< x2 (цикл будет выполняться пока верно выражение x1 < x2)

y=x1 + x1^2 + 3*x1^3 - Cos(x1)

Buňky (i, 1). Hodnota = x1 (hodnota x1 se zapíše do buňky se souřadnicemi (i,1))

Buňky (i, 2). Hodnota = y (hodnota y se zapíše do buňky se souřadnicemi (i,2))

i = i + 1 (počítadlo aktivní);

x1 = x1 + shag (argument se změní o hodnotu kroku);

endsub.

V důsledku spuštění tohoto makra v Excelu získáme dva sloupce, z nichž první obsahuje hodnoty pro x a druhý pro y.

Poté se na nich sestaví graf způsobem, který je standardní pro Excel.

Příklad 3

K implementaci smyček ve VBA Excel 2010, stejně jako v jiných verzích, spolu s již danou konstrukcí Do While se používá For.

Zvažte program, který vytvoří sloupec. V každé jeho buňce budou zapsány druhé mocniny čísla odpovídajícího řádku. Použití konstrukce For vám umožní napsat jej velmi krátce, bez použití počítadla.

Nejprve musíte vytvořit makro, jak je popsáno výše. Dále napíšeme samotný kód. Věříme, že nás zajímají hodnoty pro 10 buněk. Kód vypadá takto.

Pro i = 1 až 10 Další

Příkaz se překládá do „lidského“ jazyka jako „Opakujte od 1 do 10 v krocích po jedné“.

Pokud je úkolem získat sloupec se čtverci, například všechna lichá čísla z rozsahu od 1 do 11, pak napíšeme:

Pro i = 1 až 10 krok 1 Dále.

Tady krok je krok. V tomto případě se rovná dvěma. Ve výchozím nastavení absence tohoto slova v cyklu znamená, že krok je jediný.

Získané výsledky je nutné uložit do buněk s číslem (i,1). Potom při každém spuštění smyčky se zvýšením i o hodnotu kroku automaticky vzroste i číslo řádku. Kód bude tedy optimalizován.

Obecně bude kód vypadat takto:

podprogram()

Pro i = 1 až 10 Krok 1 (můžete napsat jednoduše Pro i = 1 až 10)

Buňky (i, 1). Hodnota = i ^ 2

Další (v jistém smyslu funguje jako počítadlo a znamená další začátek smyčky)

endsub.

Pokud je vše provedeno správně, včetně záznamu a spuštění makra (viz pokyny výše), pak při každém jeho vyvolání se získá sloupec daná velikost(v tomto případě sestávající z 10 buněk).

Příklad 4

V každodenním životě je poměrně často potřeba učinit jedno nebo druhé rozhodnutí v závislosti na nějaké situaci. Bez nich se ve VBA Excel neobejdete. Příklady programů, kde je další průběh algoritmu zvolen a není předem určen, nejčastěji používají konstrukci If ... Then (např. těžké případy) If …Ten …END If.

Zvážit konkrétní případ. Předpokládejme, že potřebujete vytvořit makro pro "Excel", aby byla buňka se souřadnicemi (1,1) zapsána:

1, pokud je argument kladný;

0, pokud je argument null;

-1, pokud je argument záporný.

Začíná vytváření takového makra pro Excel standardním způsobem pomocí "horkého" Klávesy Alt a F11. Dále je napsán následující kód:

podprogram()

x= Cells(1, 1).Value (tento příkaz přiřadí x hodnotu obsahu buňky na souřadnicích (1, 1))

Pokud x>0, pak Cells(1, 1).Hodnota = 1

Pokud x=0, pak Cells(1, 1).Hodnota = 0

Pokud x<0 Then Cells(1, 1).Value = -1

endsub.

Zbývá spustit makro a získat požadovanou hodnotu pro argument v Excelu.

Funkce VBA

Jak jste si mohli všimnout, programování v nejslavnější tabulce Microsoftu není tak těžké. Zvláště pokud se naučíte používat funkce VBA. Celkem má tento programovací jazyk, vytvořený speciálně pro psaní aplikací v Excelu a Wordu, asi 160 funkcí. Lze je rozdělit do několika velkých skupin. Tento:

• Matematické funkce. Když je aplikují na argument, získají hodnotu kosinu, přirozeného logaritmu, celé části atd.
• finanční funkce. Díky jejich přítomnosti a využití programování v Excelu můžete získat efektivní nástroje pro účetnictví a finanční výpočty.
• Funkce zpracování pole. Patří mezi ně Array, IsArray; lBound; UBound.
• Funkce VBA Excel pro řádek. To je poměrně velká skupina. Obsahuje například funkce Space pro vytvoření řetězce s počtem mezer rovným celočíselnému argumentu nebo Asc pro převod znaků na kód ANSI. Všechny jsou široce používány a umožňují pracovat s řádky v Excelu a vytvářet aplikace, které práci s těmito tabulkami výrazně usnadní.
• Funkce převodu datových typů. Například CVar vrátí hodnotu argumentu Expression tím, že jej převede na datový typ Variant.
• Funkce pro práci s daty. Výrazně rozšiřují ty standardní.Funkce WeekdayName tedy vrací název (celý nebo částečný) dne v týdnu jeho číslem. Ještě užitečnější je časovač. Udává počet sekund, které uplynuly od půlnoci do určitého bodu dne.
• Funkce pro převod číselného argumentu do různých číselných soustav. Například Oct udává osmičkovou reprezentaci čísla.
• Formátovací funkce. Nejdůležitější z nich je Formát. Vrací hodnotu typu Variant s výrazem naformátovaným podle pokynů uvedených v deklaraci formátu.
• atd.

Studium vlastností těchto funkcí a jejich aplikace výrazně rozšíří záběr Excelu.

Příklad 5

Zkusme přejít k řešení složitějších problémů. Například:

Je uveden papírový doklad zprávy o skutečné výši nákladů podniku. Požadované:

• vytvořit jeho šablonovou část pomocí tabulky Excel;
• vytvořte VBA program, který si vyžádá počáteční data k jejich vyplnění, provede potřebné výpočty a vyplní jimi odpovídající buňky šablony.

Zvažme jedno z řešení.

Vytvořte šablonu

Všechny akce se provádějí na standardním listu v Excelu. Volné buňky jsou vyhrazeny pro zadání údajů o názvu spotřebitelské společnosti, výši nákladů, jejich výši a obratu. Vzhledem k tomu, že počet společností (společností), pro které je sestava sestavován, není pevně daný, nejsou buňky pro zadávání hodnot na základě výsledků a celé jméno specialisty předem rezervovány. Pracovní list dostane nový název. Například "Օtchet".

Proměnné

Chcete-li napsat program, který automaticky vyplní šablonu, musíte zvolit notaci. Budou použity pro proměnné:

• NN - číslo aktuálního řádku tabulky;
• TP a TF - plánovaný a skutečný obrat;
• SF a SP - skutečná a plánovaná výše nákladů;
• IP a IF - plánovaná a skutečná úroveň nákladů.

Označme stejnými písmeny, ale s "prefixem" Itog akumulaci součtu na daném sloupci. Například ItogTP odkazuje na sloupec tabulky s názvem „plánovaný obrat“.

Řešení problému pomocí programování VBA

Pomocí zavedeného zápisu získáme vzorce pro odchylky. Pokud je nutné provést výpočet v %, máme (F - P) / P * 100 a ve výši - (F - P).

Výsledky těchto výpočtů lze nejlépe ihned zapsat do příslušných buněk excelové tabulky.

Pro skutečné a předpovědní součty se získá pomocí vzorců ItogP=ItogP + P a ItogF=ItogF+ F.

Pro odchylky použijte = (ItogF - ItogP) / ItogP * 100, pokud se výpočet provádí v procentech, a v případě celkové hodnoty - (ItogF - ItogP).

Výsledky se opět ihned zapisují do příslušných buněk, není tedy potřeba je přiřazovat k proměnným.

Před spuštěním vytvořeného programu je potřeba sešit uložit např. pod názvem "Sestava1.xls".

Tlačítko "Vytvořit tabulku přehledů" stačí stisknout pouze 1krát po zadání informací v záhlaví. Je třeba si uvědomit další pravidla. Zejména na tlačítko "Přidat řádek" je nutné kliknout pokaždé po zadání hodnot pro každou aktivitu do tabulky. Po zadání všech údajů je třeba kliknout na tlačítko "Dokončit" a poté se přepnout do okna "Excel".

Nyní víte, jak řešit problémy pro Excel pomocí maker. Schopnost používat vba excel (viz příklady programů výše) může být potřeba i pro práci v prostředí aktuálně nejpopulárnějšího textového editoru „Word“. Tlačítka menu můžete vytvářet zejména psaním, jak je znázorněno na samém začátku článku, nebo psaním kódu, díky kterému lze mnoho operací s textem provádět stisknutím funkčních kláves nebo přes záložku „Zobrazit“ a ikonu "Makra".

Začal jsem vytvářet tento web jako poznámkový blok o pohodlných funkcích Excelu. Kdykoli si můžete obnovit své znalosti o konkrétní funkci programu tím, že přejdete na web, a navíc můžete poslat odkaz na článek přátelům nebo kolegům, kteří požádají o pomoc s Excelem. Návštěvnost webu se poměrně rychle rozrostla a jak vidím, zaznamenané informace jsou užitečné nejen pro mě a pár dalších lidí, ale i pro mnoho lidí, které neznám a jsou vysoce hodnoceny vyhledávači. Pokud jsem si jistý ve schopnostech Excelu, pak se nemohu nazývat specialistou na VBA na vysoké úrovni. Proto bych rád vytvořil velký pomocný článek, kam si budu zapisovat užitečná makra, která často používám. Jsem si jistý, že taková sbírka funkcí VBA se bude hodit nejen mně.

Tato stránka již obsahuje několik článků o VBA, včetně , ale myslím, že by bylo užitečné mít na jednom místě spoustu často používaných kódů.

Vypněte zobrazování makro akcí na obrazovce jednoduchou funkcí. Tím se nejen vizuálně zlepší provádění, ale také se mnohem rychleji spustí makro.

Sub Makros1() Application.ScreenUpdating = 0 "Váš kód Application.ScreenUpdating = 1 End Sub

Nezapomeňte funkci zahrnout na konec makra

Jak odstranit výběr kopie po spuštění makra?

Pokud přidělíte rozsah pro kopírování a vkládání do makra. Nezapomeňte na konci makra zakázat výběr.

Sub Makros1() "Váš kód Application.CutCopyMode = 0 End Sub

Užitečná makra. Jak najít poslední řádek nebo sloupec rozsahu

Tato konstrukce vám pomůže snadno najít číslo posledního řádku nebo sloupce vyplněného rozsahu. Zvláště vhodné je použití v cyklech, nemusíte nastavovat 1000 řádků cyklu s okrajem, Excel sám najde, kde je konec rozsahu pomocí této konstrukce:

Sub makros1() Dim mLastRow As Long Dim nLastCol As Long mLastRow = Cells(Rows.Count, 1).End(xlUp).Row "Zjistí číslo posledního řádku vyplněného rozsahu nLastCol= Cells(1, Columns.Count ).End(xlToLeft ).Column "Najde poslední vyplněné číslo sloupce rozsahu End Sub

Navíc proměnnou rovnou deklaruji jako Long (délka 2 147 483 647), abych se nedostal do situace, kdy oblíbené Integer nemusí stačit (32 767) pro velké tabulky.

Měli byste také věnovat pozornost tomu, že vyhledávání probíhá v prvním sloupci nebo prvním řádku, vyberte požadované číslo pro správnou definici.

Pro smyčku a kontrolu stavu ve smyčce

Pokud jste našli poslední čísla řádků a sloupců rozsahů, můžete je použít v smyčkách. Například musíte projít první sloupec a spočítat počet prázdných buněk.

Sub makros1() Application.ScreenUpdating = 0 Dim mLastRow As Long Dim Kol As Long "Count Variable Dim i As Long "Loop Variable mLastRow = Cells(Rows.Count, 1).End(xlUp).Row Kol = 0 For i = 1 To mLastRow If Cells(i, 1).Value = "" Then Kol = Kol + 1 End If Next i MsgBox Kol Application.ScreenUpdating = 1 End Sub

Zde je také použit Msgbox, s touto funkcí můžete zobrazit data v samostatném okně. Pro můj příklad by to vypadalo takto:

Počítání času provedení makra

MsgBox dává následující výsledek:

Je velmi vhodné sledovat dobu provádění maker pro následnou optimalizaci.

Jsou to užitečná makra, která používám velmi často. Tento seznam budu postupně rozšiřovat. Veškerá efektivní automatizace!

Chcete-li automatizovat opakující se úkoly, můžete zaznamenat makro pomocí záznamníku maker v Microsoft Excel. Představte si, že máte data v náhodných formátech a chcete použít stejný formát na všechny. To lze provést pomocí makra. Makro můžete zaznamenat v požadovaném formátu a v případě potřeby jej přehrát.

Když zaznamenáte makro, všechny potřebné akce se zaznamenají jako kód jazyka Visual Basic for Applications (VBA). Tyto akce mohou zahrnovat zadávání textu nebo čísel, výběr buněk nebo příkazů na pásu karet nebo v nabídce, formátování buněk, řádků nebo sloupců a dokonce import dat z externího zdroje, jako je Microsoft Access. Visual Basic for Applications (VBA) je součástí programovacího jazyka Visual Basic. Je k dispozici ve většině aplikací Office. VBA sice umožňuje automatizovat procesy v rámci aplikací Office a mezi nimi, ale nepotřebujete umět programovat ani znát jazyk VBA, protože záznam maker se o vše postará.

Je důležité vědět, že když nahráváte makro, zaznamenává se téměř vše, co děláte. Pokud tedy uděláte chybu, například stisknete špatné tlačítko, záznamník maker tuto akci zaznamená. V takovém případě můžete přepsat celou sekvenci nebo upravit kód VBA. Proto před záznamem procesu byste jej měli dobře propracovat. Čím přesněji napíšete sekvenci, tím efektivněji bude makro fungovat.

Vývojář, která je ve výchozím nastavení skrytá, takže ji musíte nejprve povolit. Další informace najdete v tématu Zobrazení karty Vývojář.

Makro záznam

Na kartě Vývojář klikněte Makra zobrazíte makra přidružená k sešitu. Můžete také stisknout tlačítka ALT+F8. Tím se otevře dialogové okno. Makro.

Pozornost:

Práce s napsaným kódem v editoru Visual Basic (VBE)

Pomocí editoru jazyka Visual Basic (VBE) můžete do zaznamenaného kódu přidat své vlastní proměnné, řídicí struktury a další prvky, které záznamník maker nepodporuje. Vzhledem k tomu, že makrorekordér zachytí téměř každý krok, ke kterému dojde během nahrávání, možná budete muset odstranit nepotřebný kód. Prohlížení zaznamenaného kódu je skvělý způsob, jak se naučit programování VBA nebo zdokonalit své dovednosti.

Příklad úpravy zaznamenaného kódu najdete v článku Začínáme s VBA v Excelu.

Makro záznam

Před záznamem maker je užitečné vědět následující:

Makro napsané pro práci v rozsahu aplikace Excel poběží pouze na buňkách v tomto rozsahu. Pokud tedy do rozsahu přidáte nový řádek, makro se na něj nepoužije.

Pokud potřebujete zaznamenat dlouhou sekvenci úkolů, doporučujeme místo toho použít několik menších maker.

Makro může obsahovat i jiné úlohy než Excel. Proces makra může zahrnovat další aplikace Office a další programy, které podporují Visual Basic for Applications (VBA). Můžete například zaznamenat makro, které nejprve aktualizuje tabulku v Excelu a poté otevře Outlook a pošle jej e-mailem.

Makra a nástroje VBA jsou na kartě Vývojář, která je ve výchozím nastavení skrytá, takže ji musíte nejprve povolit.

Vybrat vynikat > Možnosti> Páska a panel.

Chcete-li zaznamenat makro, postupujte podle pokynů níže.

Práce s makry zaznamenanými v Excelu

Na kartě Vývojář klikněte Makra zobrazíte makra přidružená k sešitu. Tím se otevře dialogové okno. Makro.

Poznámka: Makra nelze vrátit zpět. Před prvním spuštěním zaznamenaného makra uložte nebo vytvořte kopii sešitu, abyste předešli nechtěným změnám. Pokud nejste spokojeni s výsledky spuštění makra, můžete sešit zavřít bez jeho uložení.

Níže jsou uvedeny dodatečné informace o práci s makry v Excelu.

dodatečné informace

Vždy můžete položit otázku komunitě Excel Tech Community , požádat o pomoc v komunitě odpovědí a také navrhnout nová vlastnost nebo vylepšení webu