Excel UserForms Tutorial

Microsoft Excel je skriptovací jazyk , Visual Basic , nielen zvyšuje funkčnosť programu Excel , ale tiež môže robiť , že funkčnosť jednoduchšie použitie - pomocou užívateľských formulárov . Užívateľ formuláre sú malé okná , ktoré môžu užívatelia zadávať dáta listu pomocou . Vytvorte formulár

Začnite vytvorením formulára užívateľa zadaním Visual Basic IDE ( integrované vývojové prostredie ) : z hárku programu Excel , stlačte tlačidlo "alt " - " F11 " . Vytvorte nový užívateľský formulár prístupom na " Vložiť " > " UserForm " klipart

Presuňte nasledujúce ovládacie prvky z panela nástrojov do formulára : . Dve textové polia , pod prvý druhý . Pridanie príkazového tlačidla pod textových polí , a dva ovládacie prvky štítok , každý vľavo od textového poľa . V okne Vlastnosti zmeňte titulok horného štítku na " Name " a titulok spodného štítku na "E - mailovú adresu . " Zmena tlačidla titulok na " Odoslať " .
Zadajte kód

písať kód , ktorý získava dáta z formulára a vloží ho do listu .

Z okna formulára návrhára , dvakrát kliknite na tlačidlo " Odoslať " . Kurzor sa presunie na udalosti Button1_Click , ktorý vypaľuje pri kliknutí na tlačidlo počas behu programu

V prípade Button1_Click , zadajte nasledujúci kód programu : .

Dim r Vzhľadom k dosahu

Set r = Range ( " a65536 " ) . End ( xlUp )

Set r = r.Offset ( 1 , 0 )

r.Value = TextBox1.Value

Set r = r.Offset ( 0 , 1 ) r.Value = TextBox2.Value - ----------------------------- -----------

Napíšte malé podprogram , ktorý sa zobrazí nový formulár užívateľa . Vnútri IDE , dvakrát kliknite na ikonu ThisWorkbook v table Project . V okne kódu , zadajte tento nový podprogram :

Public Sub Mac1 ( ) UserForm1.Show

End Sub

spustiť program z pracovného hárka programu Excel bude Developer > makrá , výber " Mac1 , " a stlačení tlačidla " Spustiť " . Zadajte niektoré dáta v liste s formulármi užívateľ .
Preskúmajte program

Prvý riadok button1_Click deklaruje premennú rozsahu . Rozsah je sada bunkách listu . .. Budete zadávať údaje v tomto rozsahu s kódom po Dim

údajov Set r = Range ( " a65536 " ) End ( xlUp ) definuje rozsah jednej bunky : vľavo buniek z predchádzajúci riadok dát . To nie je intuitívne vyzerajúci kus kódu , takže sa nemusíte báť , ak nechcete pochopiť na prvý pohľad . Rozdeľte príkaz vidieť , ako to funguje . Range ( " a65536 " ) časť jasne určuje bunky a65536 - ako v dolnej časti prvého stĺpca v liste . Ďalší kus , End ( xlUp ) , je ďalší rozsah : to je miesto , kde sa kurzor skončí , ak ste mali to spočiatku na mobilné a65536 , stlačíte tlačidlo Koniec , a potom stlačil šípku hore

Ak ste boli . zadávanie dát v tejto bunke , mali by ste prepísať predchádzajúci riadok . To je dôvod , prečo potrebujete ďalší príkaz : Set r = r.Offset ( 1 , 0 ) . Toto vyhlásenie novo definuje rozsah bude o jeden riadok dole ( a nulové stĺpce vpravo ) z , kde to bolo . Rozsah "r " je teraz v prvej prázdnej bunky pod akýchkoľvek existujúcich riadkov dát . To je miesto , kde váš kód môže začať zadávať nový riadok údajov .
Plniace mobilné dáta z formulára vstupu

Ďalšie príkazy presunúť dáta formulára do rozsahu kódu len označené ako prvej prázdnej bunky pod predchádzajúci riadok dát . r.Value = TextBox1.Value nastaví hodnotu prázdne bunky s hodnotou z prvého textového poľa . Ďalšie bunka je jeden stĺpec doprava a Set r = r.Offset ( 0 , 1 ) novo definuje rozsah sa , že bunky . Argumenty 0 a 1 sa vzťahujú na 0 riadkov dole a 1 bunka vpravo ( "r " ) namiesto predchádzajúceho rozsah je .

Vyplnenie dva stĺpce dokončí riadok údajov . Keď používateľ klikne na tlačidlo , bude udalosť Button1_Click spustiť znova . Set r = Range ( " a65536 " ) . End ( xlUp ) bude opäť správne nastaviť rozsah novej riadku .

• Predchádzajúca strana: Tipy Programovanie Excel 
• Ďalšia strana: Excel Programovanie Tutorial