Microsoft Excels evner er stærkt forbedret gennem brug af Visual Basic script , som lader dig skræddersy Excels standard værktøjer til at dit projekts specifikke behov. Brug brugerdefinerede brugergrupper former, med kontrol for at modtage bruger-input, giver dig fuld kontrol over brugeradfærd - input Excel-data . Indtaste følgende program vil vise dig hvordan du bruger flere Visual Basic controls.Start projektet ved at åbne Excel og indtaste Visual Basic IDE ( integreret udviklingsmiljø ) . Indtast IDE med alt - F11 . Placer Controls
IDE designer vindue ( Vis> Object) , træk og slip kontrollen fra værktøjskassen på en brugers formular som følger : Hej
Placer en Frame kontrol til formularen . I vinduet Egenskaber , ændre dens billedtekst til " Civilstand ". Med rammen kontrol stadig er markeret , skal du trække to alternativknapper inde i rammen kontrol. Træk to etiketter i rammen , hver til venstre for en alternativknap . Giv etiketterne billedteksterne " Gift " og " Single ".
Træk en liste under rammen og dens alternativknapper . Træk en etiket , som automatisk bør hedde Label3 under listen. Enter " Svar på sikkerhedsspørgsmål , " for sin billedtekst. Til højre for Label3 trække en tekstboks. Under tekstboksen trække en knap og give det overskriften " Send". Endelig trække en etiket , der skal navngives Label4 , til højre for rammen kontrol . Gøre sin billedtekst blank.
Handlinger, du lige har taget skabt en typisk form, der indsamler data fra en potentiel ny kunde. Du vil nu bruge Visual Basic til at overføre kundens data fra kontrollen på et Excel-regneark .
Oprettelse Kode for Form
Dobbeltklik på formularen til at indtaste kode vinduet, og vælge disse elementer fra de to drop- down bokse nær toppen af koden vinduet : UserForm og Initialiser . IDE-enheden vil skabe en blank initialiserer sub. Indeni, sub , skal du indtaste denne kode, der udfylder listen , når programmet starter : Hej
ListBox1.List = Array ( "Hvad er der dig yndlingsfilm ", " ? I hvilken by er du født ", " Hvad er lyden af én hånd der klapper ? ")
Som du gjorde for brugeren formularen Initialiser subrutine , blanke subrutiner for valgknapper 'klik hændelser skaber , med koden vinduets drop- down bokse. I Klik begivenheder både optionButton1 og 2 , skal du indtaste følgende kode: " ægteskabelige ". Det er navnet på en funktion, du vil skrive nu : Hej
en tom sektion af koden vinduet , skal du oprette den ægteskabelige funktion:
Private Sub ægteskabelige () 'Hvilken knap blev valgt Hvis ? OptionButton1.Value = Sand ThenLabel4.Caption = " gift " ElseLabel4.Caption = " single" End If
End Sub
Transfer formulardata til regnearket < br >
Opret den tomme subrutine for kommandoen knappens Click hændelse ved hjælp af koden vinduets drop- down bokse og angive dette på denne subrutine : Hej
Range (" A1" ) = Label4.CaptionRange ( " b1 " ) = ListBox1.ValueRange ( "C1 " ) = TextBox1.Value
Denne kode overfører formulardata til regnearket .
Indtast det sidste stykke kode , en ny subrutine der viser din formular : Hej
Public Sub showForm () UserForm1.Show
End Sub
Retur til Excel ( Alt- F11) og køre din makro ( Developer > Makroer , showForm ) . Indtast data i formularen , skal du trykke på dens knap , og se regnearket modtager formularens værdier.