Den här artikeln visar hur du använder en textruta i Excel VBA.
VBA har förmågan att skapa formulär som användaren kan interagera med, till exempel fakturablanketter eller kontaktuppgifter. Textrutor är kontroller som kan användas inom dessa formulär, eller så kan textrutor skapas direkt i Excel själv.
Skapa textrutor på VBA -formulär
För att infoga en textruta i ett VBA -formulär måste vi först skapa formuläret. Detta görs i VBE Editor.
Öppna först VBE Editor i Excel.
Om du vill infoga ett nytt användarformulär i din kod väljer du UserForm från menyn Infoga.
Ett nytt användarformulär visas i Project Explorer och visas i kodfönstret till höger.
Du kan byta namn på formuläret med Egenskaper låda. Detta bör visas under din Project Explorer.
Om det är så synligt, tryck på F4 eller klicka Se, Egenskapsfönster.
Klicka i namn egendom och byt namn på formuläret.
Vi kan nu börja fylla i vårt formulär med kontroller - textrutans kontroll är den mest populära kontrollen tillsammans med etikettkontrollen.
För att fylla i formuläret med kontroller måste vi slå på verktygslådan.
I Meny, Välj Visa> Verktygslåda.
Om du vill skapa en textruta i formuläret väljer du textrutekontrollen i verktygslådan.
Dra en rutform på formuläret med musen, håll ned vänster knapp och släpp sedan musknappen.
Eftersom det här är den första textrutan vi skapar kommer den att heta TextBox1. Som med formuläret kan du använda fönstret Egenskaper för att byta namn på textrutan.
Du kan också behöva skapa en etikett för din textruta på formuläret. Detta görs med en etikettkontroll. Du drar på formuläret på samma sätt som du gör för en textruta, och sedan kan du skriva in önskad text inom etikettkontrollen, t.ex.: Förnamn enligt nedan.
För att använda formuläret i VBA -koden måste vi lägga till en kommandoknapp i formuläret. Detta görs genom att välja kommandoknappskontrollen i verktygslådan och dra knappen till ditt formulär.
Du kan sedan fortsätta skapa ditt formulär med hjälp av textboxar, etiketter och kommandoknappar och byta namn på dem vid behov.
Skriva kod bakom formulär
När vi har skapat vårt formulär måste vi skriva VBA -kod för att infoga informationen i vårt formulär i vårt Excel -kalkylblad. Denna kod kallas CBF (Kod bakom formulär).
I VBE dubbelklickar du på kommandoknappen för att gå till koden bakom knappen.
En underrutin för klickhändelsen för knappen skapas. Vi kan skriva in vår VBA -kod i denna rutin. Till exempel:
| 123456 | Privat under cmdOK_Click ()Område ("A1") = Me.txtFirstNameRange ("A2") = Me.txtSurnameOmråde ("A3") = Me.txtCellPhoneLadda ur migAvsluta Sub |
Denna rutin lägger in detaljerna som skrivs in i textrutorna i Excel och stänger sedan formuläret.
Skapa textrutor i ett Excel -kalkylblad
Det är också möjligt att skapa textrutor i Excel -kalkylbladet. För att göra detta måste du ha utvecklarbandet påslaget.
Obs! Om du inte ser utvecklarbandet måste du aktivera det.
Välj i menyfliksområdet Utvecklare> Infoga> ActiveX -kontroller> TextBox.
Klicka och dra i ditt Excel -kalkylblad för att rita textrutan i kalkylbladet vid önskad position. Släpp musknappen för att slutföra ritningen av textrutan.
Textrutan kommer att vara i designläge. I det här läget kan vi storleksanpassa rutan och välja egenskaper för textrutan.
Klicka på Egenskaper -knappen för att visa egenskapsfönstret för textrutan. I det här fönstret kan vi ändra en mängd olika egenskaper för textrutan, till exempel namn på rutan, textens färg, bakgrund eller kant, kantstilen och teckensnittet som används för texten i textrutan till exempel.
För att använda textrutan direkt i Excel som vi har använt den i VBA -formuläret ovan, behöver vi ett sätt att återställa data som skrivits in i textrutan till Excel -arket. Detta kan göras genom att lägga till en ActiveX -kommandoknapp i kalkylbladet och använda click_event för denna kommandoknapp för att återställa informationen i textrutan till Excel -arket.
Välj i menyfliksområdet Utvecklare> Infoga> ActiveX -kontroller> Kommandoknapp för att lägga till en kommandoknapp i ditt Excel -blad. Slå på fönstret Egenskaper och ändra namn på knappen, bildtexten på knappen och Accelerator för knappen som visas på bilden nedan.
Dubbelklicka på knappen för att gå till VBA-klickhändelsen på knappen och ange följande kod:
| 123 | Privat under cmdOK_Click ()Område ("A1") = Me.txtFirstNameAvsluta Sub |
Byt tillbaka till Excel -kalkylbladet, se till att designläget är avstängt och skriv sedan in den skapade textrutan.
Klicka på kommandoknappen för att återställa texten till Excel.
