In het eerste voorbeeld wordt een formulier gemaakt waarmee u het aflossingsbedrag van een lening kunt berekenen. Het formulier ziet er als volgt uit. Onderaan deze pagina vindt u enkele mogelijke uitbreidingen op deze oefening.
1. Start Excel en ga naar de VBA editor. Voeg een UserForm in met het menu Invoegen.
2. Teken de besturingselementen op het formulier. Zie het voorbeeld hierboven. U hebt 3 bijschriften (label) nodig voor de woordjes 'kapitaal:', 'rente:' en 'looptijd:'. Daarnaast hebt u ook 3 tekstvakken nodig (voor de gegevens 100, 0,05 en 10) en een opdrachtknop om de berekening uit te voeren.
3. Stel de eigenschappen in van de besturingsobjecten. Geef aan alle objecten een naam (behalve eventueel de bijschriften). In het voorbeeld zijn de volgende namen gekozen: frmAfbetaling, txtKap, txtRente, txtLooptijd en btnBereken. De eerste naam is voor het formulier zelf en is bijvoorbeeld zichtbaar in de Projectverkenner. Stel ook de Caption in voor de bijschriften, de opdrachtknop en het formulier zelf. Eventueel kunt u ook de eigenschappen instellen voor de breedte, hoogte en positie van de besturingselementen. Gebruik hiervoor de eigenschappen Width, Height, Left en Top.
4. Schrijf de VBA-code voor de klik-gebeurtenis van de opdrachtknop. Dubbelklik hiervoor op de knop. Controleer in het Object en Procedure vak dat u de opdrachtknop en de click-event hebt geselecteerd. Schrijf de volgende code:
MsgBox Application.WorksheetFunction.Pmt(Me.txtRente, Me.txtLooptijd, Me.txtKap)
5. Schrijf de VBA-code om het formulier te tonen. Voeg hiervoor een module toe aan het project en schrijf de volgende procedure.
Sub toonFormulier()
frmAfbetaling.Show
End Sub
6. Test het formulier uit en controleer het resultaat. U kunt een mogelijke oplossing bekijken in dit Excel werkboek.
Enkele mogelijke uitbreidingen aan dit voorbeeld zijn:
- Plaats een groepsvak met twee keuzerondjes. Laat de gebruikers namelijk kiezen of zij de lening willen afbetalen aan het begin of aan het einde van een periode (bijvoorbeeld het jaar). Consulteer hiervoor de PMT-functie; dit kan namelijk ingesteld worden via een bijkomende parameter.
- Plaats het resultaat op het formulier in een bijschrift in plaats van te tonen via een MsgBox.
- Plaats een bijkomende opdrachtknop zodat het formulier kan gesloten worden. De knop 'bereken' zou ook de eventueel reeds aanwezige gegevens (vroeger ingevuld kapitaal, ...) moeten wissen.