Deze pagina is speciaal bedoeld voor programmeurs die programmeren in een andere taal.<\/p>\n
Op deze pagina gaan we in het kort in op de belangrijkste zaken die met Excel VBA hebben te maken.<\/p>\n
Echter is het ook meteen een handreiking voor vba in de andere office pakketten.<\/p>\n
VBA staat voor Visual Basic for Applications en is de programmeer-taal voor MS-Ofiice.<\/p>\n
Alle voorbeeld-code in dit document zijn uitgewerkt in VBA voor Excel.<\/p>\n
Om in Excel met eigen gemaakte code te kunnen werken moeten de volgende zakel in acht worden genomen:<\/p>\n
Kies het menu Extra –> Macro –> Beveiliging…<\/p>\n
Kies in het tab-blad “Beveiligingsniveau” voor de optie ‘Gemiddeld’ of ‘Laag’. Standaard staat de optie ‘Hoog’ geselecteerd, wat tot gevolg heeft dat er in het geheel niet met macro’s en met eigen gemaakte code kan worden gewerkt.<\/p>\n
Verder is het handig om de volgende menu-opties op een van de werkbalken te plaatsen:<\/p>\n
Extra –> Macro –><\/p>\n
Macro’s…\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 Alt+F8
\nNieuwe macro opnemen…
\nVisual Basic Editor\u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0\u00a0 \u00a0\u00a0Alt+F11<\/p>\n
Dit kun je doen door te kiezen voor de menuoptie Extra –> Aanpassen…<\/p>\n
Activeer het tab-blad “Opdrachten”.
\nKies onder “Categorie” de optie ‘Extra’.
\nZoek onder “Opdrachten” naar de juiste commando’s en sleur&pleur ze naar de juiste plaats op een werkbalk.<\/p>\n
Afsluiten door op de Sluiten-knop te klikken.<\/p>\n
De (algemene) codes die je zelf maakt komen in een zogenaamde module te staan.<\/p>\n
Je kunt per categorie commando’s een aparte module maken, maar je mag ook alles in 1 module proppen.<\/p>\n
Alle code in een module is overal te gebruiken. De scope is dus globaal.<\/p>\n
Om een module te maken ga je als volgt te werk:<\/p>\n
Open de VBA-editor<\/p>\n
Kies het menuitem: Invoegen –> Module<\/p>\n
Kijk meteen of de eerste regel ‘Option Explicit’ is. Zo niet tik dit dan in.<\/p>\n
Deze opdracht zorgt ervoor dat alle te gebruiken variabelen eerst moeten worden gedeclareerd.<\/p>\n
De VBA-editor kan grofweg in drie delen worden opgesplitst:<\/p>\n
De menu- en werkbalken
\nHet project- en Eigenschappen-venster (aan de linker-kant)
\nHet code-venster<\/p>\n
Door in het project-venster te dubbelklikken op een item wordt het bijbehorende code-venster geactiveerd.<\/p>\n
Het code-venster heeft als eigenschap dat er na iedere regel die wordt verlaten er meteen een syntax-check plaats vindt. Wanneer er iets niet goed is komt er meteen een melding van.<\/p>\n
Alles kan in kleine letters worden getikt. Wanneer VBA het herkent als een VBA-commando, dan zet hij hierzelf hoofdletters in.<\/p>\n
Wanneer je variabelen declareerd met een of meer hoofdletters en bij het gebruik ze verder intikt in kleine letters zal VBA hier ook de hoofdletters inzetten. Erg handig!<\/p>\n
Een procedure in VBA heet een Sub.<\/p>\n
Een functie heet in VBA een Function.<\/p>\n
Om een Sub te declareren tik je in:<\/p>\n
sub <naam van de sub> met, indien van toepassing, direct daarachter tussen haakjes de (formele) parameters. Hierna druk je op de Enter-toets.<\/p>\n
VBA toont hierna de volgende regels:<\/p>\n
Sub <naam>(<params>)<\/span><\/p>\n End Sub<\/span><\/p>\n De cursor staat keurig tussen de twee regels.<\/p>\n Om een Function te declareren tik je in:<\/p>\n function <naam> met, indien van toepassing, direct daarachter tussen haakjes de (formele) parameters, met, indien van toepassing, daarachter het type van de functie.<\/p>\n VBA toont hierna de volgende regels:<\/p>\n Function <naam>(<params>)<\/span><\/p>\n End Function<\/span><\/p>\n De cursor staat keurig tussen de twee regels.<\/p>\n Om een waarde aan een functie te geven moet er een toekenningsopdracht binnen de definitie staan als volgt:<\/p>\n <naam> = <waarde>, waarbij <naam> de naam van de Function is.<\/p>\n Wanneer je een Sub ergens anders wilt gerbuiken dan moet de volgende aanroep worden gebruikt:<\/p>\n <naam> <param1> <param2> …, waarbij <naam> de naam van de Sub is en <paramx> de xe parameter. De parameters staan dus niet tussen haakjes.<\/p>\n Wanneer je een Function ergens anders wilt gebruiken dan moet de volgende aanroep worden gebruikt:<\/p>\n <var> = <naam>(<param1>,<param2>,…), waarbij <var> een variabele is, <naam> de naam van de Function en <paramx> de xe parameter. De parameters staan hier wel tussen haakjes.<\/p>\n Het is niet toegestaan een Function als een Sub te gebruiken.<\/p>\n Wanneer ‘Option Explicit’ in de module is gedeclareerd, dan moeten alle te gebruiken variabelen worden gedeclareerd.<\/p>\n Om een variabele te delcareren moet gebruik worden gemaakt van het gereserveerde woord Dim als volgt:<\/p>\n Dim <naam-variabele><\/span><\/p>\n Het is toegestaan om achter het woord Dim meerdere variabelen te declareren, deze moeten dan worden gescheiden door een komma (,).<\/p>\n Een variabele moet gedeclareerd zijn voordat deze voor het eerst wordt gebruikt.<\/p>\n Wordt een variabele buiten een Sub of Function gedeclareerd dan heeft deze een globaal karakter binnen de module.<\/p>\n Wordt een variabele binnen een Sub of Function gedeclareerd dan heeft deze een lokaal karakter.<\/p>\n Een lokale variabele heeft een hogere prioriteit dan een globale variabele.<\/p>\n In tegenstelling tot de meeste andere talen hoef je in VBA niet aan te geven van welk type een variabele is.<\/p>\n Als het type ontbreekt dan maakt VBA hier standaard (default) het type Variant van. Het voordeel hiervan is dat een variabele afhankelijk van de situatie van een ander type kan zijn. Het nadeel is dat dit tijdens de uitvoer moet worden bepaald.<\/p>\n Wanneer van te voren duidelijk is van welk type een variabele is, dan kan deze het beste worden gedeclareerd met een type aanduiding.<\/p>\n Dit gaat als volgt:<\/p>\n Dim <variabele-naam> As <type><\/span><\/p>\n In onderstaande tabel staan de meest gebruikte types:<\/p>\n Voorbeeld:<\/p>\n Dim teller As Integer<\/span> Een veel voorkomende fout is de volgende:<\/p>\n Dim a, b, c As Integer<\/span><\/p>\n in de veronderstelling dat er nu 3 variabelen (a, b en c) als Integer zijn gedeclareerd. Dat is NIET het geval! Alleen variabele c is een Integer, de variabelen a en b zijn van het type Variant. Iedere variabele moet dus worden voorzien van een type-aanduiding.<\/p>\n Bovenstaande voorbeeld moet dus zijn:<\/p>\n Dim a As Integer, b As Integer, c As Integer<\/span><\/p>\n Bij het declareren van formele parameters mag ook een type-aanduiding worden toegevoegd aan de parameter. Dit gaat op dezelfde mannier als bij de declaratie van variabelen.<\/p>\n Wordt dit niet expliciet gedaan, dan wordt het type Variant gebruikt voor de parameter.<\/p>\n Voorbeeld:<\/p>\n Sub TelOp(Getal1 As Integer, Getal2 As Integer, Som As Integer)<\/span><\/p>\n Om een Function van een type te voorzien moet ook gebruik worden gemaakt van het gereserveerde woord As met daarachter een type-aanduiding.<\/p>\n Voorbeeld:<\/p>\n Function TelOp(Getal1 As Integer, Getal2 As Integer) As Integer<\/span><\/p>\n Als dit niet expliciet gebeurt, dan wordt de Function als Variant gedeclareerd.<\/p>\n De doorgewinterde programmeur zal zich bij het voorbeeld van de Sub Telop hierboven zich onmiddellijk hebben afgevraagd of dit wel goed gaat.<\/p>\n Per slot is er geen taal waarin formele parameters default als reference-parameter worden gedeclareerd. Dit is echter een foute conclusie. Er is wel zo’n taal! Te weten: VBA (en ook VB).<\/p>\n Wie dat heeft bedacht, geen idee, maar krankzinnig is dit wel en iets om ter dege rekening mee te houden.<\/p>\n Wanneer een formele parameter niet expliciet als value-parameter wordt gedeclareerd is het dus een reference-parameter.<\/p>\n Het is het handigst als je je aanleert om altijd de soort expliciet aan te geven.<\/p>\n Voor een value-parameter gebruik je het gereserveerde woord\u00a0ByVal, en voor een reference-parameter het gereserveerde woord\u00a0ByRef.<\/p>\n De laatste twee voorbeelden worden dan:<\/p>\n Sub TelOp(ByVal Getal1 As Integer, ByVal Getal2 As Integer, ByRef Som As Integer)<\/span><\/p>\n Function TelOp(ByVal Getal1 As Integer, ByVal Getal2 As Integer) As Integer<\/span><\/p>\n Het is in VBA mogelijk om Array’s te gebruiken. Deze mogen ook meer-dimensionaal zijn.<\/p>\n De declaratie is als volgt:<\/p>\n Dim <var>(<start-index> To <eind-index>) As <type><\/span><\/p>\n of<\/p>\n Dim <var>(<start-index> To <eind-index>, <start-index> To <eind-index>, …) As <type><\/span><\/p>\n Voorbeeld:<\/p>\n Dim Rij(1 To 10) As Integer<\/span><\/p>\n Dim Matrix(1 To 5, 1 To 10) As Single<\/span><\/p>\n Dim EinsteinRuimte(0 To 2, 1 To 10, 5 To 6, 3 To 8) As Variant<\/span><\/p>\n Met de functie LBound(<var>, <dimensie>) kun je de start-index van een Array krijgen, waarbij de optionele <dimensie> aangeeft van welke dimensie je de start-index wilt weten.<\/p>\n Met de functie UBound(<var>, <dimensie>) kun je de eind-index van een Array krijgen, waarbij de optionele <dimensie> aangeeft van welke dimensie je de eind-index wilt weten.<\/p>\n Als <dimensie> wordt weggelaten dan krijg je het resultaat van de 1e dimensie.<\/p>\n In VBA is het ook mogelijk om met dynamische array’s te werken.<\/p>\n Wanneer je dit wilt dan moet je de variabele als volgt declareren:<\/p>\n Dim <var>() As <type><\/span><\/p>\n De haakjes doen hier het werk. Door de twee haakjes met niets daartussen weet VBA dat het hier om een dynamische array gaat.<\/p>\n Voorbeeld:<\/p>\n Dim Naam() As String<\/span><\/p>\n Voordat je een dynamische variabele gaat gebruiken moet deze eerst, minimaal 1 keer, ge-re-dimensioneerd zijn, zodat VBA weet hoeveel elementen er gebruikt kunnen worden. Dat re-dimensioneren gaat met het gereserveerde woord ReDim <var>(<start-index> To <eind-index>). Let op: Na een ReDim mag nooit een type-declaratie komen!<\/p>\n Voorbeeld:<\/p>\n ReDim Naam(1 To 1)<\/span> Wanneer nu een tweede naam moet worden toegevoegd zou je de volgende code kunnen gebruiken:<\/p>\n ReDim Naam(1 To 2)<\/span> Het resultaat zal echter niet gewenst zijn, want na deze regels is Naam(1) leeg.<\/p>\n Wanneer je de reeds bestaande waardes in een dynamische array wilt behouden moet je gebruik maken van het gereserveerde woord Preserve. Preserve komt na ReDim.<\/p>\n Voorbeeld:<\/p>\n ReDim Preserve Naam(1 to 2)<\/span> Na deze regels zal Naam(1) nog steeds de waarde “Henk” hebben.<\/p>\n Wil je echt dynamisch te werk gaan dan maak je natuurlijk veelvuldig gebruik van de functie UBound.<\/p>\n Het laatste voorbeeld wordt dan:<\/p>\n ReDim Preserve Naam(1 To UBound(Naam) + 1)<\/span> Hieronder enkele talige zaken.<\/p>\n De For-lus gaat als volgt:<\/p>\n For <var> = <start> To <eind> Step <stap><\/span> waarbij <var> een Integer-variabele is, <start> de start-waarde van de lus is, <eind> de eind-waarde van de lus is, en <stap> de stap-grootte van de lus is en <opdracht> een (samengestelde) opdracht is die binnen de lus moet worden uitgevoerd. Het Step-gedeelte is optioneel. Als <start> groter is dan <eind>, dan moet <stap> een negatieve waarde hebben.<\/p>\n De For-lus mag worden genest.<\/p>\n Voorbeeld:<\/p>\n Dim t As Integer, s As Integer<\/span><\/p>\n s = 0<\/span> De Do-Loop-lus is er in diverse smaken, waarvan we er hier twee zullen bekijken.<\/p>\n De Do-While-lus gaat als volgt:<\/p>\n Do While <voorwaarde><\/span> waarbij <voorwaarde> van alles kan zijn, dus ook meervoudig, en <opdracht> een (samengestelde) opdracht is die binnen de lus moet worden uitgevoerd.<\/p>\n De Do-While-lus mag worden genest.<\/p>\n Voorbeeld:<\/p>\n Dim t As Integer, s As Integer<\/span><\/p>\n t = 1<\/span> Do While t <= 10<\/span> De Do-Loop-Until-lus gaat als volgt:<\/p>\n Do<\/span> waarbij <voorwaarde> van alles kan zijn, dus ook meervoudig, en <opdracht> een (samengestelde) opdracht is die binnen de lus moet worden uitgevoerd.<\/p>\n De Do-Loop-Until-lus mag worden genest.<\/p>\n Voorbeeld:<\/p>\n Dim t As Integer, s As Integer<\/span><\/p>\n t = 1<\/span> Do<\/span> De If-opdracht gaat als volgt:<\/p>\n If <voorwaarde> Then<\/span> waarbij <voorwaarde> van alles kan zijn, dus ook meervoudig en <opdracht> een (samengestelde) opdracht die wordt uitgeoverd als aan de voorwaarde wordt voldaan, of wordt uitgevoerd in het optionele Else-gedeelte als er niet aan de voorwaarde wordt voldaan.<\/p>\n De If-opdracht mag genest worden, maar ook is de volgende constructie toegestaan:<\/p>\n If <voorwaarde1> Then<\/span> waarbij ElseIf meerdere malen gebruikt mag worden.<\/p>\n Voorbeeld:<\/p>\n If maand = 2 Then<\/span> De Select-opdracht gaat als volgt:<\/p>\n Select Case <var><\/span> waarbij <var> een variabele is, <waarden> een mogelijke waarde van de <var> is en <opdracht> een (samengestelde) opdracht is die wordt uitgevoerd als <var> de waarde <waarden> heeft. Het Else gedeelte is optioneel en wordt uitgevoerd als <var> geen enekele waarde heeft die voorkomt binnen de Select-opdracht.<\/p>\n De Select-opdracht mag worden genest.<\/p>\n Voorbeeld:<\/p>\n Select Case maand<\/span> Tot slot moet hier nog verteld worden dat vba zogenaamd object-based is. Dat merk je wanneer je gebruik gaat maken van de applicatie-objecten. Tevens kun je zelf klasses defini\u00ebren en gebruiken. Maar denk eraan dat vba niet object-ori\u00ebnted is!<\/p>\n Ondanks dat deze pagina is geschreven voor programmeurs hoop ik dat ook anderen hier iets mee zijn opgeschoten.<\/p>\n","protected":false},"excerpt":{"rendered":" Inleiding Deze pagina is speciaal bedoeld voor programmeurs die programmeren in een andere taal. Op deze pagina gaan we in het kort in op de belangrijkste zaken die met Excel VBA hebben te maken. Echter is het ook meteen een handreiking voor vba in de andere office pakketten. VBA staat voor Visual Basic for Applications […]<\/p>\n","protected":false},"author":1,"featured_media":0,"parent":554,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"templates\/template-full-width.php","meta":{"_lmt_disableupdate":"","_lmt_disable":"","footnotes":""},"class_list":["post-563","page","type-page","status-publish","hentry"],"yoast_head":"\nDeclaratie Function<\/h2>\n
Gebruik van Sub<\/h2>\n
Gebruik van Function<\/h2>\n
Variabelen<\/h2>\n
Declareren<\/h2>\n
Scope<\/h2>\n
Type<\/h2>\n
\n\n
\n type<\/td>\n bereik<\/td>\n<\/tr>\n \n Byte<\/td>\n 0..127<\/td>\n<\/tr>\n \n Integer<\/td>\n -32.768..32.767<\/td>\n<\/tr>\n \n Long<\/td>\n -2.147.483.648..2.147.483.647<\/td>\n<\/tr>\n \n Single<\/td>\n -3,402823E38 tot -1,401298E-45, voor negatieve waarden en 1,401298E-45 tot 3,402823E38 voor positieve waarden<\/td>\n<\/tr>\n \n Double<\/td>\n -1,79769313486232E308 tot -4,94065645841247E-324 voor negatieve waarden en 4,94065645841247E-324 tot 1,79769313486232E308 voor positieve waarden<\/td>\n<\/tr>\n \n Date<\/td>\n 1-1-100 t\/m 31-12-9999<\/td>\n<\/tr>\n \n String<\/td>\n tekenreeks<\/td>\n<\/tr>\n \n Boolean<\/td>\n TRUE\/FALSE<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
\nDim Regel As String, Getrouwd as Boolean<\/span><\/p>\nValkuil<\/h2>\n
Parameters<\/h2>\n
Value- en Reference-parameters<\/h2>\n
Array’s<\/h2>\n
LBound en UBound<\/h2>\n
Dynamische array’s<\/h2>\n
\n\u00a0 Naam(1) = “Henk”<\/span><\/p>\n
\n\u00a0 Naam(2) = “Jan”<\/span><\/p>\n
\n\u00a0 Naam(2) = “Jan”<\/span><\/p>\n
\n\u00a0 Naam(UBound(Naam)) = “Jan”<\/span><\/p>\nOpmerking: Als je een dynamische array als parameter wilt gebruiken dan moet deze als reference parameter worden gedeclareerd!!!<\/h6>\n
Talige zaken<\/h2>\n
For-lus<\/h3>\n
\n\u00a0 <opdracht><\/span>
\nNext <var><\/span><\/p>\n
\nFor t = 1 to 10<\/span>
\n\u00a0 s = s + t<\/span>
\nNext t<\/span><\/p>\nDo-Loop-lus<\/h3>\n
Do-While-lus<\/h3>\n
\n\u00a0 <opdracht><\/span>
\nLoop<\/span><\/p>\n
\ns = 0<\/span><\/p>\n
\n\u00a0 s = s + t<\/span>
\n\u00a0 t = t + 1<\/span>
\nLoop<\/span><\/p>\nDo-Loop-Until-lus<\/h3>\n
\n\u00a0 <opdracht><\/span>
\nLoop Until <voorwaarde><\/span><\/p>\n
\ns = 0<\/span><\/p>\n
\n\u00a0 s = s + t<\/span>
\n\u00a0 t = t + 1<\/span>
\nLoop Until t > 10<\/span><\/p>\nIf-opdracht<\/h3>\n
\n\u00a0 <opdracht><\/span>
\nElse<\/span>
\n\u00a0 <opdracht><\/span>
\nEnd If<\/span><\/p>\n
\n\u00a0 <opdracht><\/span>
\nElseIf <voorwaarde2> Then<\/span>
\n\u00a0 <opdracht><\/span>
\nElse<\/span>
\n\u00a0 <opdracht><\/span>
\nEnd If<\/span><\/p>\n
\n\u00a0 If Schrikkel Then<\/span>
\n\u00a0\u00a0\u00a0 ad = 29<\/span>
\n\u00a0 Else<\/span>
\n\u00a0\u00a0\u00a0 ad = 28<\/span>
\n\u00a0 End If<\/span>
\nElseIf (maand = 4) Or (maand = 6) Or (maand = 9) Or (maand = 11) Then<\/span>
\n\u00a0 ad = 30<\/span>
\nElse<\/span>
\n\u00a0 ad = 31<\/span>
\nEnd If<\/span><\/p>\nSelect-opdracht<\/h3>\n
\n\u00a0 Case <waarde1><\/span>
\n\u00a0\u00a0\u00a0 <opdracht><\/span>
\n\u00a0 Case <waarde2>, <waarde3>, <waarde4><\/span>
\n\u00a0\u00a0\u00a0 <opdracht><\/span>
\n\u00a0 Case <waarde5> To <waarde6><\/span>
\n\u00a0\u00a0\u00a0 <opdracht><\/span>
\n\u00a0 Case Else<\/span>
\n\u00a0\u00a0\u00a0 <opdracht><\/span>
\nEnd Select<\/span><\/p>\n
\n\u00a0 Case 2<\/span>
\n\u00a0\u00a0\u00a0 If Schrikkel Then<\/span>
\n\u00a0\u00a0\u00a0\u00a0\u00a0 ad = 29<\/span>
\n\u00a0\u00a0\u00a0 Else<\/span>
\n\u00a0\u00a0\u00a0\u00a0\u00a0 ad = 28<\/span>
\n\u00a0 Case 4, 6, 9, 11<\/span>
\n\u00a0\u00a0\u00a0 ad = 30<\/span>
\n\u00a0 Case Else<\/span>
\n\u00a0\u00a0\u00a0 ad = 31<\/span>
\nEnd Select<\/span><\/p>\n