Microsoft Excels scriptsprog , Visual Basic, ikke kun øger funktionaliteten af Excel, men også kan gøre denne funktionalitet nemmere at bruge - gennem brugerbetaling former. Bruger former er små vinduer , som brugerne kan indtaste regnearksdata igennem. Opret formular
Begynde at oprette en bruger ved at indtaste Visual Basic IDE ( integreret udviklingsmiljø ) : fra Excel-regneark , "alt" trykke - " F11 " . Opret en ny bruger form ved at få adgang til "Indsæt" > " UserForm "
Træk og slip følgende betjeningsmuligheder fra værktøjskassen til formularen : . To tekstbokse , den anden under det første . Tilføj en kommando knappen under tekstboksene , og to label kontrol , hver til venstre for en tekstboks. I vinduet Egenskaber ændre billedteksten af den øverste etiketten "Navn ", og billedteksten af den lavere etiketten "E-mail -adresse. " Ændre knappens billedtekst til "Send ".
Indtast koden
skrive koden , der trækker data fra formularen og indsætter det i et regneark.
Fra formular designer vinduet , skal du dobbeltklikke på " send" knappen. . Markøren flytter til Button1_Click begivenhed, som udløses, når der klikkes på knappen under programmet runtime
I Button1_Click begivenheden , skal du indtaste følgende program kode : Hej
Dim r Som Range
< p> Set r = Range (" a65536 "). End ( xlUp )
Set r = r.Offset (1, 0)
r.Value = TextBox1.Value
< p> Set r = r.Offset (0, 1 ) r.Value = TextBox2.Value - ----------------------------- -----------
Skriv en lille subrutine , der viser den nye bruger formularen. Inde i IDE, skal du dobbeltklikke på ThisWorkbook ikonet i Project rude. I kodevinduet , indtaste denne nye subrutine : Hej
Public Sub MAC1 () UserForm1.Show
End Sub
Kør programmet fra Excel-regneark ved at gå til udvikleren> makroer , vælge " MAC1 " og trykke på knappen "Kør" . Indtast nogle regnearksdata med dit bruger formularen.
Opdag Program
Den første linje i Button1_Click erklærer en række variable . En række er et sæt af regnearksceller . Du indtaster data i dette område med koden efter sætningen Dim
Opgørelsen Set r = Range (" a65536 " ) End ( xlUp ) defineres en række én celle : . . Cellen længst til venstre af forrige række af data . Dette er ikke et intuitivt udseende stykke kode , så fortvivl ikke , hvis du ikke forstår det ved første øjekast. Bryde op erklæringen for at se, hvordan det virker. Den Range (" a65536 " ) portion tydeligt angiver cellen a65536 - vej nederst i den første kolonne i regnearket. Det næste stykke, End ( xlUp ) , er en anden rækkevidde : det er , hvor din markør ville ende , hvis du havde det i første omgang på celle a65536 , trykkede på afslutningstasten , og derefter presses pil op
p Hvis du var. at indtaste data på den celle , ville du overskrive den forrige række. Det er derfor, du har brug for den næste sætning: Set r = r.Offset (1, 0) . Denne erklæring omdefinerer området til at være en række ned (og nul kolonner til højre ), hvorfra det var. Intervallet "r" er nu i den første tomme celle under eksisterende rækker af data. Det er, hvor din kode kan begynde at indtaste et nyt data række.
Påfyldning Cell data fra formular Input
De næste udsagn flytte formulardata til den række din kode lige identificeret som den første tomme celler under den forrige data rækken . r.Value = TextBox1.Value sætter tomme celle værdi med værdien fra den første tekstboks. Den næste celle er en kolonne til højre , og Set r = r.Offset (0, 1 ) omdefinerer området at være, at celle. Argumenterne 0 og 1 refererer til 0 rækker ned og 1 celle til højre for det tidligere interval s ( "r" ) placering.
Påfyldning af to kolonner fuldfører en data række. Når brugeren klikker på knappen, vil Button1_Click begivenheden udføre igen. Set r = Range (" a65536 "). End ( xlUp ) vil igen korrekt indstillet for den nye række.