VBA-spiekbriefjes - Opdrachten en syntaxislijsten

VBA-spiekbriefje PDF (gratis download)

Download onze gratis Excel VBA Cheat Sheet PDF voor snelle referentie!

Downloaden

VBA-spiekbriefjes

Raadpleeg deze pagina voor lijsten met alle veelgebruikte VBA-opdrachten en syntaxis. U zult veel basiscommando's vinden (bijv. een blad invoegen) en een aantal geavanceerde syntaxis (bijv. werken met arrays).

Tips:

Gebruik CTRL + F om deze pagina te doorzoeken.

Maak een bladwijzer van deze pagina (CTRL + D in Chrome)!

Lakens

BeschrijvingVBA-codeActiveren op tabbladnaamBladen ("Invoer"). ActiverenActiveren op VBA-codenaamBlad1.ActiverenActiveren op indexpositieBladen(1).ActiverenVolgende bladActiveSheet.Volgende.ActiverenActiveSheet ophalenMsgBox ActiveSheet.NameSelecteer bladVellen ("Invoer"). SelecteerInstellen op VariabelDim ws als werkblad
Stel ws = ActiveSheet inNaam / naam wijzigenActiveSheet.Name = "NieuweNaam"Blad toevoegenLakens.ToevoegenBlad en naam toevoegenSpreadsheets.Add.Name = "NieuweBlad"Blad toevoegen aan variabeleDim ws als werkblad
Stel ws = Bladen.ToevoegenBlad kopiërenBladen ("Blad1"). Kopieer eerder: = Bladen ("Blad2")Blad verbergenBladen ("Blad1"). Zichtbaar = Onwaar
of
Bladen ("Blad1"). Zichtbaar = xlBladVerborgenBlad zichtbaar makenSpreadsheets ("Blad1"). Zichtbaar = True
of
Bladen ("Blad1"). Zichtbaar = xlBlad ZichtbaarVerberg bladBladen ("Blad1"). Zichtbaar = xlSheetVeryHiddenBlad verwijderenBladen ("Blad1").VerwijderenBlad wissenVellen ("Blad1"). Cellen. WissenBeveiliging opheffen (geen wachtwoord)Bladen ("Blad1").Bescherming opheffenBeveiliging opheffen (wachtwoord)Spreadsheets ("Blad1"). Beveiliging van "Wachtwoord" opheffenBescherm (geen wachtwoord)Vellen ("Blad1").BeschermenBescherm (wachtwoord)Spreadsheets ("Blad1"). Bescherm "Wachtwoord"Bescherm maar sta VBA-toegang toeSpreadsheets ("Blad1"). Bescherm UserInterfaceOnly:=True

terug naar boven

Cellen en bereiken

BeschrijvingVBA-codeActiveer celBereik ("B3"). Activeren
Cellen(3,2).ActiverenSelecteer bereikBereik ("a1:a3"). Selecteer
Bereik (Bereik ("a1"), Bereik ("a3")). Selecteer
Bereik (Cellen (1, 1), Cellen (3, 1)). SelecteerFormaat wijzigenBereik ("B3"). Formaat wijzigen (2, 2). SelecteeroffsetBereik ("B3"). Offset (2, 2). SelecteerKopiërenBereik ("A1: B3"). Bereik kopiëren ("D1")SneeBereik ("A1: B3"). Snijbereik ("D1")VerwijderenBereik ("A1:B3"). Verwijderen
Bereik ("A1:B3").Verwijder shift:=xlShiftToLeftDuidelijkBereik ("A1:A3"). Wissen
Bereik ("A1:A3").ClearContents
Bereik ("A1:A3").ClearFormatGraafBereik ("A1:A3"). TellingInstellen op VariabelDim rng als bereik
Stel rng = Bereik ("A1") inSamenvoegen/opheffenBereik ("A1:A3"). Samenvoegen
Bereik ("A1:A3"). Samenvoegen opheffenLoop door cellen

Dim cel als bereik

Voor elke cel binnen bereik ("A1: C3")
MsgBox cel.Waarde
Volgende cel

terug naar boven

rijen

BeschrijvingVBA-codeActiverenRijen(1).Activeren
Rijen ("1:1"). Activeren
Bereik ("a1"). Gehele rij. ActiverenHoogte breedteBereik ("A1"). Hele rij. Rijhoogte = 30VerwijderenBereik ("A1"). Gehele rij.VerwijderenGraafBereik ("A1"). Rijen. TellingInvoegenBereik ("A1"). Gehele rij. InvoegenLaatstedim lRij zo lang
lRij = Cellen(Rijen.Aantal, 1).Einde(xlOmhoog).RijKopiërenBereik ("1:1"). Bereik kopiëren ("5:5")InvoegenBereik ("1:1"). Kopiëren
Bereik ("5:5"). Invoegen

terug naar boven

Kolommen

BeschrijvingVBA-codeActiverenKolommen(1).Activeren
Kolommen ("a:a"). Activeren
Bereik ("a1"). Gehele kolom. ActiverenHoogte breedteBereik ("A1"). Gehele kolom. Kolombreedte = 30VerwijderenBereik ("A1"). Gehele kolom.VerwijderenGraafBereik ("A1"). Kolommen. TellingInvoegenBereik ("A1"). Gehele kolom. InvoegenLaatstedim lCol zo lang
lKol = Cellen(1, Kolommen.Aantal).End(xlNaarLinks).KolomKopiërenBereik ("A:A"). Bereik kopiëren ("E:E")InvoegenBereik ("A:A"). Kopiëren
Bereik ("E:E"). Invoegen

terug naar boven

Moe van het zoeken naar voorbeelden van VBA-codes? Probeer AutoMacro!

Werkmappen

BeschrijvingVBA-codeActiverenWerkmappen ("Boek1"). ActiverenActiveer eerst geopendWerkmappen(1).ActiverenLaatst geopend activerenWerkmappen(Werkboeken.Aantal).ActiverenActiveer Werkboek ophalenMsgBox ActiveWorkbook.NameGet ThisWorkbook (met VBA-code)MsgBox ThisWorkbook.NameToevoegenWerkmappen.ToevoegenToevoegen aan variabeleDim wb als werkboek
Stel wb = Werkmappen in.ToevoegenOpenWerkmappen.Open ("C:\voorbeeld.xlsm")Open voor variabeleDim wb als werkboek
Stel wb = Werkmappen.Open ("C:\voorbeeld.xlsm") inDichtbijWerkmappen ("Boek1").Sluit SaveChanges:=False
Werkmappen ("Boek1").Sluit SaveChanges:=TrueOpslaanWerkmappen ("Boek1"). OpslaanOpslaan alsWerkmappen ("Boek1"). OpslaanAls strBestandsnaamBeveiligen/Beschermen opheffenWerkmappen(1).Bescherm “wachtwoord”
Werkmappen(1).Beveiliging "wachtwoord" opheffenInstellen op VariabelDim wb als werkboek
Stel wb = Werkmappen ("Boek1") inLoop door alle werkmappen in werkmappen

Dim wb als werkboek

Voor elke wb In Werkmappen
MsgBox wb.Naam
Volgende wb

Controleer bestaatAls Dir ("C:\Book1.xlsx") = "" Dan
MsgBox "Bestand bestaat niet."
Stop alsKopie geslotenBestandskopie "C:\bestand1.xlsx", "C:\bestand2.xlsx"

terug naar boven

Instellingen

BeschrijvingVBA-codeScherm bijwerkenApplication.ScreenUpdating = False
Application.ScreenUpdating = TrueWaarschuwingen weergevenApplication.DisplayAlerts = False
Application.DisplayAlerts = TrueEvenementenApplication.EnableEvents = False
Application.EnableEvents = TrueAnnuleringstoets inschakelenApplication.EnableCancelKey = xlDisabled
Application.EnableCancelKey = xlInterruptTekst vergelijken - hoofdletters negerenOptie Tekst vergelijkenVariabele declaratie vereisenOptie explicietAutomatische berekeningenToepassing. Berekening = xlHandmatig
Toepassing.Berekening = xlAutomatischAchtergrondfoutcontroleApplication.ErrorCheckingOptions.BackgroundChecking = False
Application.ErrorCheckingOptions.BackgroundChecking = TrueFormulebalk weergevenApplication.DisplayFormulaBar = False
Application.DisplayFormulaBar = TruePannen bevriezenActiveWindow.FreezePanes = False
ActiveWindow.FreezePanes = TrueVolledige schermweergaveApplication.DisplayFullScreen = False
Application.DisplayFullScreen = TruePagina-einde voorbeeldActiveWindow.View = xlPageBreakPreview
ActiveWindow.View = xlNormalViewScrollbalken weergevenMet ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
Eindigen metMet ActiveWindow
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
Eindigt metStatusbalk weergevenApplication.DisplayStatusBar = False
Application.DisplayStatusBar = TrueInhoud van de statusbalkApplication.StatusBar = "Ik werk nu!!!"
Application.StatusBar = FalseWerkmaptabbladen weergevenActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayWorkbookTabs = TrueGebruikersnaamApplication.UserName = "AutomateExcel.com"App-bijschriftApplication.Caption = "Excel-model automatiseren"ZoomActiveWindow.Zoom = 80

terug naar boven

fouten

BeschrijvingVBA-codeOn Error - Stopcode en weergavefoutBij fout Ga naar 0Bij fout - Fout overslaan en doorgaan met draaienBij fout Hervatten volgendeBij fout - Ga naar een regel code [Label]Bij fout Ga naar [Label]Wist (reset) foutBij fout Ga naar -1Toon foutnummerMsgBox Err.NummerToon beschrijving van de foutMsgBox Err.BeschrijvingFunctie om eigen fout te genererenErr.Verhogen

terug naar boven

Bestanden

BeschrijvingVBA-codeKopieer bestandBestandskopie “C:\test\test_old.xlsx”, “C:\test\test_new.xlsx”Verwijder bestandDood "C:\test\example.xlsx"Map makenMkDir "C:\test\"Alle bestanden uit map verwijderenDood "C:\test\" & "*.*"Verwijder mapDood "C:\test\" & "*.*"
RmDir “C:\test\”Huidige directorystrPath = CurDir()Dit werkboekpadstrPath = ThisWorkbook.PathDoorloop alle bestanden in map

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

Do While Len (strFile) > 0
Debug.Print strFile
strFile = Dir
Lus

terug naar boven

Geweldig product. AutoMacro schrijft niet alleen uw code, het leert u terwijl u bezig bent!" - Tony, VK

Kom meer te weten

Lees onze 900+ beoordelingen

Arrays

BeschrijvingVBA-codeCreërenDim arr (1 tot 3) als variant
arr(1) = “één”
arr(2) = “twee”
arr(3) = “drie”Maken vanuit ExcelDim arr (1 tot 3) als variant
Dim cel als bereik, i als geheel getal
ik = LBound(arr)
Voor elke cel binnen bereik ("A1: A3")
ik = ik + 1
arr(i) = cel.waarde
Volgende celLees alle artikelenDim ik zo lang
Voor i = LBound(arr) Naar UBound(arr)
MsgBox arr(i)
volgende iWissenWis arrArray naar stringNaam dimmen als string
sName = Join(arr, “:”)Groter makenReDim behouden arr (0 tot 100)Waarde instellenarr(1) = 22

terug naar boven

VBA-programmering | Code Generator werkt voor u!

Collecties

BeschrijvingVBA-codeCreërenDim col Als Nieuwe Collectie
coll.Voeg “één” toe
coll.Voeg “twee” toeMaken vanuit ExcelDim col Als Nieuwe Collectie
Dim cel als bereik
Voor elke cel binnen bereik ("A1: A2")
coll.Voeg cel.waarde toe
Volgende celVoeg item toecoll.Voeg “Waarde” toeItem toevoegen vóórcoll.Voeg “Waarde” toe, Voor:=1Item toevoegen nacoll.Voeg “Waarde” toe, Na:=1Artikel lezenMsgBox coll (1)Items tellencoll.CountLees alle artikelenDim item als variant
Voor elk item In col
MsgBox-item
Volgende itemVerwijder voorwerpcoll.Verwijderen (1)Alle items verwijderenSet coll = Nieuwe Collectie

terug naar boven

Woordenboeken

BeschrijvingVBA-codeVereiste referentie:Extra > Referenties > Microsoft Scripting RuntimeCreërenDim dict als nieuwe scripting.Dictionary
dict.Voeg “” toe
dict.Voeg “” toeMaken vanuit ExcelDim dict As New Scripting.Dictionary
Dim cel als bereik
Dim-toets Als geheel getal
Voor elke cel binnen bereik ("A1: A10")
sleutel = sleutel + 1
dict.Toevoegen sleutel, cel.waarde
Volgende celVoeg item toedict.Voeg "Sleutel", "Waarde" toeVerander waardedict(“Sleutel”) = “Waarde”Waarde krijgenMsgBox dict ("Sleutel")Controleer op waardeAls dict.Bestaat ("Sleutel") Dan
MsgBox "bestaat"
Stop alsVerwijder voorwerpdict.Verwijderen (“Sleutel”)Alle items verwijderendict.Alles verwijderenDoorloop itemsDimtoets Als Variant
Voor elke toets In dict.Toetsen
MsgBox-sleutel, dict (sleutel)
Volgende toetsItems tellendict.CountSleutel hoofdlettergevoelig makendict.CompareMode = vbBinaryCompareSleutel hoofdletter ongevoelig makendict.CompareMode = vbTextCompare

terug naar boven

AutoMacro - De ultieme VBA-invoegtoepassing

AutoMacro: VBA-invoegtoepassing met honderden kant-en-klare VBA-codevoorbeelden en nog veel meer!

Kom meer te weten