Wat is VBA TextBox in Excel?
VBA TextBox is een van de vele besturingselementen van UserForm-besturingselementen in Excel. VBA TextBox kan van pas komen als u invoer wilt van de gebruiker, zoals hun naam, leeftijd, adres, salaris, enz. Met behulp van TextBox-controle kunt u gebruikers toestaan om dit soort informatie in te voeren en veel van uw tijd en typefouten te besparen . VBA TextBox kan bestaan uit statische of dynamische gegevens.
UserForm zelf is een zeer nuttige tool met verschillende besturingsopties zoals TextBox, MsgBox en InputBox, enz. Die een meer praktische manier bieden om gegevens van de gebruiker te krijgen, zodat u die gegevens functioneel kunt verwerken en er enkele nuttige inzichten uit kunt vinden .
In dit artikel krijgt u praktijkervaring op Excel VBA TextBox.
Voorbeelden van Excel VBA TextBox
Hieronder staan de verschillende voorbeelden van VBA TextBox in Excel.
U kunt deze VBA TextBox Excel-sjabloon hier downloaden - VBA TextBox Excel-sjabloonVoorbeeld # 1 - Hoe TextBox in te voegen in VBA?
Hieronder zijn de stappen om TextBox in Excel VBA in te voegen.
Stap 1: Open een Excel-bestand en druk op Alt + F11 om naar het VBA-paneel te navigeren.
Stap 2: Zoals we al hebben besproken, is TextBox een optie die beschikbaar is in UserForm. Dus moeten we UserForm in VBE invoegen. Ga naar Menu invoegen > Klik op UserForm .
Stap 3: Zodra u een UserForm in VBA invoegt, ziet u een Toolbox-optie die eraan is gekoppeld en verschillende opties die aan UserForm zijn gekoppeld.
Stap 4: Selecteer TextBox in deze toolbox.
Stap 5: Sleep deze TextBox naar het gebruikersformulier.
Stap 6: Druk op F4 om de eigenschappen van UserForm te zien (u kunt dit ook doen door met de rechtermuisknop op UserForm te klikken). Met deze eigenschappen kunt u enkele noodzakelijke wijzigingen aanbrengen, zoals het wijzigen van de naam van UserForm om er gemakkelijk toegang toe te hebben.
Enkele andere basiswijzigingen die u kunt doen met het eigenschappenvenster van UserForm zijn zoals het wijzigen van het lettertype, het wijzigen van de grootte, enz.
Stap 7: Voer de tekst in als " Welkom bij VBA TextBox! ”In TextBox onder UserForm.
Dit is hoe je een VBA TextBox kunt maken.
Voorbeeld # 2 - Waarde instellen op VBA TextBox
Laten we eens kijken hoe we de waarden voor TextBox kunnen instellen. Soms is het verplicht om de waarden anders in te stellen, de gebruiker zal alles van zijn of haar interesse invoeren.
Stap 1: Voeg een nieuw UserForm in VBE in. Ga naar menu Invoegen > klik op UserForm.
Stap 2: Selecteer vanuit UserForm Tools TextBox en sleep deze naar UserForm.
Stap 3: Voeg een CommandButton in onder UserForm op dezelfde manier waarop u TextBox hebt toegevoegd.
Stap 4: Wijzig het bijschrift van de opdrachtknop in ' Verzenden ' onder eigenschappen. U kunt naar de eigenschappen van de opdrachtknop navigeren door met de rechtermuisknop op Opdrachtknop> Klik op Eigenschappen te klikken.
Stap 5: Dubbelklik op de verzendknop of klik er met de rechtermuisknop op en selecteer Code bekijken .
Stap 6: voeg in de code een regel nieuwe code in de subprocedure in zoals hieronder.
Code:
Private Sub CommandButton1_Click () TextBox1.Value = "Mijn naam is Lalit!" Einde Sub
Met deze gemarkeerde code kunt u de waarde rechts tussen dubbele aanhalingstekens toewijzen aan de TextBox. U kunt ook de eigenschap TextBox.Text gebruiken in plaats van TextBox.Values om de waarde voor TextBox in te stellen.
Stap 7: Druk op F5 of op de knop Run onder VBE om deze code uit te voeren. U ziet een UserForm met lege TextBox. Zodra u op de verzendknop drukt, verschijnt de tekst die aan TextBox is toegewezen.
Voorbeeld # 3 - Beperk TextBox-invoer om alleen numerieke waarden te accepteren
Volg de onderstaande stappen:
Stap 1: Voeg een nieuwe UserForm in uw VBA in en voeg daarin TextBox toe.
Stap 2: Wijzig de naam van TextBox onder het gedeelte Eigenschappen in " My_Age ".
Stap 3: Dubbelklik op TextBox of klik erop met de rechtermuisknop en selecteer Code bekijken .
U kunt de eerste subprocedure zien zoals hieronder:
Code:
Private Sub My_Age_Change () End Sub
Stap 4: Probeer nu een If-voorwaarde toe te voegen die begint met If Not.
Code:
Private Sub My_Age_Change () If Not End Sub
Stap 5: Vraag de compiler om te controleren of de waarde van TextBox "My_Age" numeriek is of geen IsNumeric Keyword gebruikt voor de voorwaarde If Not.
Code:
Private Sub My_Age_Change () If Not IsNumeric (My_Age.Value) End Sub
Stap 6: Voeg voor elke IF-voorwaarde een trefwoord toe.
Code:
Private Sub My_Age_Change () If Not IsNumeric (My_Age.Value) End Sub
In dit stuk code vraagt u de compiler om te controleren of de door de gebruiker ingevoerde waarde onder TextBox al dan niet numeriek is. Als het niet numeriek is, wat moet u dan doen? Volg de volgende stap.
Stap 7: Voeg met het gebruik van MsgBox een opmerking toe zoals “Sorry! Alleen nummers zijn toegestaan. ”Wordt weergegeven als de waarde in TextBox niet numeriek is.
Code:
Private Sub My_Age_Change () If Not IsNumeric (My_Age.Value) Dan MsgBox "Sorry! Alleen nummers zijn toegestaan." Einde Sub
Stap 8: Sluit nu deze IF-instructie met het trefwoord End IF.
Code:
Private Sub My_Age_Change () If Not IsNumeric (My_Age.Value) Dan MsgBox "Sorry! Alleen nummers zijn toegestaan." End If End Sub
Stap 9: Voer deze code nu uit door op de F5-knop op uw toetsenbord of op de knop Run van VBE te drukken en de uitvoer te bekijken. U krijgt een TextBox zoals hieronder weergegeven:
Nu probeer ik er een Integer-waarde in te voeren en te kijken of ik hiermee daadwerkelijk hetzelfde kan invoeren of niet.
Bingo, hiermee kan ik de gehele waarde opslaan.
Laten we nu proberen wat float (waarde met decimale punten) aan dit tekstvak toe te voegen en te kijken of we hiermee hetzelfde kunnen invoeren.
Laten we eens kijken of we met dit tekstvak enkele negatieve waarden kunnen opslaan of niet. Ik typ een negatief getal en controleer het.
Goed! Goed!! Nou !!!, er wordt een bericht naar me gestuurd dat alleen getallen zijn toegestaan. Het gebeurde omdat deze code die aanvankelijk is geschreven de voorwaarde ALS heeft, er is geen oplossing voor wat te doen als het nummer niet positief is. Bovendien kan leeftijd niet negatief zijn. Rechtsaf? Daarom krijg ik een waarschuwingsbericht zoals je hierboven kunt zien. Als u echter op OK in het berichtvenster klikt en het nummer probeert in te voeren, kunt u dit doen. Maar ik zal niet aanbevelen om daar de regels te overtreden.
Laten we ten slotte een tekststring in het vak proberen en kijken of deze kan worden opgeslagen onder tekstvak of niet.
Zoals terecht werd verwacht, verhinderde het systeem me zodra ik de eerste stringletter invoerde dit te doen door een bericht te sturen. Dit komt omdat we in onze code een voorwaarde hebben genoemd die zegt dat als de waarde niet numeriek is, een bericht naar de gebruiker moet sturen dat alleen numerieke waarden zijn toegestaan.
Dingen om te onthouden
- VBA TextBox is een speciale optie onder UserForm. Die is ontworpen om input van de gebruiker zelf te nemen.
- Er zijn twee methoden om de waarden voor een TextBox in te stellen: met behulp van TextBox.Text en met behulp van TextBox.Value.
- Soms is het verplicht om de gebruikersinvoer te beperken, zodat we het juiste type gegevens krijgen.
Aanbevolen artikelen
Dit is een handleiding voor VBA TextBox. Hier bespreken we hoe u TextBox in Excel VBA kunt maken, samen met praktische voorbeelden en een downloadbare Excel-sjabloon. U kunt ook onze andere voorgestelde artikelen doornemen -
- Hoe VBA IsNumeric Function te gebruiken?
- Combo Box maken in Excel
- Plaats CheckBox in Excel
- VBA UCASE-functie in Excel
- Hoe UserForm in VBA te sluiten?