Making feltene beregne automatisk i Visual Basic for Applications ( VBA ) program kan eliminere ekstra trinn for brukeren . VBA kan brukes i alle Microsoft Office- programmer, for eksempel Excel. Du kan opprette skjemafelt ved å bruke tekstbokskontrollene på en brukers skjema i Excel og gjøre dem beregne automatisk ved å bruke " Endre " hendelse for hver av kontrollene . "Endre" arrangementet vil utføre når verdien i feltene endres av brukeren . Du trenger
Microsoft Office Excel
Vis flere instruksjoner
en

Launch Microsoft Office Excel , klikk på " Developer " og klikk " Visual Basic " for å starte VB Editor vinduet. Klikk på " Insert "-menyen og klikk på " User Form" for å sette inn et nytt skjema . Klikk på " TextBox " i " Toolbox" vindu og klikker på skjemaet for å legge en ny tekstboks kontroll. Legg to tekstbokser som bruker samme teknikk for å lage tre tekstboksen skjemafelt.
2

Høyreklikk den første tekstboksen , og klikk " Vis kode " for å åpne VB editor. Trykk "Ctrl " og " A" for å velge standard kode og trykker Kopier og lim inn følgende kode for å lage et regnestykke hver gang et nytt nummer er lagt inn i det første skjemafeltet og vise resultatet i tredje skjemafelt " Delete". :

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


3

Kopier og lim inn følgende kode utføre denne koden og gjøre en beregning og vise resultatet i tredje skjemafelt hver gang den andre skjemafeltet endres : en

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

Dobbeltklikk på " UserForm1 " fra Object Explorer -vinduet og trykk " F5 " for å kjøre programmet . Input et tall i første og andre skjemafelt automatisk beregne og vise resultatet i tredje skjemafelt.