Cheat Sheets VBA - Príkazy a zoznamy syntaxe

Cheat Sheet VBA PDF (bezplatné stiahnutie)

Stiahnite si zadarmo náš Cheat Sheet Excel VBA PDF pre rýchlu referenciu!

Stiahnuť ▼

Cheatové listy VBA

Na tejto stránke nájdete zoznamy všetkých bežných príkazov a syntaxe VBA. Nájdete tu mnoho základných príkazov (napr. Vloženie listu) a pokročilú syntax (napr. Práca s poľami).

Tipy:

Na vyhľadanie tejto stránky použite CTRL + F.

Vytvorte si záložku pre túto stránku (CTRL + D v prehliadači Chrome)!

Listy

PopisKód VBAAktivujte podľa názvu kartyTabuľky („Vstup“). AktivujteAktivujte kódovým názvom VBAList 1. AktivujteAktivujte podľa pozície indexuListy (1). AktivujteĎalší listActiveSheet.Next.ActivateZískajte ActiveSheetMsgBox ActiveSheet.NameVyberte položku HárokListy („Vstup“). VyberteNastaviť na premennúDim ws ako pracovný list
Nastaviť ws = ActiveSheetMeno / PremenovaťActiveSheet.Name = „Nové meno“Pridať hárokListy. PridaťPridajte hárok a menoSheets.Add.Name = „Nový list“Pridať hárok do premennejDim ws As worksheet
Nastaviť ws = Sheets.AddKopírovať listListy („List1“). Kopírovať pred: = Listy („List2“)Skryť hárokTabuľky („List1“). Viditeľné = nepravdivé
alebo
Sheets (“Sheet1”). Visible = xlSheetHiddenOdkryť hárokTabuľky („List1“). Viditeľné = Pravda
alebo
Tabuľky („List1“). Visible = xlSheetVisibleVeľmi skryť listTabuľky („List1“). Viditeľné = xlSheetVeryHiddenOdstrániť hárokTabuľky („List1“). OdstrániťČistý listListy („List1“). Bunky. VymazaťZrušiť ochranu (bez hesla)Tabuľky („List1“). NechráňteZrušiť ochranu (heslo)Tabuľky („List1“). Zrušte ochranu heslaChrániť (bez hesla)Listy („List1“). ChráňteChrániť (heslo)Tabuľky („List1“). Chráňte „Heslo“Chráňte, ale povoľte prístup VBATabuľky („List1“). Chráňte UserInterfaceOnly: = True

Návrat hore

Bunky a rozsahy

PopisKód VBAAktivujte bunkuRozsah („B3“). Aktivujte
Bunky (3,2). AktivujteVyberte rozsahRozsah („a1: a3“). Vyberte
Rozsah (Rozsah („a1“), Rozsah („a3“)) Vyberte
Rozsah (bunky (1, 1), bunky (3, 1)). VyberteZmeniť veľkosťRozsah („B3“). Zmeňte veľkosť (2, 2). VyberteOfsetRozsah („B3“). Ofset (2, 2). VyberteKopírovaťRozsah („A1: B3“). Rozsah kopírovania („D1“)VystrihnúťRozsah („A1: B3“). Rozsah rezu („D1“)VymazaťRozsah („A1: B3“). Odstráňte
Rozsah („A1: B3“). Vymazať posun: = xlShiftToLeftjasnýRozsah („A1: A3“). Jasné
Rozsah („A1: A3“). ClearContents
Rozsah („A1: A3“). ClearFormatGrófRozsah („A1: A3“)Nastaviť na premennúDim rng as Range
Nastaviť rng = rozsah („A1“)Zlúčiť/Zrušiť zlúčenieRozsah („A1: A3“). Zlúčiť
Rozsah („A1: A3“). Zrušiť zlúčenieSlučka cez bunky

Dim bunka ako rozsah

Pre každú bunku v rozsahu („A1: C3“)
Bunka MsgBox. Hodnota
Ďalšia bunka

Návrat hore

Riadky

PopisKód VBAAktivovaťRiadky (1). Aktivujte
Riadky („1: 1“). Aktivujte
Rozsah („a1“). EntireRow.ActivateVýška šírkaRozsah („A1“). EntireRow.RowHeight = 30VymazaťRozsah („A1“). EntireRow.DeleteGrófRozsah („A1“). Riadky. PočetVložiťRozsah („A1“). EntireRow.InsertPoslednýdim lRow tak dlho
lRow = bunky (riadky. počet, 1). Koniec (xlUp). riadokKopírovaťRozsah („1: 1“). Rozsah kopírovania („5: 5“)VložiťRozsah („1: 1“). Kopírovať
Rozsah („5: 5“). Vložte

Návrat hore

Stĺpce

PopisKód VBAAktivovaťStĺpce (1). Aktivujte
Stĺpce („a: a“). Aktivujte
Rozsah („a1“). EntireColumn.ActivateVýška šírkaRozsah („A1“). EntireColumn.ColumnWidth = 30VymazaťRozsah („A1“). EntireColumn.DeleteGrófRozsah („A1“). Stĺpce. PočetVložiťRozsah („A1“). EntireColumn.InsertPoslednýmatný lCol tak dlho
lCol = bunky (1, stĺpce. počet). Koniec (xlToLeft). stĺpecKopírovaťRozsah („A: A“). Rozsah kopírovania („E: E“)VložiťRozsah („A: A“). Kopírovať
Rozsah („E: E“). Vložte

Návrat hore

Ste unavení z hľadania príkladov kódu VBA? Skúste AutoMacro!

Pracovné zošity

PopisKód VBAAktivovaťZošity („Kniha 1“). AktivujteAktivovať ako prvé otvorenéZošity (1). AktivovaťAktivovať naposledy otvorenéZošity (zošity. Počet). AktivujteZískajte ActivateWorkbookMsgBox ActiveWorkbook.NameZískajte túto pracovnú knihu (obsahujúcu kód VBA)MsgBox ThisWorkbook.NamePridaťZošity. PridaťPridať do premennejDim wb ako zošit
Nastaviť wb = zošity. PridaťOtvorenéZošity. Otvorené („C: \ example.xlsm“)Otvorené pre premennúDim wb ako zošit
Nastaviť wb = zošity. Otvorené („C: \ example.xlsm“)ZavrieťZošity („Kniha1“). Zatvorte SaveChanges: = False
Zošity („Kniha1“). Zatvorte SaveChanges: = TrueUložiťZošity („Kniha 1“). UložiťUložiť akoZošity („Kniha1“). SaveAs strFileNameChrániť/nechrániťZošity (1). Chráňte „heslo“
Zošity (1). Zrušte ochranu „hesla“Nastaviť na premennúDim wb ako zošit
Nastaviť wb = zošity („kniha 1“)Zopakujte si celý zošit v zošitoch

Dim wb ako zošit

Pre každý wb v zošitoch
MsgBox wb. Meno
Dalsie wb

Skontrolovať existujeAk Dir („C: \ Book1.xlsx“) = „“ Potom
MsgBox „Súbor neexistuje.“
Koniec AkKopírovanie zatvorenéFileCopy „C: \ file1.xlsx“, „C: \ file2.xlsx“

Návrat hore

nastavenie

PopisKód VBAAktualizácia obrazovkyApplication.ScreenUpdating = False
Application.ScreenUpdating = TrueZobraziť výstrahyApplication.DisplayAlerts = False
Application.DisplayAlerts = PravdaDianiaApplication.EnableEvents = False
Application.EnableEvents = PravdaPovoliť kláves ZrušiťApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptPorovnanie textu - Ignorovať veľké a malé písmenáMožnosť Porovnať textVyžadovať variabilné vyhlásenieMožnosť explicitnáAutomatické výpočtyApplication.Calculation = xlManual
Application.Calculation = xlAutomaticKontrola chýb na pozadíApplication.ErrorCheckingOptions.BackgroundChecking = False
Application.ErrorCheckingOptions.BackgroundChecking = TrueZobraziť lištu vzorcovApplication.DisplayFormulaBar = False
Application.DisplayFormulaBar = TrueZmraziť panelyActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = TrueZobrazenie na celú obrazovkuApplication.DisplayFullScreen = False
Application.DisplayFullScreen = TrueUkážka PageBreakActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewZobrazte posúvačeS ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
Ukončiť pomocou ActiveWindow
.DisplayHorizontalScrollBar = Pravda
.DisplayVerticalScrollBar = True
Ukončiť sZobraziť stavový riadokApplication.DisplayStatusBar = False
Application.DisplayStatusBar = TrueObsah stavového riadkaApplication.StatusBar = „Teraz pracujem !!!“
Application.StatusBar = FalseZobraziť karty zošitaActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayWorkbookTabs = TruePoužívateľské menoApplication.UserName = „AutomateExcel.com“Popis aplikácieApplication.Caption = „Model AutomateExcel“PriblíženieActiveWindow.Zoom = 80

Návrat hore

Chyby

PopisKód VBAPri chybe - Zastavte kód a zobrazte chybuPri chybe Choďte na 0Pri chybe - preskočte chybu a pokračujte v prevádzkePri chybe Pokračovať ďalejPri chybe - Prejdite na riadok kódu [Štítok]Pri chybe Choďte na [štítok]Vymaže (resetuje) chybuPri chybe GoTo -1Zobraziť číslo chybyČíslo MsgBox Err.Zobraziť popis chybyMsgBox Err.PopisFunkcia na generovanie vlastnej chybyErr. Raise

Návrat hore

Súbory

PopisKód VBAKopírovať súborFileCopy „C: \ test \ test_old.xlsx“, „C: \ test \ test_new.xlsx“Zmazať súborZabite „C: \ test \ example.xlsx“Vytvoriť priečinokMkDir „C: \ test \“Odstráňte všetky súbory z priečinkaZabite „C: \ test \“ a „*.*“Odstrániť priečinokZabite „C: \ test \“ a „*.*“
RmDir „C: \ test \“Aktuálny adresárstrPath = CurDir ()This Workbook PathstrPath = ThisWorkbook.PathZopakujte všetky súbory v priečinku

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

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

Návrat hore

Skvelý výrobok. AutoMacro nielenže napíše váš kód, ale naučí vás to za pochodu! “ - Tony, Veľká Británia

Uč sa viac

Prečítajte si viac ako 900 recenzií

Polia

PopisKód VBAVytvoriťDim ar (1 až 3) ako variant
arr (1) = „jeden“
arr (2) = „dva“
arr (3) = „tri“Vytvoriť z ExceluDim ar (1 až 3) ako variant
Dim bunka ako rozsah, aj ako celé číslo
i = LViazané (arr)
Pre každú bunku v rozsahu („A1: A3“)
i = i + 1
arr (i) = hodnota bunky
Ďalšia bunkaPrečítajte si všetky položkyDim i as Long
For i = LBound (arr) To UBound (arr)
MsgBox arr (i)
Ďalej iVymazaťVymazať arrPole na reťazecDim sName As String
sName = Pripojte sa (arr, „:“)Zväčšiť veľkosťZachovať aretáciu ReDim (0 až 100)Nastaviť hodnotuarr (1) = 22

Návrat hore

Programovanie VBA | Generátor kódu pracuje za vás!

Zbierky

PopisKód VBAVytvoriťDim coll ako nová kolekcia
coll.Add "one"
coll.Add "two"Vytvoriť z ExceluDim coll ako nová kolekcia
Dim bunka ako rozsah
Pre každú bunku v rozsahu („A1: A2“)
coll.Add cell.value
Ďalšia bunkaPridať položkucoll.Add "Value"Pridať položku predcoll.Add "Value", Before: = 1Pridať položku pocoll.Add "Value", After: = 1Prečítajte si položkuMsgBox kolík (1)Počítať položkycoll.CountPrečítajte si všetky položkyDim položka ako variant
Pre každú položku In Col
Položka MsgBox
Nasledujúca položkaOdstrániť položkuColl. Odstrániť (1)Odstráňte všetky položkySet coll = Nová zbierka

Návrat hore

Slovníky

PopisKód VBAPožadovaná referenciaNástroje> Referencie> Microsoft Scripting RuntimeVytvoriťDim dict ako nové skriptovanie. Slovník
diktát. Pridajte „“
diktát. Pridajte „“Vytvoriť z ExceluDim dict ako nové skriptovanie. Slovník
Dim bunka ako rozsah
Kľúč stlmenia ako celé číslo
Pre každú bunku v rozsahu („A1: A10“)
kľúč = kľúč + 1
dict.Add key, cell.value
Ďalšia bunkaPridať položkudikt. Pridajte „kľúč“, „hodnotu“Zmeniť hodnotudict („Key“) = „Hodnota“Získajte hodnotuMsgBox dict („kľúč“)Skontrolovať hodnotuAk dikt.Existuje („Kľúč“) Potom
MsgBox „existuje“
Koniec AkOdstrániť položkudikt. Odstrániť („Kľúč“)Odstráňte všetky položkydict.RemoveAllSmyčka cez položkyKľúč stlmenia ako variant
Pre každý kľúč V dikt.Kľúče
Kľúč MsgBox, dict (kľúč)
Ďalší kľúčPočítať položkydiktát. PočetRozlišujte malé a veľké písmenadict.CompareMode = vbBinaryCompareNechajte kľúčové slová necitlivédict.CompareMode = vbTextCompare

Návrat hore

AutoMacro - Ultimátny doplnok VBA

AutoMacro: Doplnok VBA so stovkami príkladov kódov VBA pripravených na použitie a oveľa viac!

Uč sa viac