Gør formularfelter beregner automatisk i din Visual Basic for Applications ( VBA ) program kan fjerne ekstra skridt for brugeren. VBA kan bruges i alle Microsoft Office- programmer, såsom Excel. Du kan oprette formularfelter ved hjælp af tekstbokse kontrolelementer på en brugers formular i Excel og gøre dem beregner automatisk ved hjælp af " Change" hændelse for hver af kontrollerne. Den " Change " begivenhed vil køre , når værdien i felterne ændres af brugeren. Ting du skal
Microsoft Office Excel
Vis Flere Instruktioner
1

Launch Microsoft Office Excel , skal du klikke på "Udvikler " fanen og klik på " Visual Basic " for at starte VB Editor vinduet. Klik på " Indsæt" menuen og klik på "User Form" for at indsætte en ny form . Klik på " TextBox " i " Toolbox" vinduet og klik din formular til at tilføje en ny tekstboks . Tilføj yderligere to tekstbokse bruger den samme teknik til at oprette tre tekstbokse formularfelter.
2

Højreklik på den første tekstboks , og klik på " View Code " for at åbne VB editor. Tryk på " Ctrl" og "A " for at vælge standard kode, og tryk Kopier og indsæt følgende kode til at lave en beregning , hver gang et nyt nummer er optaget i det første formularfelt og vise resultatet i tredje formularfelt " Slet". :

Dim resultat Som DoublePrivate Sub TextBox1_Change ( ) Dim txtBoxTwo Som VariantMe.TextBox2.SetFocustxtBoxTwo = Me.TextBox2.Textresult = txtBoxTwo + Me.TextBox1.TextMe.TextBox3.SetFocusMe.TextBox3 = resultEnd Sub
< br >
3

Kopier og indsæt følgende kode udføre denne kode og foretage en beregning og vise resultatet i tredje formularfelt , hver gang den anden form felt ændres : Hej

Private Sub TextBox2_Change () Dim txtBoxOne Da VariantMe.TextBox1.SetFocustxtBoxOne = Me.TextBox1.Textresult = txtBoxOne + Me.TextBox2.TextMe.TextBox3.SetFocusMe.TextBox3 = resultEnd Sub
4

Dobbeltklik på " UserForm1 " fra Object Explorer-vindue , og tryk på " F5 " for at køre programmet. Indtast et nummer i den første og anden formularfelter til automatisk at beregne og vise resultatet i tredje formularfelt.