Göra formulärfält beräknar automatiskt i Visual Basic for Applications ( VBA ) program kan eliminera extra steg för användaren . VBA kan användas i alla Microsoft Office-program , till exempel Excel . Du kan skapa formulärfält genom att använda textrutekontroller på en användares formulär i Excel och gör dem beräknar automatiskt med hjälp av " Change " händelse för var och en av kontrollerna . Den " Change " händelse kommer att köras när värdet i fälten ändras av användaren . Saker du behöver
Microsoft Office Excel
Visa fler instruktioner
1
Launch Microsoft Office Excel , klicka på " Utvecklare " fliken och klicka på " Visual Basic " för att starta VB Editor . Klicka på " Infoga " -menyn och klicka på "User Form " för att infoga en ny form . Klicka " TextBox " i " verktygslådan " fönstret och klicka på formuläret för att lägga till en ny kontroll textruta . Lägg två textrutor som använder samma teknik för att skapa tre textfält lådformen .
2
Högerklicka på den första textrutan och klicka på " Visa kod " för att öppna VB editor . Tryck på " Ctrl " och " A " för att välja standard -koden och trycker på Kopiera och klistra in följande kod för att göra en beräkning varje gång ett nytt nummer tas upp i den första formen fält och visa resultatet i den tredje formen fältet " Ta bort". :
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
Billiga 3
Kopiera och klistra in följande kod exekvera denna kod och göra en beräkning och visa resultatet i den tredje formen fältet varje gång den andra formen fältet ändras :
Private Sub TextBox2_Change ( ) Dim txtBoxOne Som VariantMe.TextBox1.SetFocustxtBoxOne = Me.TextBox1.Textresult = txtBoxOne + Me.TextBox2.TextMe.TextBox3.SetFocusMe.TextBox3 = resultEnd Sub
4
Dubbelklicka på " UserForm1 " från Object Explorer-fönster och tryck på " F5 " för att köra programmet . Mata in ett nummer i den första och andra formulärfält för att automatiskt beräkna och visa resultatet i den tredje formen fältet .
