Cheat listy VBA - příkazy a seznamy syntaxe

Cheat Sheet VBA PDF (bezplatné stažení)

Stáhněte si zdarma náš Cheat Sheet Excel VBA PDF pro rychlou orientaci!

Stažení

Cheat listy VBA

Na této stránce najdete seznamy všech běžných příkazů a syntaxe VBA. Najdete zde mnoho základních příkazů (např. Vložte list) a nějakou pokročilou syntaxi (např. Práce s poli).

Tipy:

K vyhledání této stránky použijte CTRL + F.

Přidejte si tuto stránku do záložek (CTRL + D v prohlížeči Chrome)!

Povlečení na postel

PopisKód VBAAktivujte podle názvu kartyListy („Vstup“). AktivujteAktivujte kódovým jménem VBAList 1. AktivujteAktivujte podle pozice indexuListy (1). AktivujteDalší listActiveSheet.Next.ActivateZískejte ActiveSheetMsgBox ActiveSheet.NameVyberte ListListy („Vstup“). VyberteNastaveno na proměnnouDim ws jako pracovní list
Nastavit ws = ActiveSheetJméno / PřejmenovatActiveSheet.Name = „Nové jméno“Přidat listListy.PřidatPřidejte list a jménoSheets.Add.Name = „Nový list“Přidat list do proměnnéDim ws As Worksheet
Nastavit ws = Sheets.AddKopírovat listListy („List1“). Kopírovat před: = Listy („List2“)Skrýt listListy („List1“). Viditelné = Nepravdivé
nebo
Listy („List1“). Visible = xlSheetHiddenOdkrýt listListy („List1“). Viditelné = Pravda
nebo
Listy („List1“). Visible = xlSheetVisibleVelmi skrýt listListy („List1“). Visible = xlSheetVeryHiddenSmazat listListy („List1“). OdstranitČistý listListy („List1“). Buňky. VymazatZrušit ochranu (bez hesla)Listy („List1“). OdemknoutOdemknout (heslo)Tabulky („List1“). Odemkněte „Heslo“Chránit (bez hesla)Listy („List1“). ChraňteChránit (heslo)Tabulky („List1“). Chraňte „Heslo“Chraňte, ale povolte přístup VBAListy („List1“). Chraňte UserInterfaceOnly: = True

Návrat nahoru

Buňky a rozsahy

PopisKód VBAAktivujte buňkuRozsah („B3“). Aktivujte
Buňky (3,2). AktivujteVyberte rozsahRozsah („a1: a3“). Vyberte
Rozsah (Rozsah („a1“), Rozsah („a3“)) Vyberte
Rozsah (buňky (1, 1), buňky (3, 1)). VyberteZměnit velikostRozsah („B3“). Změnit velikost (2, 2). VyberteOfsetRozsah („B3“). Offset (2, 2). VybertekopírovatRozsah („A1: B3“). Rozsah kopírování („D1“)StřihRozsah („A1: B3“). Řezný rozsah („D1“)VymazatRozsah („A1: B3“). Odstranit
Rozsah („A1: B3“). Smazat posun: = xlShiftToLeftPrůhlednáRozsah („A1: A3“). Jasné
Rozsah („A1: A3“). ClearContents
Rozsah („A1: A3“). ClearFormatPočetRozsah („A1: A3“)Nastaveno na proměnnouDim rng as Range
Nastavit rng = rozsah („A1“)Sloučit/zrušit sloučeníRozsah („A1: A3“). Sloučit
Rozsah („A1: A3“). UnMergeSmyčka přes buňky

Dim buňka jako rozsah

Pro každou buňku v dosahu („A1: C3“)
Buňka MsgBox. Hodnota
Další buňka

Návrat nahoru

Řádky

PopisKód VBAaktivovatŘádky (1). Aktivovat
Řádky („1: 1“). Aktivujte
Rozsah („a1“). EntireRow.ActivateVýška, šířkaRozsah („A1“). EntireRow.RowHeight = 30VymazatRozsah („A1“). EntireRow.DeletePočetRozsah („A1“). Řádky. PočetVložitRozsah („A1“). EntireRow.InsertPoslednístmívat lRow tak dlouho
lRow = Cells (Rows.Count, 1). End (xlUp) .RowkopírovatRozsah („1: 1“). Rozsah kopírování („5: 5“)VložitRozsah („1: 1“). Zkopírujte
Rozsah („5: 5“). Vložte

Návrat nahoru

Sloupce

PopisKód VBAaktivovatSloupce (1). Aktivujte
Sloupce („a: a“). Aktivujte
Rozsah („a1“). EntireColumn.ActivateVýška, šířkaRozsah („A1“). EntireColumn.ColumnWidth = 30VymazatRozsah („A1“). EntireColumn.DeletePočetRozsah („A1“). Sloupce. PočetVložitRozsah („A1“). EntireColumn.InsertPoslednídim lCol tak dlouho
lCol = Cells (1, Columns.Count) .End (xlToLeft) .ColumnkopírovatRozsah („A: A“). Rozsah kopírování („E: E“)VložitRozsah („A: A“). Kopírovat
Rozsah („E: E“). Vložte

Návrat nahoru

Už vás nebaví hledat příklady kódu VBA? Zkuste AutoMacro!

Sešity

PopisKód VBAaktivovatSešity („Kniha1“). AktivujteAktivovat první otevřeníSešity (1). AktivovatAktivovat naposledy otevřenoSešity (Workbooks.Count). AktivovatZískejte ActivateWorkbookMsgBox ActiveWorkbook.NameZískejte tuto pracovní knihu (obsahující kód VBA)MsgBox ThisWorkbook.NamePřidatSešity. PřidatPřidat do proměnnéDim wb jako sešit
Nastavit wb = Workbooks.AddOtevřenoSešity. Otevřeno („C: \ example.xlsm“)Otevřít proměnnéDim wb jako sešit
Nastavit wb = Workbooks.Open (“C: \ example.xlsm”)ZavřítSešity („Kniha1“). Zavřít SaveChanges: = False
Sešity („Kniha1“). Zavřít SaveChanges: = TrueUložitSešity („Kniha1“). UložitUložit jakoSešity („Kniha1“). Uložte jako strFileNameChránit/odemknoutSešity (1). Chraňte „heslo“
Sešity (1). Zrušte ochranu „hesla“Nastaveno na proměnnouDim wb jako sešit
Nastavit wb = sešity („Kniha1“)Projděte si celý sešit v sešitech

Dim wb jako sešit

Pro každý wb v sešitech
MsgBox wb. Jméno
Další wb

Zkontrolujte existenciPokud Dir (“C: \ Book1.xlsx”) = “” Potom
MsgBox „Soubor neexistuje.“
EndIfKopie uzavřenaFileCopy „C: \ file1.xlsx“, „C: \ file2.xlsx“

Návrat nahoru

Nastavení

PopisKód VBAAktualizace obrazovkyApplication.ScreenUpdating = False
Application.ScreenUpdating = TrueZobrazit upozorněníApplication.DisplayAlerts = False
Application.DisplayAlerts = TrueUdálostiApplication.EnableEvents = False
Application.EnableEvents = TruePovolte klíč ZrušitApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptPorovnání textu - Ignorovat velká a malá písmenaMožnost Porovnat textVyžadovat variabilní prohlášeníMožnost ExplicitníAutomatické výpočtyApplication.Calculation = xlManual
Application.Calculation = xlAutomaticKontrola chyb na pozadíApplication.ErrorCheckingOptions.BackgroundChecking = False
Application.ErrorCheckingOptions.BackgroundChecking = TrueZobrazit lištu vzorcůApplication.DisplayFormulaBar = False
Application.DisplayFormulaBar = TrueZmrazit panelyActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = TrueZobrazení na celou obrazovkuApplication.DisplayFullScreen = False
Application.DisplayFullScreen = TrueNáhled PageBreakActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewZobrazit posuvníkyS ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
Ukončit pomocí ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
Konec sZobrazit stavový řádekApplication.DisplayStatusBar = False
Application.DisplayStatusBar = TrueObsah stavového řádkuApplication.StatusBar = „Právě pracuji !!!“
Application.StatusBar = FalseZobrazit karty sešituActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayWorkbookTabs = TrueUživatelské jménoApplication.UserName = „AutomateExcel.com“Popisek aplikaceApplication.Caption = „Model AutomateExcel“ZvětšeníActiveWindow.Zoom = 80

Návrat nahoru

Chyby

PopisKód VBAOn Error - Zastavte kód a zobrazte chybuPři chybě Přejít na 0Při chybě - Přeskočte chybu a pokračujte v běhuPři chybě Pokračovat DalšíPři chybě - Přejděte na řádek kódu [Štítek]Při chybě Přejít [Štítek]Vymaže (resetuje) chybuPři chybě GoTo -1Zobrazit číslo chybyMsgBox Err.NumberZobrazit popis chybyMsgBox Err.PopisFunkce pro generování vlastní chybyErr. Raise

Návrat nahoru

Soubory

PopisKód VBAZkopírovat souborFileCopy „C: \ test \ test_old.xlsx“, „C: \ test \ test_new.xlsx“Smazat souborZabijte „C: \ test \ example.xlsx“Vytvořit složkuMkDir „C: \ test \“Odstranit všechny soubory ze složkyZabijte „C: \ test \“ a „*.*“Smazat složkuZabijte „C: \ test \“ a „*.*“
RmDir „C: \ test \“Aktuální adresářstrPath = CurDir ()This Workbook PathstrPath = ThisWorkbook.PathProjděte všechny soubory ve složce

strFile = Dir („C: \ test“ & „\*“)

Do While Len (strFile)> 0
Debug.Print strFile
strFile = Dir
Smyčka

Návrat nahoru

Skvělý produkt. AutoMacro nejenže napíše váš kód, ale naučí vás to za pochodu! “ - Tony, Velká Británie

Další informace

Přečtěte si více než 900 recenzí

Pole

PopisKód VBAVytvořitDim arr (1 To 3) As Variant
arr (1) = „jeden“
arr (2) = „dva“
arr (3) = „tři“Vytvořit z ExceluDim arr (1 To 3) As Variant
Dim buňka jako rozsah, i jako celé číslo
i = LBound (arr)
Pro každou buňku v dosahu („A1: A3“)
i = i + 1
arr (i) = hodnota buňky
Další buňkaPřečtěte si všechny položkyDim i jako Long
For i = LBound (arr) To UBound (arr)
MsgBox arr (i)
Příště jáVymazatVymazat arrPole na řetězecDim sName As String
sName = Připojte se (arr, „:“)Zvětšit velikostZachování aretace ReDim (0 až 100)Nastavit hodnotuarr (1) = 22

Návrat nahoru

Programování VBA | Generátor kódu pracuje pro vás!

Sbírky

PopisKód VBAVytvořitDim coll jako nová kolekce
coll.Add „one“
coll.Add „two“Vytvořit z ExceluDim coll jako nová kolekce
Dim buňka jako rozsah
Pro každou buňku v dosahu („A1: A2“)
coll.Add cell.value
Další buňkaPřidat položkucoll.Add "Value"Přidat položku předcoll.Add "Value", Before: = 1Přidat položku pocoll.Add “Value”, After: = 1Přečíst položkuMsgBox coll (1)Počítat položkycoll.CountPřečtěte si všechny položkyDim položka jako varianta
Pro každou položku In coll
Položka MsgBox
Další položkaOdebrat položkuSbalit Odebrat (1)Odebrat všechny položkySet coll = Nová kolekce

Návrat nahoru

Slovníky

PopisKód VBAPožadovaná referenceNástroje> Reference> Microsoft Scripting RuntimeVytvořitDim dict As New Scripting.Dictionary
dikt. Přidat „“
dikt. Přidat „“Vytvořit z ExceluDim dict As New Scripting.Dictionary
Dim buňka jako rozsah
Tlačítko ztlumení jako celé číslo
Pro každou buňku v dosahu („A1: A10“)
klíč = klíč + 1
dict.Add key, cell.value
Další buňkaPřidat položkudikt. Přidejte „klíč“, „hodnotu“Změnit hodnotudict („Key“) = „Hodnota“Získejte hodnotuMsgBox dict („klíč“)Zkontrolujte hodnotuPokud dict.Exists (“Key”) Then
MsgBox „existuje“
Konec IfOdebrat položkudict.Remove („Klíč“)Odebrat všechny položkydict.RemoveAllProjděte položkyTlačítko ztlumení jako varianta
Pro každý klíč V dikt.Klíče
Klíč MsgBox, dict (klíč)
Další klíčPočítat položkydict.CountAby byla velká a malá písmena citlivádict.CompareMode = vbBinaryCompareNechejte velká a malá písmena necitlivádict.CompareMode = vbTextCompare

Návrat nahoru

AutoMacro - The Ultimate VBA Add -in

AutoMacro: Doplněk VBA se stovkami příkladů kódu VBA připravených k použití a mnoho dalšího!

Další informace