Denne artikkelen vil demonstrere hvordan du bruker en tekstboks i Excel VBA.
VBA har muligheten til å lage skjemaer som brukeren kan samhandle med, for eksempel fakturaskjemaer eller kontaktinformasjon. Tekstbokser er kontroller som kan brukes i disse skjemaene, eller tekstbokser kan opprettes direkte i Excel selv.
Opprette tekstbokser på VBA -skjemaer
For å sette inn en tekstboks i et VBA -skjema, må vi først lage skjemaet. Dette gjøres i VBE Editor.
Først åpner du VBE Editor i Excel.
For å sette inn et nytt brukerskjema i koden, velg UserForm alternativet fra Sett inn -menyen.
Et nytt brukerskjema vil vises i Project Explorer og vises i kodevinduet til høyre.
Du kan gi nytt navn til skjemaet ved hjelp av Egenskaper eske. Dette skal vises under din Project Explorer.
Hvis det er så synlig, trykker du på F4 eller klikk Utsikt, Egenskaper -vinduet.
Klikk i Navn eiendom og gi nytt navn til skjemaet.
Vi kan nå begynne å fylle ut skjemaet vårt med kontroller - tekstbokskontrollen er den mest populære kontrollen sammen med etikettkontrollen.
For å fylle ut skjemaet med kontroller, må vi slå på verktøykassen.
I Meny, plukke ut Vis> Verktøykasse.
Hvis du vil opprette en tekstboks på skjemaet, velger du tekstbokskontrollen i verktøykassen.
Dra en boksform på skjemaet med musen, hold venstre knapp nede, og slipp deretter museknappen.
Siden dette er den første tekstboksen vi lager, vil den få navnet TextBox1. Som med skjemaet, kan du bruke vinduet Egenskaper til å gi nytt navn til tekstboksen.
Du må kanskje også lage en etikett for tekstboksen på skjemaet. Dette gjøres med en etikettkontroll. Du drar på skjemaet på samme måte som du gjør for en tekstboks, og deretter kan du skrive inn nødvendig tekst i etikettkontrollen, for eksempel: Fornavn som vist nedenfor.
For å bruke skjemaet i VBA -koden, må vi legge til en kommandoknapp i skjemaet. Dette gjøres ved å velge kommandoknappkontrollen i verktøykassen og dra knappen til skjemaet.
Du kan deretter fortsette å lage skjemaet ved hjelp av tekstbokser, etiketter og kommandoknapper, og gi dem et nytt navn.
Skrive kode bak skjemaer
Når vi har opprettet skjemaet vårt, må vi skrive VBA -kode for å sette inn informasjonen i skjemaet vårt i Excel -regnearket. Denne koden kalles CBF (Kode bak skjemaer).
I VBE dobbeltklikker du på kommandoknappen for å gå til koden bak knappen.
En underrutine for klikkhendelsen for knappen vil bli opprettet. Vi kan skrive inn vår VBA -kode i denne rutinen. For eksempel:
| 123456 | Privat sub cmdOK_Click ()Område ("A1") = Me.txtFirstNameOmråde ("A2") = Me.txtSurnameOmråde ("A3") = Me.txtCellPhoneLast ut megSlutt Sub |
Denne rutinen legger detaljene som er skrevet i tekstboksene i Excel, og lukker deretter skjemaet.
Opprette tekstbokser i et Excel -regneark
Det er også mulig å lage tekstbokser i Excel -regnearket. For å gjøre dette må du ha utviklerbåndet slått på.
Merk: Hvis du ikke ser utviklerbåndet, må du aktivere det.
Velg båndet i båndet Utvikler> Sett inn> ActiveX -kontroller> TextBox.
Klikk og dra i Excel -regnearket for å tegne tekstboksen i regnearket til ønsket posisjon. Slipp museknappen for å fullføre tegningen av tekstboksen.
Tekstboksen vil være i designmodus. I denne modusen kan vi størrelse boksen og velge egenskapene til tekstboksen.
Klikk på Egenskaper -knappen for å vise egenskapsvinduet for tekstboksen. I dette vinduet kan vi endre en rekke egenskaper for tekstboksen, for eksempel navnet på boksen, fargen på teksten, bakgrunnen eller grensen, kantstilen og skriften som brukes for teksten i tekstboksen, for eksempel.
For å bruke tekstboksen direkte i Excel slik vi har brukt den i VBA -skjemaet ovenfor, trenger vi en måte å returnere dataene som er skrevet inn i tekstboksen til Excel -arket. Dette kan gjøres ved å legge til en ActiveX -kommandoknapp i regnearket og bruke click_event for denne kommandoknappen for å returnere informasjonen i tekstboksen til Excel -arket.
Velg båndet i båndet Utvikler> Sett inn> ActiveX -kontroller> Kommandoknapp for å legge til en kommandoknapp i Excel -arket. Slå på Egenskaper -vinduet og endre navnet på knappen, bildeteksten på knappen og akseleratoren til knappen som vist på bildet nedenfor.
Dobbeltklikk på knappen for å gå til VBA-klikkhendelsen på knappen og skriv inn følgende kode:
| 123 | Privat sub cmdOK_Click ()Område ("A1") = Me.txtFirstNameSlutt Sub |
Bytt tilbake til Excel -regnearket, kontroller at Design Mode er slått av og skriv deretter inn den opprettede tekstboksen.
Klikk på kommandoknappen for å returnere teksten til Excel.
