VBA-tekstvak

Dit artikel laat zien hoe u een tekstvak in Excel VBA gebruikt.

VBA heeft de mogelijkheid om formulieren te maken waarmee de gebruiker kan communiceren, zoals factuurformulieren of contactgegevens. Tekstvakken zijn besturingselementen die binnen deze formulieren kunnen worden gebruikt, of tekstvakken kunnen rechtstreeks in Excel zelf worden gemaakt.

Tekstvakken maken op VBA-formulieren

Om een ​​tekstvak in een VBA-formulier in te voegen, moeten we eerst het formulier maken. Dit gebeurt in de VBE-editor.

Open eerst de VBE-editor in Excel.

Om een ​​nieuw gebruikersformulier in uw code in te voegen, selecteert u de Gebruikersformulier optie in het menu Invoegen.

Er verschijnt een nieuw gebruikersformulier in de Projectverkenner en wordt weergegeven in het codevenster aan de rechterkant.

U kunt uw formulier hernoemen met de Eigendommen doos. Dit zou onder je . moeten verschijnen Projectverkenner.

Als het zo zichtbaar is, drukt u op F4 of klik op Weergave, Eigenschappenvenster.

Klik in de Naam eigenschap en hernoem uw formulier.

We kunnen nu beginnen met het vullen van ons formulier met besturingselementen - het tekstvakbesturingselement is het meest populaire besturingselement samen met het labelbesturingselement.

Om het formulier met besturingselementen te vullen, moeten we de Toolbox inschakelen.

In de Menu, selecteer Bekijk > Gereedschapskist.

Als u een tekstvak op uw formulier wilt maken, selecteert u het besturingselement Tekstvak in de werkset.

Sleep een doosvorm op het formulier met uw muis, houd de linkerknop ingedrukt en laat de muisknop los.

Aangezien dit het eerste tekstvak is dat we maken, krijgt het de naam TextBox1. Net als bij het formulier kunt u het venster Eigenschappen gebruiken om de naam van het tekstvak te wijzigen.

Mogelijk moet u ook een label voor uw tekstvak op het formulier maken. Dit gebeurt met een labelcontrole. U sleept het formulier op dezelfde manier als voor een tekstvak, en dan kunt u de gewenste tekst in het labelbesturingselement typen, bijvoorbeeld: Voornaam zoals hieronder weergegeven.

Om het formulier in VBA-code te gebruiken, moeten we een opdrachtknop aan het formulier toevoegen. Dit doet u door het besturingselement Command Button in de Toolbox te selecteren en de knop naar uw formulier te slepen.

U kunt dan doorgaan met het maken van uw formulier met behulp van tekstvakken, labels en opdrachtknoppen, en ze desgewenst hernoemen.

Code achter formulieren schrijven

Nadat we ons formulier hebben gemaakt, moeten we VBA-code schrijven om de informatie in ons formulier in ons Excel-werkblad in te voegen. Deze code heet CBF (Code achter formulieren).

Dubbelklik in de VBE op de opdrachtknop om naar de code achter de knop te gaan.

Er wordt een subroutine gemaakt voor de klikgebeurtenis voor de knop. We kunnen onze VBA-code in deze routine typen. Bijvoorbeeld:

123456 Privé sub cmdOK_Click()Bereik ("A1") = Me.txtFirstNameBereik ("A2") = Mij.txtAchternaamBereik ("A3") = Me.txtCellPhoneMij ​​uitladenEinde sub

Deze routine plaatst de details die in de tekstvakken zijn getypt in Excel en sluit vervolgens het formulier.

Tekstvakken maken in een Excel-werkblad

Het is ook mogelijk om binnen het Excel-spreadsheet tekstvakken te maken. Om dit te doen, moet u uw ontwikkelaarslint hebben ingeschakeld.

Opmerking: als u het ontwikkelaarslint niet ziet, moet u dit inschakelen.

Selecteer in het lint Ontwikkelaar > Invoegen > ActiveX-besturingselementen > TextBox.

Klik en sleep in uw Excel-werkblad om het tekstvak in het werkblad op de gewenste positie te tekenen. Laat de muisknop los om het tekenen van het tekstvak te voltooien.

Het tekstvak bevindt zich in de ontwerpmodus. In deze modus kunnen we de grootte van het vak aanpassen en de eigenschappen van het tekstvak selecteren.

Klik op de Eigendommen om het eigenschappenvenster voor het tekstvak weer te geven. In dit venster kunnen we verschillende eigenschappen van het tekstvak wijzigen, zoals de naam van het vak, de kleur van de tekst, achtergrond of rand, de randstijl en het lettertype dat wordt gebruikt voor de tekst in het tekstvak bijvoorbeeld.

Om het tekstvak rechtstreeks in Excel te gebruiken zoals we het in het bovenstaande VBA-formulier hebben gebruikt, hebben we een manier nodig om de gegevens die in het tekstvak zijn getypt, terug te sturen naar het Excel-blad. Dit kan worden gedaan door een ActiveX-opdrachtknop aan het werkblad toe te voegen en de click_event van deze opdrachtknop te gebruiken om de informatie in het tekstvak terug te brengen naar het Excel-blad.

Selecteer in het lint Ontwikkelaar > Invoegen > ActiveX-besturingselementen > Opdrachtknop om een ​​opdrachtknop aan uw Excel-blad toe te voegen. Schakel het venster Eigenschappen in en wijzig de naam van de knop, het bijschrift van de knop en de Accelerator van de knop zoals weergegeven in de onderstaande afbeelding.

Dubbelklik op de knop om naar de VBA-klikgebeurtenis van de knop te gaan en typ de volgende code:

123 Privé sub cmdOK_Click()Bereik ("A1") = Me.txtFirstNameEinde sub

Schakel terug naar het Excel-werkblad, zorg ervoor dat de ontwerpmodus is uitgeschakeld en typ vervolgens in het gemaakte tekstvak.

Klik op de opdrachtknop om de tekst terug te sturen naar Excel.

wave wave wave wave wave