Met Excel kunt u Visual Basic gebruiken om een reeks verschillende functies aan uw spreadsheets toe te voegen, waaronder 'UserForms'. Via UserForms kunt u een invoerformulier aan de gebruiker tonen dat los staat van het hoofdwerkblad, wat handig is voor het vastleggen van gegevens van personen die mogelijk niet bekend zijn met spreadsheets. Met een beetje Visual Basic-code kunt u al deze gegevens in nieuwe rijen aan uw spreadsheet toevoegen.
Definieer uw velden
Start Excel. Voer de namen in van alle velden die u wilt vastleggen op de bovenste rij, beginnend bij "A1" en naar rechts werkend. Klik op 'Ontwikkelaar' en klik vervolgens op 'Visual Basic'. Het Visual Basic-venster verschijnt. Klik op het "A"-pictogram in de Toolbox en klik en sleep in het venster "UserForm1" op de locatie waar u uw eerste formulierveld wilt hebben. Bewerk het label door de eigenschap "Bijschrift" te wijzigen in iets meer beschrijvends, zoals "Voornaam", bijvoorbeeld. Maak een label voor elk van de velden die u op uw werkblad hebt ingevoerd.
Voeg uw tekstvakken toe
Selecteer het pictogram "TextBox" in de Toolbox en sleep een tekstvak net rechts van uw eerste label. Als u slechts een paar velden gebruikt, is het acceptabel om de eigenschap "(Naam)" als de standaard "TextBox1" te laten. Als u echter een groot aantal velden nodig heeft, kan dit verwarrend zijn, dus u moet deze aanpassen zodat ze overeenkomen met de labels die u al hebt gemaakt. Zorg ervoor dat elk label een bijbehorend tekstvak heeft.
Voeg een verzendknop toe
Klik op het pictogram "Command Button" in de Toolbox, dat eruitziet als een standaard Windows-achtige knop. Klik en sleep het naar de gewenste grootte en locatie in UserForm1. Meestal wilt u dit onder of in de buurt van het laatste tekstvak in uw formulier. Wijzig de eigenschap "Bijschrift" van de knop in "Gegevens verzenden" of iets dergelijks, om de gebruiker aan te geven dat hij op deze knop moet klikken om zijn gegevens in te dienen.
Visual Basic-code toevoegen
Dubbelklik op de knop. Voer de volgende code in tussen "Private Sub" en "End Sub":
eRow=Blad1.Cellen(Rijen.Count,1).End(xlUp).Offset(1,0).Rij
Begin dan een nieuwe regel onder deze en voer dan het volgende in:
Cellen (erow, 1) = TextBox1.Text
Als u uw tekstvakken een andere naam hebt gegeven, wijzigt u "TextBox1" in de naam die u aan het eerste tekstvak hebt gegeven. Doe dit voor elk invoervak dat u hebt gemaakt, begin een nieuwe regel en voer zo nodig de juiste tekstvaknamen in. Verhoog ook voor elke nieuwe regel het cijfer tussen haakjes met één. De volgende regel kan er bijvoorbeeld als volgt uitzien:
Cellen (erow, 2) = TextBox2.Text
Klik op de knop "Afspelen" bovenaan het venster om het vastleggen van gegevens te starten.
