Wat is een VBA-code en hoe gebruik ik er een? + VBA-code-voorbeelden

Sinds de lancering in 1987 is Microsoft Excel snel uitgegroeid tot een veelgebruikte applicatie voor spreadsheets. Vandaag de dag gebruiken de meeste mensen de reken- en grafiekfuncties van Excel. Excel heeft echter ook veel geavanceerde functies waar gebruikers geen weet van hebben, zoals het automatiseren van taken met VBA codes en macro's.

Vandaag bespreken we deze geavanceerde functies en leren we je hoe je je workflow kunt stroomlijnen. We duiken in VBA-codes en Excel-macro's en laten aan de hand van voorbeelden zien hoe je ze kunt gebruiken. Er komt ook een gedeelte over het voorkomen van gegevensverlies, omdat VBA-codes je Excel-gegevens kunnen wissen als ze verkeerd worden gebruikt.

Wat is een VBA-code?

Voordat we VBA-codevoorbeelden bekijken, moeten we eerst VBA bespreken en uitleggen wat het is. VBA, of Visual Basic Applications, is een programmeertaal die Microsoft Office-apps zoals Excel gebruiken om macro's, ook wel geautomatiseerde taakscripts genoemd, te maken, op te slaan en te implementeren.

Aan de andere kant zijn macro's programmeerscripts of een reeks opdrachten die je Excel-workflow kunnen automatiseren. Met deze scripts kunnen gebruikers complexe en tijdrovende spreadsheetacties uitvoeren met een vooraf opgenomen snelkoppeling, zodat ze tijd besparen bij het beheren van gegevens, het draaien van tabellen en het opschonen van spreadsheets.

Macrocodes in Excel gebruiken

Nu we de basis achter Excel-macro's kennen, gaan we meteen aan de slag met deze codes en laten we zien hoe je er een maakt aan de hand van een voorbeeld van een macro in Excel. Dit moet je doen:

1. Start Microsoft Excel en ga naar Bestand > Opties > Lint aanpassen.
2. Onder Hoofdtabbladen vink het vakje naast Ontwikkelaar om de standaard verborgen functie in te schakelen.

   

3. Sla uw instellingen op door op OK en navigeer dan naar de Ontwikkelaar tab.

   

4. Selecteer de Macro opnemen optie.

   

5. Geef je macro een naam en beschrijf kort wat hij doet, zodat je hem later kunt identificeren. Je kunt ook snelkoppelingen toevoegen om de macro aan te roepen.
6. Nadat je de macrogegevens hebt ingevoerd, kun je op OK en voer de acties uit die je wilt toevoegen aan de macro. De Excel-app zal deze acties opnemen en opslaan in de gemaakte macro.
7. Klik op Opname stoppen zodra je je acties hebt voltooid, en je macro is klaar.

   

8. Wanneer je deze stappen opnieuw moet gebruiken, kun je op de toetsen op het toetsenbord drukken en de macro oproepen via de snelkoppeling die je hebt ingesteld. U kunt ook naar Ontwikkelaar > Macro's > Macro's weergevenen raak Ren op uw gewenste macro.

Je vooraf opgenomen acties worden door de macro gevoerd en je kunt de resultaten controleren. Onthoud dat controleren een zeer belangrijke stap is, vooral voor macro-beginners, en dat je hiermee kunt garanderen dat je nieuwe geautomatiseerde taken goed werken. Je moet je macro's bewerken als je acties niet werken zoals je wilde.

20 Excel VBA-voorbeelden voor beginners

Zoals hierboven vermeld, staat VBA voor Visual Basic Applications, een taal die Excel kan begrijpen. Alle macro's die je maakt met de bovenstaande stappen leggen je spreadsheetacties vast, zetten ze om in voor Excel leesbare VBA-code en slaan ze op als iets dat Excel kan herkennen en begrijpen.

Dat gezegd hebbende, krijgen we ook enkele basisvoorbeelden van VBA-code en macro's, dus laten we eens kijken hoe nuttige macro's eruit zien en waarvoor je ze kunt gebruiken:

1. Kolommen invoegen
2. Meer rijen invoegen
3. AutoFit kolommen
4. AutoFit rijen
5. Cellen losmaken
6. Markeer Grotere-dan Waarden
7. Lagere waarden markeren
8. Negatieve cijfers markeren
9. Fout gespelde cellen markeren
10. Werkbladen verbergen
11. Alles wissen behalve de actieve werkbladen
12. Blanco bladen verwijderen
13. Werkbladen als PDF opslaan
14. Werkmappen afsluiten
15. Draaitabellen verversen
16. Grafieken toevoegen als afbeeldingen
17. Foto's invoegen
18. Tekens verwijderen uit strings
19. Tekst omkeren
20. Lege cellen door nullen vervangen

Deze macro's doen wat hun naam doet vermoeden en je kunt ze kopiëren en uitproberen in je eigen XLS-bestanden. Je vindt hun VBA-codes hieronder, maar vergeet niet om ze eerst te testen in onbelangrijke spreadsheets of kopieën te maken van je belangrijke bestanden.

Kolommen invoegen

Sub MeerdereKolommenInvoegen()
Dim i als geheel getal
Dim j Als Getal
ActiveCell.HeleKolom.Selecteer
Bij fout Ga naar laatst
i = InputBox("Voer het aantal in te voegen kolommen in", "Kolommen invoegen".
Voor j = 1 naar i
Selectie.invoegen Shift:=xlRechts, CopyOrigin:=xlFormaatVanRechtsOfHoger
Volgende j
Laatste: Sub afsluiten
Einde Sub

Meer rijen invoegen

Sub Meervoudige rijen invoegen()
Dim i als geheel getal
Dim j als geheel getal
ActiveCell.HeleRij.Selecteer
Bij fout Ga naar laatste
i = InputBox("Voer het aantal rijen in dat u wilt invoegen", "Rijen invoegen".)
Voor j = 1 Naar i
Selectie.invoegen Shift:=xlNaar beneden CopyOrigin:=xlFormaatVanRechtsOfHoger
Volgende j
Laatste: Sub afsluiten
Einde Sub

AutoFit kolommen

Sub AutoFitColumns()
Cellen.selecteren
Cellen.HeleKolom.AutoFit
Einde Sub

AutoFit rijen

Sub AutoFitRows()
Cellen.selecteren
Cellen.HeleRij.AutoPassen
Einde Sub

Cellen losmaken

Sub UnmergeCells()
Selectie.samenvoegen
Einde Sub

Markeer Grotere-dan Waarden

SubHighlightGreaterThanValues()
Dim i als geheel getal
i = InputBox("Voer waarde groter dan in", "Voer waarde in")
InputBox("Voer waarde groter dan in", "Voer waarde in")
Selectie.FormatCondities.Toevoegen Type:=xlCellValue,_
Exploitant:=xlGreater, Formule1:=i
Selectie.FormatCondities(Selectie.FormatCondities.Tellen).S
tEerste prioriteit
Met selectie.formaatvoorwaarden(1)
.Lettertype.kleur = RGB(0, 0, 0)
.interieur.kleur = RGB(31, 218, 154)
Einde met
End Sub

Lagere waarden markeren

Sub Laagstewaarden markeren()
Dim i als geheel getal
i = InputBox("Enter Lower Than Value", "Waarde invoeren".)
Selectie.FormatCondities.Wissen
Selectie.FormatCondities.Toevoegen_
Type:=xlCelWaarde, _
Exploitant:=xlOnder, _
Formule1:=i
Selectie.FormatCondities(Selectie.FormatCondities.Tellen).S
tEerste prioriteit
Met selectie.formaatvoorwaarden(1)
.Font.Kleur = RGB(0, 0, 0)
.Interieur.kleur= RGB(217, 83, 79)
Einde met
Einde Sub

Negatieve cijfers markeren

Sub markeerNegatieveGetallen()
Dim Rng als bereik
Voor elke Rng in selectie
Als WerkbladFunctie.isNummer(Rng) dan
Als Rng.Value < 0 Dan
Rng.lettertype.kleur= -16776961
Eindigen als
Eindigen als
Volgende
Einde Sub

Fout gespelde cellen markeren

Sub Spellen met spelfouten markeren()
Sub Spellen met spelfouten markeren
Per rng In ActiveSheet.UsedRange
Als Niet Toepassing.ControleerSpelling(woord:=rng.Tekst) Dan
rng.Style = "Slecht"
Eindigen als
Volgende rng
Einde Sub

Werkbladen verbergen

Sub UnhideAllWorksheet()
Dim ws als werkblad
Voor elke ws in ActiveWorkbook.Worksheets
ws.Zichtbaar = xlSheetVisible
Volgende ws
Einde Sub

Alles wissen behalve de actieve werkbladen

Sub Werkbladen verwijderen()
Dim ws als werkblad
Voor elke ws in Ditwerkboek.werkbladen
Als ws.naam <> DitWerkboek.ActiveSheet.naam Dan
Toepassing.DisplayAlert = False
ws.verwijderen
Toepassing.DisplayAlerts = True
Eindigen als
Volgende ws
Einde Sub

Blanco bladen verwijderen

Sub deleteBlankWorksheets()
Dim Ws als werkblad
Bij fout Volgende
Toepassing.scherm bijwerken= fout
Toepassing.DisplayAlerts=Valse
Voor elke Ws in toepassing.werkbladen
Als Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Dan
Ws.Verwijder
Eindigen als
Volgende
Toepassing.scherm bijwerken= Waar
Toepassing.DisplayAlerts= Waar
Einde Sub

Werkbladen als PDF opslaan

Sub OpslaanWerkenAlsPDF()
Dimws als werkblad
Voor Elke ws In Werkbladen
ws.ExporteerAsVastFormaat _
xlTypePDF, _
"VOER HIER MAPNAAM IN" &; _
ws.Naam & ".pdf"
Volgende ws
Einde Sub

Werkmappen afsluiten

SubAlle werkboeken sluiten()
Dim wbs als werkboek
Voor elke wbs in Werkmappen
wbs.Voor elk wbs in Werkmappen
Volgende wb
Einde Sub

Draaitabellen verversen

Sub vba_referesh_all_pivots()
Dim pt als draaitabel
Voor elke pt in ActiveWorkbook.PivotTables
pt.VernieuwTabel
Volgende pt
Einde Sub

Grafieken toevoegen als afbeeldingen

Sub Converteerhartnaarafbeelding()
ActiveChart.GrafiekArea.Kopiëren
ActiveSheet.Range("A1").Selecteer
ActiveSheet.Range("A1").Selecteer
EindeSub

Foto's invoegen

SubAfbeelding met naam()
Selectie.kopiëren
Actiefblad.Afbeeldingen.Plakken
Einde Sub

Tekens verwijderen uit strings

Openbare functie removeFirstC(rng als String, cnt als Long)
removeFirstC = Rechts(rng, Len(rng) - cnt)
Einde functie

Tekst omkeren

Openbare functie rvrse(byv. cel als bereik) als string
rvrse = VBA.strReverse(cel.Waarde)
Einde functie

Lege cellen door nullen vervangen

Sub vervangBlankMetNul()
Dim rng Als Bereik
Selectie.waarde = Selectie.waarde
Voor elke rng in selectie
Als rng = ““ Of rng = “ “ Dan
rng.Waarde= "0"
Anders
Einde Als
Volgende rng
Einde Sub

🚀[Bonus] Gegevensbeveiliging garanderen met VBA-codes

Zoals je misschien hebt gemerkt, bevatten sommige VBA-codevoorbeelden hierboven taken voor het verwijderen van gegevens, en veel Excel-experts gebruiken dergelijke macro's dagelijks. Het is echter de moeite waard om op te merken dat het per ongeluk gebruiken van deze macro's je waardevolle Excel-spreadsheets kan verwijderen en dat je voorzichtig moet zijn met dergelijke macro's.

Er is echter niets om bang voor te zijn, zelfs niet als je al VBA-codes voor het verwijderen van gegevens hebt gebruikt, want er zijn oplossingen waarmee je Excel-bestanden kunt herstellen. Apps voor gegevensherstel doen wonderen in deze situaties en een tool als Wondershare Recoverit is hiervan een perfect voorbeeld.

Of je nu te maken hebt met verloren Excel-spreadsheets, niet opgeslagen recente wijzigingen, verwijderde gegevens of per ongeluk gebruikte VBA-codes voor het verwijderen van gegevens, deze app kan je helpen. Het efficiënte en geavanceerde zoek- en herstelalgoritme kan verloren bestanden snel herstellen, ongeacht de situaties waarin gegevens verloren zijn gegaan, aangezien de app meer dan 500 bestanden ondersteunt. Het is een fluitje van een cent om het te gebruiken en hier lees je hoe je dat kunt doen:

1. Open Wondershare Recoverit en kies de Vaste schijven en locaties optie.

   

2. Selecteer het schijfstation waar je XLS-bestanden hebt opgeslagen - de app zal het onmiddellijk scannen op verloren gegevens.

   

3. Bestandsfilters en trefwoorden toevoegen om specifieke Excel-bestanden te zoeken.

   

4. WondershareHerstelAls je Excel-bestanden vindt, kun je er een voorbeeld van bekijken. Als u tevreden bent met het voorbeeld, kunt u de scan pauzeren of stoppen en tikken op Herstellen om de ontdekte gegevens op te slaan op uw pc.

   

Met Wondershare Recoverit in uw arsenaal, kunt u veilig gebruik maken en oefenen met geavanceerde VBA codes en uw Excel workflow naar een ander niveau brengen zonder dat u zich zorgen hoeft te maken dat u het fout doet. Het kan ook overweg met bestanden zoals muziek, foto's en video's en ondersteunt meer dan 1000 herstelbare bestandstypen.

Je kunt de app gebruiken op interne schijven, externe opslag, NAS, USBs en anderen, omdat Wondershare Recoverit meer dan 2.000 opslagapparaten ondersteunt. Het is perfect voor gegevensverlies veroorzaakt door malware, systeemcrashes, onderbroken bestandsoverdrachten, defecte schijfstations, enzovoort, waardoor het een ideaal hulpmiddel is om de veiligheid van gegevens te garanderen.

Conclusie

Bovenop berekeningen, berekeningen en spreadsheetmogelijkheden heeft Microsoft Excel verschillende geavanceerde functies, zoals macro's, die je werkstroom kunnen stroomlijnen en vervelende taken kunnen automatiseren om je kostbare tijd te besparen. Deze macro's zetten je vooraf opgenomen acties om in VBA-code, een programmeertaal die Excel kan begrijpen en gebruiken.

Van het toevoegen van meerdere rijen of kolommen tot het automatisch aanpassen van gegevensinvoer en het markeren van waarden, fouten en tekens tot het opmaken van je spreadsheets, VBA-codes kunnen je Excel-vaardigheden met wat oefening naar een hoger niveau tillen. En als het mis gaat en je maakt een fout met gegevens verwijderen VBA codes, dan kunnen herstel apps zoals Wondershare Recoverit moeiteloos je vitale XLS bestanden en Excel data terughalen.