Het maken van formuliervelden automatisch te berekenen in uw Visual Basic for Applications ( VBA ) programma kan extra stappen voor de gebruiker te elimineren . VBA kan worden gebruikt in alle Microsoft Office-toepassingen , zoals Excel . U kunt formuliervelden maken met behulp tekstvakbesturingselementen op een gebruikers formulier in Excel en ze automatisch te berekenen met behulp van de " Verandering " evenement voor elk van de controles . De " Change " event zal uitgevoerd worden wanneer de waarde in de velden worden gewijzigd door de gebruiker . Wat je nodig hebt Microsoft Office Excel Toon Meer Aanwijzingen 1 Lancering Microsoft Office Excel , klikt u op het tabblad " Developer " en klik op " Visual Basic " voor de lancering VB Editor venster . Klik op het menu "Invoegen " en klik op "User Form " om een nieuw formulier te voegen . Klik op " TextBox " in het venster " Toolbox " en klik op uw formulier om een nieuw tekstvak toe te voegen . Voeg nog twee tekstvakken met behulp van dezelfde techniek om drie tekstvak formuliervelden maken . Kopen van 2 Rechtsklik op het eerste tekstvak en klik op " View Code " om de VB -editor te openen . Druk op " Ctrl " en " A " om standaardcode selecteren en druk Kopieer en plak de volgende code om een berekening elke keer een nieuw nummer wordt in het eerste veld formulier ingevuld te maken en het resultaat in het derde formulierveld " Verwijderen. " : Dim resultaat Zoals DoublePrivate Sub TextBox1_Change ( ) Dim txtBoxTwo Zoals VariantMe.TextBox2.SetFocustxtBoxTwo = Me.TextBox2.Textresult = txtBoxTwo + Me.TextBox1.TextMe.TextBox3.SetFocusMe.TextBox3 = resultEnd Sub < br > Kopieer 3 en plak de volgende code uit te voeren deze code en maak een berekening en elke keer als het tweede veld formulier wordt veranderd het resultaat weer in het derde formulierveld : Private Sub TextBox2_Change ( ) op Twitter Dim txtBoxOne Zoals VariantMe.TextBox1.SetFocustxtBoxOne = Me.TextBox1.Textresult = txtBoxOne + Me.TextBox2.TextMe.TextBox3.SetFocusMe.TextBox3 = resultEnd Sub Dubbelklik op " UserForm1 " 4 van het object Explorer -venster en druk op " F5 " om het programma uit te voeren . Voer een nummer in de eerste en tweede formuliervelden om automatisch te berekenen en het resultaat in het derde veld formulier .
|