Denne artikel vil demonstrere, hvordan du bruger en tekstboks i Excel VBA.
VBA har mulighed for at oprette formularer, som brugeren kan interagere med, f.eks. Fakturaformularer eller kontaktoplysninger. Tekstbokse er kontrolelementer, der kan bruges inden for disse formularer, eller tekstbokse kan oprettes direkte i Excel selv.
Oprettelse af tekstbokse på VBA -formularer
For at indsætte en tekstboks i en VBA -formular skal vi først oprette formularen. Dette gøres i VBE Editor.
Åbn først VBE Editor i Excel.
Hvis du vil indsætte en ny brugerformular i din kode, skal du vælge UserForm fra menuen Indsæt.
En ny brugerformular vises i Projekt Explorer og vil blive vist i kodevinduet til højre.
Du kan omdøbe din formular ved hjælp af Ejendomme boks. Dette skal vises under din Projekt Explorer.
Hvis det er så synligt, skal du trykke på F4 eller klik Udsigt, Egenskaber vindue.
Klik i Navn ejendom og omdøb din formular.
Vi kan nu begynde at udfylde vores formular med kontroller - tekstbokskontrollen er den mest populære kontrol sammen med etiketkontrollen.
For at udfylde formularen med kontroller skal vi tænde Værktøjskassen.
I Menu, Vælg Vis> Værktøjskasse.
Hvis du vil oprette en tekstboks på din formular, skal du vælge kontrolboksen Tekstboks i værktøjskassen.
Træk en boksform på formularen med musen, hold venstre knap nede, og slip derefter museknappen.
Da dette er den første tekstboks, vi opretter, får den navnet TextBox1. Som med formularen kan du bruge vinduet Egenskaber til at omdøbe tekstfeltet.
Du skal muligvis også oprette en etiket til din tekstboks på formularen. Dette gøres med en etiketkontrol. Du trækker formularen på samme måde, som du gør for en tekstboks, og derefter kan du indtaste den nødvendige tekst inden for etiketkontrollen f.eks .: Fornavn som vist herunder.
For at bruge formularen inden for VBA -kode skal vi tilføje en kommandoknap til formularen. Dette gøres ved at vælge kommandoknappen i værktøjskassen og trække knappen ind på din formular.
Du kan derefter fortsætte med at oprette din formular ved hjælp af tekstbokse, etiketter og kommandoknapper og omdøbe dem efter behov.
Skrivning af kode bag formularer
Når vi har oprettet vores formular, skal vi skrive VBA -kode for at indsætte oplysningerne i vores formular på vores Excel -regneark. Denne kode kaldes CBF (Kode bag formularer).
I VBE skal du dobbeltklikke på kommandoknappen for at gå til koden bag knappen.
Der oprettes en underrutine for klikhændelsen for knappen. Vi kan skrive vores VBA -kode i denne rutine. For eksempel:
| 123456 | Privat under cmdOK_Click ()Område ("A1") = Me.txtFirstNameOmråde ("A2") = Me.txtSurnameOmråde ("A3") = Me.txtCellPhoneAflad migAfslut Sub |
Denne rutine sætter detaljerne, der er skrevet i tekstfelterne i Excel, og lukker derefter formularen.
Oprettelse af tekstbokse i et Excel -regneark
Det er også muligt at oprette tekstbokse i Excel -regnearket. For at gøre dette skal du have dit udviklerbånd tændt.
Bemærk: Hvis du ikke kan se udviklerbåndet, skal du aktivere det.
Vælg på båndet Udvikler> Indsæt> ActiveX -kontrolelementer> TextBox.
Klik og træk i dit Excel -regneark for at tegne tekstboksen i regnearket på den ønskede position. Slip museknappen for at fuldføre tegningen af tekstboksen.
Tekstfeltet er i designtilstand. I denne tilstand kan vi størrelse boksen og vælge egenskaberne i tekstboksen.
Klik på Ejendomme knappen for at vise egenskabsvinduet for tekstfeltet. I dette vindue kan vi ændre en række egenskaber i tekstfeltet, f.eks. Navn på boksen, tekstens farve, baggrund eller kant, kantstilen og skrifttypen, der f.eks. Bruges til teksten i tekstboksen.
For at bruge tekstfeltet direkte i Excel, som vi har brugt det i VBA -formularen ovenfor, har vi brug for en måde at returnere de indtastede data til tekstfeltet til Excel -arket. Dette kan gøres ved at tilføje en ActiveX -kommandoknap til regnearket og bruge click_event for denne kommandoknap til at returnere oplysningerne i tekstfeltet til Excel -arket.
Vælg på båndet Udvikler> Indsæt> ActiveX -kontrolelementer> Kommandoknap for at tilføje en kommandoknap til dit Excel -ark. Tænd for vinduet Egenskaber, og skift navnet på knappen, billedteksten på knappen og Acceleratoren på knappen som vist på billedet herunder.
Dobbeltklik på knappen for at gå til VBA-klikhændelsen på knappen og indtast følgende kode:
| 123 | Privat under cmdOK_Click ()Område ("A1") = Me.txtFirstNameAfslut Sub |
Skift tilbage til Excel -regnearket, sørg for, at Designtilstand er slukket, og indtast derefter det oprettede tekstfelt.
Klik på kommandoknappen for at returnere teksten til Excel.
