Microsoft Excel evner er sterkt forbedret gjennom bruk av Visual Basic script , som lar deg skreddersy Excel standardinnstillinger verktøy til prosjektets spesifikke behov . Ved hjelp av tilpassede bruker former , med kontroller for å motta brukerundersøkelser, gir deg full kontroll over bruker- inngang Excel-data . Skrive inn følgende programmet vil vise deg hvordan du bruker flere Visual Basic controls.Start prosjektet ved å åpne Excel og inn i Visual Basic IDE (integrert utviklingsmiljø ) . Skriv inn IDE med alt - F11 . Plasser Controls

I IDE designer vindu ( Vis > Object) , dra og slipp kontroller fra verktøykassen på en brukers skjema som følger : en

Plasser en Frame kontroll på skjemaet . I Egenskaper-vinduet , endre bildetekst til " Sivil status . " Med rammen kontroll fortsatt er valgt , drar to alternativknapper inne i rammen kontroll. Dra to etiketter i rammen , hver til venstre for et alternativ knappen . Gi etikettene bildetekstene " Gift " og "Single ".

Dra en liste under rammen og alternativknapper . Dra en etikett , som skal automatisk bli navngitt Label3 , under listen . Skriv inn " Svar på sikkerhetsspørsmål , " for bildetekst sin . Til høyre for Label3 dra en tekstboks. Under tekstboksen drar en knapp og gi den bildeteksten " Send". Til slutt , drar en etikett , som skal hete Label4 , til høyre for rammen kontroll. Gjøre sin bildetekst blank .

Handlingene du nettopp har tatt opprettet et typisk skjema som samler inn data fra en prospektiv ny kunde. Du vil nå bruke Visual Basic til å overføre kundens data fra kontrollene på et Excel-regneark .
Opprette Kode for Form

Dobbeltklikk skjemaet for å angi kode vinduet, og velg disse elementene fra de to rullegardinmenyene nær toppen av koden vinduet: UserForm , og Initialiser . IDE vil skape en tom Initialiser sub. Inne at sub, skrive inn denne koden , som fyller listen når programmet starter : en

ListBox1.List = Array ( "Hva er du favoritt film ", " ? I hvilken by ble du født ", " Hva er lyden av én hånd klapping ? ")
p Som du gjorde for brukeren skjemaets Initialiser underrutinen opprette tomme subrutiner for valgknappene ' Klikk hendelser , ved hjelp av koden vinduets rullegardinmenyene . I Klikk hendelsene i både optionButton1 og 2 , skriv inn følgende kode : " ekteskapelig ". Det er navnet på en funksjon du skal skrive nå : en

I en tom del av koden vinduet , skape den ekteskapelige funksjon:

Private Sub ekteskapelig () ' Hvilken knapp ble valgt If? OptionButton1.Value = sant ThenLabel4.Caption = " gift " ElseLabel4.Caption = "single " End If

End Sub
Transfer skjemadata til regnearket

Opprett blank subrutine for kommandoknappen Klikk-hendelsen ved hjelp av koden vinduets drop- down bokser , og skriv dette i den subrutinen : en

Range (" a1 ") = Label4.CaptionRange ( " b1 ") = ListBox1.ValueRange ( " c1 ") = TextBox1.Value

Denne koden overfører skjemadata til regnearket .

Tast inn den siste bit av koden , en ny subrutine som viser skjemaet : en

Public Sub showForm ( ) UserForm1.Show

End Sub

Tilbake til Excel (Alt - F11 ) og kjøre makroen ( Developer > Makroer , showForm ) . Skriv inn data i skjemaet , trykker du knappen , og se på regnearket motta skjemaets verdier.