VBA Cheat Sheets - naredbe i popisi sintaksi

VBA Cheat Sheet PDF (besplatno preuzimanje)

Preuzmite naš besplatni Excel VBA Cheat Sheet PDF za brze upute!

preuzimanje datoteka

VBA Cheat Sheets

Na ovoj stranici potražite popis svih uobičajenih VBA naredbi i sintakse. Naći ćete mnoge osnovne naredbe (npr. Umetnuti list) i naprednu sintaksu (npr. Rad s nizovima).

Savjeti:

Pretražite ovu stranicu pomoću CTRL + F.

Označite ovu stranicu (CTRL + D u Chromeu)!

Listovi

OpisVBA kodAktivirajte prema nazivu karticeTablice ("Unos"). AktivirajteAktivirajte prema VBA kodnom imenuList1.AktivirajAktivirajte prema položaju indeksaListovi (1) .AktivirajteSljedeći listActiveSheet.Next.ActivateNabavite ActiveSheetMsgBox ActiveSheet.NameOdaberite ListTablice ("Unos"). OdaberitePostavite na VariableZatamni kao radni list
Postavite ws = ActiveSheetIme / PreimenovanjeActiveSheet.Name = “Novo ime”Dodaj listListovi.DodajDodajte list i nazivSheets.Add.Name = “Novi list”Dodaj list varijabliZatamni kao radni list
Postavite ws = Listovi.DodajKopiraj listListovi ("List 1"). Kopirajte prije: = Listovi ("List 2")Sakrij listListovi ("List 1"). Visible = False
ili
Listovi ("List 1"). Visible = xlSheetHiddenOtkrij listListovi ("List 1"). Vidljivo = Istina
ili
Tablice ("List 1"). Vidljivo = xlSheetVisibleVrlo sakrij listTablice ("List1"). Vidljivo = xlSheetVeryHiddenIzbriši listListovi ("List 1"). IzbrišiteČisti listListovi ("List1"). Ćelije.OčistiUkloni zaštitu (bez lozinke)Listovi ("List 1"). Uklonite zaštituUkloni zaštitu (lozinka)Listovi ("List 1"). Uklonite zaštitu s "Lozinke"Zaštita (bez lozinke)Listovi ("List 1"). ZaštititeZaštita (lozinka)Listovi ("List 1"). Zaštitite "Lozinku"Zaštitite, ali dopustite pristup VBAListovi ("List 1"). Zaštitite UserInterfaceOnly: = Tačno

Povratak na vrh

Stanice i rasponi

OpisVBA kodAktivirajte ćelijuRaspon (“B3”). Aktivirajte
Stanice (3,2). AktivirajteOdaberite RasponRaspon (“a1: a3”). Odaberite
Raspon (raspon (“a1”), raspon (“a3”)). Odaberite
Raspon (ćelije (1, 1), ćelije (3, 1)). OdaberitePromijeni veličinuRaspon ("B3"). Promijenite veličinu (2, 2). OdaberitePomakRaspon (“B3”). Odmak (2, 2) .OdaberiteKopiratiRaspon ("A1: B3"). Raspon kopiranja ("D1")IzrezatiRaspon ("A1: B3"). Raspon rezanja ("D1")IzbrisatiRaspon (“A1: B3”). Izbrišite
Raspon (“A1: B3”). Brisanje pomaka: = xlShiftToLeftČistoDomet ("A1: A3"). Čisto
Raspon (“A1: A3”). ClearContents
Raspon (“A1: A3”). ClearFormatRačunatiRaspon ("A1: A3"). BrojiPostavite na VariableDim rng as Range
Postavite rng = raspon ("A1")Spoji/UnMergeRaspon (“A1: A3”). Spoji
Raspon (“A1: A3”). Ukloni spajanjePetlje kroz ćelije

Prigušena ćelija kao raspon

Za svaku ćeliju u rasponu ("A1: C3")
MsgBox ćelija.Vrijednost
Sljedeća ćelija

Povratak na vrh

Redovi

OpisVBA kodAktiviratiRedovi (1). Aktivirajte
Redci ("1: 1"). Aktivirajte
Raspon ("a1"). Cijeli red.AktivirajVisina / ŠirinaRaspon ("A1"). EntireRow.RowHeight = 30IzbrisatiRaspon (“A1”). EntireRow.DeleteRačunatiRaspon ("A1"). Redovi.BrojUmetnutiRaspon ("A1"). EntireRow.InsertPosljednjiprigušen lRijek sve dok
lRow = Cells (Rows.Count, 1) .End (xlUp) .RowKopiratiRaspon ("1: 1"). Kopiraj raspon ("5: 5")UmetnutiRaspon ("1: 1"). Kopiraj
Raspon ("5: 5"). Umetnite

Povratak na vrh

Stupci

OpisVBA kodAktiviratiStupci (1). Aktivirajte
Stupci ("a: a"). Aktivirajte
Raspon ("a1"). Cijela kolona.AktivirajVisina / ŠirinaRaspon (“A1”). EntireColumn.ColumnWidth = 30IzbrisatiRaspon ("A1"). Cijela kolona.DeleteRačunatiRaspon ("A1"). Stupci.BrojUmetnutiRaspon ("A1"). Cijela kolona.UmetnutiPosljednjidim lCol koliko god
lCol = ćelije (1, stupci.broj) .kraj (xlToLeft). stupacKopiratiRaspon ("A: A"). Kopiraj raspon ("E: E")UmetnutiRaspon ("A: A"). Kopiraj
Raspon ("E: E"). Umetnite

Povratak na vrh

Umorni ste od traženja primjera VBA koda? Isprobajte AutoMacro!

Radne bilježnice

OpisVBA kodAktiviratiRadne bilježnice ("Knjiga1"). AktivirajteAktivirajte prvo otvaranjeRadne bilježnice (1) .AktivirajteAktiviraj Zadnje otvorenoRadne bilježnice (Workbooks.Count) .AktivirajteNabavite ActivateWorkbookMsgBox ActiveWorkbook.NameNabavite ovu radnu knjigu (koja sadrži VBA kôd)MsgBox ThisWorkbook.NameDodatiRadne bilježnice.DodajDodaj u varijabluDim wb Kao radna bilježnica
Postavite wb = Radne knjige.DodajOtvorenaRadne knjige.Open ("C: \ example.xlsm")Otvoreno za varijabluDim wb Kao radna bilježnica
Postavite wb = Radne knjige.Open ("C: \ example.xlsm")ZatvoritiRadne knjige ("Knjiga1"). Zatvorite Spremi izmjene: = Netačno
Radne knjige (“Knjiga1”). Zatvorite Spremi promjene: = IstinaUštedjetiRadne bilježnice ("Knjiga1"). SpremiSpremi kaoRadne knjige ("Knjiga1"). Spremi kao strFileNameZaštitite/uklonite zaštituRadne bilježnice (1). Zaštitite "lozinku"
Radne knjige (1). Uklonite zaštitu "lozinke"Postavite na VariableDim wb kao radna bilježnica
Set wb = Radne knjige ("Knjiga1")Prođite kroz sve radne knjige u radnim bilježnicama

Dim wb Kao radna bilježnica

Za svaku wb u radnim bilježnicama
MsgBox wb.Name
Sljedeća wb

Provjerite postojiAko je Dir (“C: \ Book1.xlsx”) = “” Tada
MsgBox "Datoteka ne postoji."
Završi akoKopija zatvorenaFileCopy "C: \ file1.xlsx", "C: \ file2.xlsx"

Povratak na vrh

Postavke

OpisVBA kodAžuriranje zaslonaApplication.ScreenUpdating = Netačno
Application.ScreenUpdating = IstinaPrikaz upozorenjaApplication.DisplayAlerts = Netačno
Application.DisplayAlerts = IstinaDogađajiApplication.EnableEvents = Netačno
Application.EnableEvents = IstinaOmogući tipku za odustajanjeApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptUsporedi tekst - Zanemari velika i mala slovaOpcija Usporedi tekstZahtijeva promjenjivu deklaracijuOpcija EksplicitnoAutomatski izračuniPrimjena.Izračun = xlPriručnik
Primjena.Izračun = xlAutomatskiPozadinska pogreška ProvjeraApplication.ErrorCheckingOptions.BackgroundChecking = Netačno
Application.ErrorCheckingOptions.BackgroundChecking = IstinaPrikaz trake formuleApplication.DisplayFormulaBar = Netačno
Application.DisplayFormulaBar = IstinaZamrzni oknaActiveWindow.FreezePanes = Netačno
ActiveWindow.FreezePanes = IstinaPrikaz preko cijelog zaslonaApplication.DisplayFullScreen = Netačno
Application.DisplayFullScreen = IstinaPageBreak pregledActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewPrikaz traka za pomicanjeS aktivnim prozorom
.DisplayHorizontalScrollBar = Netačno
.DisplayVerticalScrollBar = Netačno
Završi saWith ActiveWindow
.DisplayHorizontalScrollBar = Istina
.DisplayVerticalScrollBar = Istina
Završi sPrikaz trake statusaApplication.DisplayStatusBar = Netačno
Application.DisplayStatusBar = IstinaSadržaj trake statusaApplication.StatusBar = "Sada radim !!!"
Application.StatusBar = NetačnoPrikaz kartica radne sveskeActiveWindow.DisplayWorkbookTabs = Netačno
ActiveWindow.DisplayWorkbookTabs = IstinaKorisničko imeApplication.UserName = “AutomateExcel.com”Natpis aplikacijeApplication.Caption = “Automatiziraj Excel model”ZumActiveWindow.Zoom = 80

Povratak na vrh

Pogreške

OpisVBA kodGreška pri uključivanju - Zaustavljanje koda i pogreška prikazaUključeno Greška Idi na 0Greška pri uključivanju - Preskočite pogrešku i nastavite s radomUključeno Slijedi nastavak greškeGreška pri uključivanju - Idite na redak koda [Oznaka]Greška pri uključivanju Idi na [oznaka]Briše (resetira) pogreškuUključena greška GoTo -1Prikaži broj pogreškeMsgBox Err.BrojPrikaži opis greškeMsgBox Err.OpisFunkcija generiranja vlastite pogreškeGreška.Podigni

Povratak na vrh

Datoteke

OpisVBA kodKopiraj datotekuFileCopy "C: \ test \ test_old.xlsx", "C: \ test \ test_new.xlsx"Izbrisati dateotekuUbijte "C: \ test \ example.xlsx"Napravi mapuMkDir "C: \ test \"Izbrišite sve datoteke iz mapeUbijte "C: \ test \" & "*.*"Izbriši mapuUbijte "C: \ test \" & "*.*"
RmDir "C: \ test \"Trenutni imenikstrPath = CurDir ()Put ove radne knjigestrPath = ThisWorkbook.PathProđite kroz sve datoteke u mapi

strFile = Dir ("C: \ test" & "\*")

Učiniti Dok Len (strFile)> 0
Ispravljanje ispisa strFile
strFile = Dir
Petlja

Povratak na vrh

Izvrstan proizvod. AutoMacro ne samo da piše vaš kôd, već uči i dok idete! " - Tony, UK

Saznajte više

Pročitajte naše 900+ recenzija

Nizovi

OpisVBA kodStvoritiPriguši arr (1 do 3) kao varijantu
arr (1) = "jedan"
arr (2) = "dva"
arr (3) = "tri"Stvorite iz programa ExcelPriguši arr (1 do 3) kao varijantu
Dim cell As Range, i As Integer
i = LBound (arr)
Za svaku ćeliju u rasponu ("A1: A3")
i = i + 1
arr (i) = ćelija.vrijednost
Sljedeća ćelijaPročitajte sve stavkeDim i kao Long
Za i = L vezan (arr) za UBound (arr)
MsgBox arr (i)
Sljedeći iIzbrišiIzbriši arrNiz za nizDim sName As String
sName = Pridruži se (arr, “:”)Povećajte veličinuReDim Preserv arr (0 do 100)Postavljena vrijednostarr (1) = 22

Povratak na vrh

VBA programiranje | Generator koda radi za vas!

Zbirke

OpisVBA kodStvoritiDim coll kao nova kolekcija
coll.Dodajte "jedan"
coll.Dodajte "dva"Stvorite iz programa ExcelDim coll kao nova kolekcija
Prigušena ćelija kao raspon
Za svaku ćeliju u rasponu ("A1: A2")
coll.Dodaj ćeliju.vrijednost
Sljedeća ćelijaDodaj Predmetcoll.Dodajte "vrijednost"Dodaj stavku prijecoll.Dodajte “Value”, Prije: = 1Dodaj stavku poslijecoll.Dodajte “Value”, After: = 1Pročitajte stavkuMsgBox coll (1)Brojanje stavkicoll.BrojPročitajte sve stavkePriguši stavku kao varijantu
Za svaku stavku U zborniku
Stavka MsgBox
Sljedeća stavkaUkloni stavkucoll.Ukloni (1)Uklonite sve stavkePostavi coll = Nova zbirka

Povratak na vrh

Rječnici

OpisVBA kodPotrebna referencaAlati> Reference> Microsoft Scripting RuntimeStvoritiDim dict As New Scripting.Rječnik
dict.Dodajte ""
dict.Dodajte ""Stvorite iz programa ExcelDim dict As New Scripting.Rječnik
Prigušena ćelija kao raspon
Dim tipka kao cijeli broj
Za svaku ćeliju u rasponu ("A1: A10")
ključ = ključ + 1
dict.Dodaj ključ, cell.value
Sljedeća ćelijaDodaj Predmetdict.Add "Key", "Value"Promijenite vrijednostdict ("Key") = "Vrijednost"Dobijte vrijednostMsgBox dict ("ključ")Provjerite vrijednostAko dict.Exists ("Ključ") Zatim
MsgBox "Postoji"
Završi akoUkloni stavkudict.Remove ("ključ")Uklonite sve stavkedict.UkloniSvePetlje kroz stavkeDim tipka kao varijanta
Za svaki ključ U dict.Keys
MsgBox ključ, dict (ključ)
Sljedeći ključBrojanje stavkidikt.BrojNeka ključna slova budu osjetljivadict.CompareMode = vbBinaryCompareNeka ključna slova postanu neosetljivadict.CompareMode = vbTextCompare

Povratak na vrh

AutoMacro - Ultimativni dodatak VBA

AutoMacro: VBA dodatak sa stotinama primjera VBA koda spremnih za upotrebu i još mnogo toga!

Saznajte više