VBA TextBox - Eksempler på oprettelse af tekstboks i Excel VBA (Excel-skabelon)

Indholdsfortegnelse:

Anonim

Hvad er VBA TextBox i Excel?

VBA TextBox er en af ​​de mange kontroller fra UserForm-kontroller i Excel. VBA TextBox kan være praktisk, når du vil have input fra bruger som deres navn, alder, adresse, løn osv. Ved hjælp af TextBox-kontrol kan du give brugerne mulighed for at indtaste denne form for information og spare mange af din tid samt skrivefejl . VBA TextBox kan bestå af statiske eller dynamiske data.

UserForm i sig selv er et meget nyttigt værktøj, der har forskellige kontrolindstillinger som TextBox, MsgBox og InputBox osv., Som giver en mere praktisk måde at hente data fra brugeren på, så du funktionelt kan behandle disse data og finde ud af nogle nyttige indsigter ud af dem .

I denne artikel får du praktisk oplevelse med Excel VBA TextBox.

Eksempler på Excel VBA TextBox

Nedenfor er de forskellige eksempler på VBA TextBox i Excel.

Du kan downloade denne VBA TextBox Excel-skabelon her - VBA TextBox Excel-skabelon

Eksempel # 1 - Sådan indsættes TextBox i VBA?

Nedenfor er trinnene til at indsætte TextBox i Excel VBA.

Trin 1: Åbn en Excel-fil, og tryk på Alt + F11 for at navigere til VBA-ruden.

Trin 2: Som vi allerede har diskuteret, er TextBox en mulighed, der er tilgængelig i UserForm. Så vi er nødt til at indsætte UserForm i VBE. Gå til Indsæt menu > Klik på UserForm .

Trin 3: Så snart du indsætter en UserForm i VBA, kan du se en Toolbox-indstilling, der er knyttet til den, og have forskellige indstillinger, der er forbundet med UserForm.

Trin 4: I denne værktøjskasse skal du vælge TextBox .

Trin 5: Træk denne TextBox til brugerformularen.

Trin 6: Hit F4 for at se egenskaberne for UserForm (alternativt kan du gøre dette ved at højreklikke på UserForm indsat). Disse egenskaber giver dig mulighed for at foretage nogle nødvendige ændringer som at ændre navnet på UserForm for nemt at få adgang til det.

Nogle andre grundlæggende ændringer, du kan gøre med egenskabsruden i UserForm, er som at ændre skrifttypen, ændre størrelsen osv.

Trin 7: Indtast teksten som “ Velkommen til VBA TextBox! ”I TextBox under UserForm.

Dette er, hvordan du kan oprette en VBA TextBox.

Eksempel 2 - Indstilling af værdi til VBA TextBox

Lad os se, hvordan vi kan indstille værdierne for TextBox. Det er undertiden obligatorisk at indstille værdierne ellers, brugeren indtaster noget af deres interesse.

Trin 1: Indsæt en ny UserForm i VBE. Gå til menuen Indsæt > klik på UserForm.

Trin 2: Fra UserForm Tools skal du vælge TextBox og trække den til UserForm.

Trin 3: Indsæt en CommandButton under UserForm på samme måde som du tilføjede TextBox.

Trin 4: Skift billedtekst på kommandoknappen til “ Send ” under egenskaber. Du kan navigere til egenskaberne for kommandoknappen ved at højreklikke på kommandoknappen> Klik på Egenskaber .

Trin 5: Dobbeltklik på knappen Send eller Højreklik på den og vælg Vis kode .

Trin 6: I koden indsættes en linje med ny kode i underproceduren som nedenfor.

Kode:

 Privat underkommandoButton1_Click () TextBox1.Value = "Mit navn er Lalit!" Afslut under

Denne fremhævede kode giver dig mulighed for at tildele værdien til højre lukket i dobbelt citater til TextBox. Du kan også bruge TextBox.Text egenskab i stedet for TextBox.Values ​​til at indstille værdien for TextBox.

Trin 7: Tryk på F5 eller Run-knappen under VBE for at køre denne kode, du vil se en UserForm med tom TextBox. Så snart du trykker på knappen Send, vises teksten tildelt til TextBox der i den.

Eksempel # 3 - Begræns TextBox-input til kun at acceptere numeriske værdier

Følg nedenstående trin:

Trin 1: Indsæt en ny UserForm i din VBA og tilføj TextBox i den.

Trin 2: Skift navnet på TextBox under afsnittet Egenskaber til “ My_Age ”.

Trin 3: Dobbeltklik på TextBox, eller højreklik på det, og vælg Vis kode .

Du kan se den indledende delprocedure som nedenfor:

Kode:

 Privat sub My_Age_Change () Slutt sub

Trin 4: Prøv nu at tilføje en Hvis betingelsen, der starter med Hvis ikke.

Kode:

 Privat sub My_Age_Change () Hvis ikke slutter Sub

Trin 5: Bed kompilatoren om at kontrollere, om værdien af ​​TextBox “My_Age” er numerisk eller ikke bruger IsNumeric nøgleord foran tilstanden Hvis ikke.

Kode:

 Privat sub My_Age_Change () If Not IsNumeric (My_Age.Value) End Sub

Trin 6: Som enhver IF-betingelse beder om, tilføj et derefter søgeord til det.

Kode:

 Privat sub My_Age_Change () Hvis ikke IsNumeric (My_Age.Value) Afslut derefter Sub

I dette kodestykke beder du kompilatoren om at kontrollere, om den værdi, der er indtastet af brugeren under TextBox, er numerisk eller ikke. Hvis det ikke er numerisk, hvad skal man så gøre? Følg næste trin.

Trin 7: Med brug af MsgBox, tilføj en kommentar som "Beklager! Kun numre er tilladt. ”Vises, hvis værdien i TextBox ikke er numerisk.

Kode:

 Privat sub My_Age_Change () Hvis ikke IsNumeric (My_Age.Value) Derefter MsgBox "Beklager! Kun numre er tilladt." Afslut under

Trin 8: Luk nu denne IF-sætning ved hjælp af nøgleordet End IF.

Kode:

 Privat sub My_Age_Change () Hvis ikke IsNumeric (My_Age.Value) Derefter MsgBox "Beklager! Kun numre er tilladt." Slutt Hvis slut Sub

Trin 9: Kør nu denne kode ved at trykke på F5-knappen fra dit tastatur eller Kør-knappen fra VBE og se output. Du får en TextBox som vist nedenfor:

Nu prøver jeg at indtaste en heltalværdi i den og se, om den faktisk giver mig mulighed for at indtaste det samme eller ikke.

Bingo, det giver mig mulighed for at gemme heltalværdien.

Lad os forsøge at tilføje nogle float (værdi med decimale punkter) til dette tekstfelt og se, om det giver os mulighed for at indtaste det samme.

Lad os kontrollere, om dette tekstfelt giver os mulighed for at gemme nogle negative værdier under det eller ej. Jeg skriver noget negativt antal og tjekker.

Godt! Godt!! Nå !!!, den skyder en meddelelse til mig, der siger, at kun tal er tilladt. Det skete, fordi denne kode oprindeligt er skrevet med IF-tilstand, den har ikke nogen løsning, hvad man skal gøre, hvis antallet er ikke-positivt. Derudover kan alder ikke være negativ. Ret? Derfor får jeg en advarsel, som du kan se ovenfor. Hvis du imidlertid klikker på OK i meddelelsesfeltet og prøver at indtaste nummeret, giver det dig mulighed for det. Men jeg vil ikke anbefale at bryde reglerne derovre.

Endelig, lad os prøve en tekststreng i boksen og se, om den tillader, at den samme gemmes under tekstboksen eller ej.

Som det med rette forventedes, forhindrede systemet mig, så snart jeg indtastede det første strengbrev, ved at smide en besked. Dette skyldes, at vi har nævnt en betingelse i vores kode, der siger, at hvis værdien ikke er numerisk, skal du kaste en meddelelse mod brugeren, hvor kun numeriske værdier er tilladt.

Ting at huske

  • VBA TextBox er en speciel mulighed under UserForm. Hvilket er designet til at komme med input fra brugeren selv.
  • Der er to metoder til at indstille værdierne for en TextBox: ved hjælp af TextBox.Text og ved hjælp af TextBox.Value.
  • Nogle gange er det obligatorisk at begrænse brugerinput, så vi får den rigtige type data.

Anbefalede artikler

Dette er en guide til VBA TextBox. Her diskuterer vi, hvordan man opretter TextBox i Excel VBA sammen med praktiske eksempler og downloadbar excel-skabelon. Du kan også gennemgå vores andre foreslåede artikler -

  1. Hvordan bruges VBA IsNumeric funktion?
  2. Oprettelse af kombinationsboks i Excel
  3. Indsæt CheckBox i Excel
  4. VBA UCASE-funktion i Excel
  5. Sådan lukkes UserForm i VBA?