Microsoft Excel förmågor kan förbättras avsevärt med hjälp av Visual Basic-skript , som låter dig skräddarsy Excels standard verktyg för ditt projekt specifika behov . Använda anpassade användarformulär , med kontroller ta emot användarens inmatningar , ger dig full kontroll över användaren mata in Excel-data . Mata in följande program kommer att visa dig hur man använder olika Visual Basic controls.Start projektet genom att öppna Excel och ange Visual Basic IDE ( integrerad utvecklingsmiljö ) . Ange IDE med alt - F11 . Placera Kontroller
IDE designer fönstret ( Visa> Objekt ) , dra och släpp kontroller från verktygslådan till en användares form enligt följande :
Placera en Frame kontroll på formen . I fönstret Egenskaper , ändra bildtext till " civilstånd. " Med ramen kontrollen fortfarande är markerad drar två alternativknappar inuti ramen kontroll . Dra två etiketter i ramen , var till vänster om en alternativknapp . Ge etiketterna bildtexterna " Gift " och " Single ".
Dra en listruta under ramen och dess alternativknappar . Dra en etikett , som automatiskt bör namnges LABEL3 , under listrutan . Ange " Svar på säkerhetsfråga , " för dess bildtext . Till höger om LABEL3 dra en textruta. Under textrutan drar en knapp och ge den bildtexten " Skicka". Slutligen drar en etikett , som ska heta Label4 , till höger om ramen kontroll . Gör sin bildtext tomt .
De åtgärder du just har tagit skapat en typisk formulär som samlar in data från en potentiell ny kund . Du ska nu använda Visual Basic för att överföra kundens uppgifter från kontrollerna på ett Excel-kalkylblad .
Skapa kod för formuläret
Dubbelklicka på formuläret för att ange code fönstret , och välj dessa poster från de två listrutorna nära toppen av koden fönstret : UserForm , och initiera . IDE skall skapa en tom initialize sub . Inuti denna sub , anger denna kod , som fyller listrutan när programmet startar :
ListBox1.List = Array ( "Vad är du favorit film " , " ? I vilken stad är du född " , " Vad är ljudet av en hand klappar ? " ) katalog
Som du gjorde för användaren formulärets Initiera subrutin , skapa tomma subrutiner för alternativknappar ' Klicka evenemang , med koden fönstrets nedrullningsbara rutorna . I Klicka händelserna både optionButton1 och 2 , skriv in följande kod : " äktenskapliga ". Det är namnet på en funktion som du ska skriva nu :
ett tomt avsnitt av koden fönstret , skapa den äktenskapliga funktion :
Private Sub äktenskaplig ( ) ' Vilken knapp valdes Om ? OptionButton1.Value = Sant ThenLabel4.Caption = " gift " ElseLabel4.Caption = " singel " End If
End Sub Addera ditt Transfer formulärdata till kalkylbladet
Skapa den tomma subrutin för kommandot knappens Click-händelse med koden fönstrets nedrullningsbara rutorna , och ange detta i den subrutinen :
Range ( " A1 " ) = Label4.CaptionRange ( " B1 " ) = ListBox1.ValueRange ( " C1 " ) = TextBox1.Value
Denna kod överför formulärdata till kalkylbladet .
Ange den sista biten av koden , en ny subrutin som visar ditt formulär :
Public Sub showForm ( ) UserForm1.Show
End Sub
Återgå till Excel ( Alt - F11 ) och köra makrot ( Developer > Makron , showForm ) . Mata in data i ett formulär, tryck på dess knapp , och titta på kalkylbladet få blanketten värderingar .
