Hvordan lage skjemafelt Beregn Bruke VBA

Making skjemafelt 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 hjelp av tekstbokskontrollene på en brukers skjema i Excel og gjøre dem beregne automatisk ved hjelp av "Change" hendelse for hver av kontrollene. Den "Change" hendelsen vil utføre når verdien i feltene endres av brukeren.

Bruksanvisning

1 Start Microsoft Office Excel, klikk på "Utvikler" og klikk "Visual Basic" for å starte VB Editor vinduet. Klikk på "Insert" -menyen og klikk på "User Form" for å sette inn en ny form. Klikk "TextBox" i "Toolbox" vindu og klikker på skjemaet for å legge til en ny tekstboks kontroll. Legg til to flere tekstbokser ved hjelp av samme teknikk for å skape tre tekstboksen skjemafelt.

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

Dim resultat As Double
Private Sub TextBox1_Change ()

Dim txtBoxTwo As Variant
Me.TextBox2.SetFocus
txtBoxTwo = Me.TextBox2.Text
result = txtBoxTwo + Me.TextBox1.Text
Me.TextBox3.SetFocus
Me.TextBox3 = result

End Sub

3 Kopier og lim inn følgende kode kjøre denne koden og gjøre en beregning og viser resultatet i tredje skjemafeltet hver gang den andre formen feltet er endret:

Private Sub TextBox2_Change ()
Dim txtBoxOne As Variant

Me.TextBox1.SetFocus
txtBoxOne = Me.TextBox1.Text
result = txtBoxOne + Me.TextBox2.Text
Me.TextBox3.SetFocus
Me.TextBox3 = result

End Sub

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