Ako vytvoriť formulárov pomocou programu Excel

Vytvorenie formulára v programe Excel , s využitím ovládacích prvkov zoskupené v rámčeku , ktorý bude produkovať jednoduché textové pole , kde môže používateľ zadať svoje údaje . Vytvorte tri príkazové tlačidlá na formulári , ktorý bude mať vplyv na informácie vo forme , keď používateľ vykonáva ľavým tlačidlom myši s ňou myšou . Je to jednoduché vytvoriť formulár , ktorý bude Zoznam zamestnancov alebo manažérov , a kontrolovať ich stav . Pokyny dovolená 1

Otvorte zošit v programe Excel . Ak viete , ktorý zošit chcete , aby vaša forma patrí , potom teraz je čas ho otvoriť . Použite menu Súbor pre prístup k zošitu .
2

Kliknite na menu " Nástroje " , vyberte " makro " a kliknite na " Visual Basic Editor . "
3

Kliknite na " Vložiť " a potom vyberte " UserForm . "
4

Presuňte príkazového tlačidla do formulára . Je potrebné aspoň tri z nich pre tento príklad .
5

Dajte mená na vaše príkazové tlačidlá a popisky . Kliknite na tlačidlo " View " a " Okno vlastností . " Kliknite na jeden z príkazových tlačidiel , ktoré ste umiestnili na formulár .
6

Meno na príkazové tlačidlo , ktorý bude čítať " OK " kliknutím na názov nastavenia v okne Vlastnosti a písanie " cmdOK " . Kliknite na " Titulok " nastavenie v okne Vlastnosti a zadajte " OK " .
7

Kliknite na inom príkazové tlačidlo . Meno tento " cmdCancel , " a nastavte titulok čítať " Storno " v okne Vlastnosti .
8

Kliknite na tlačidlo tretie príkazovej , pomenujte ju " cmdClearForm " a zmeňte nastavenie titulku čítať " Vymazať formulár " .
9

Hit " F7 " funkčný kláves na klávesnici , aby sa okno kód .
10

Kliknite na rozbaľovacie zoznamy na v hornej časti okna kódu . " . Inicializácia " Kliknite na horný ľavý zoznamu otvorte čiastkové proces s názvom "User Form " a kliknite na druhej rozbaľovacieho zoznamu vyberte
11

Zmazať podprocedura uvedená vyššie , ktorá znie : UserForm_Click ( ) . Postup
12

Zadajte nasledujúci kód do okna kódu ( nie prepíšte na modrý text , stačí pridať čierny text ) : Private Sub UserForm_Initialize ( ) txtName.Value = " " txtPhone . Value = " " S cboDepartment.AddItem " zamestnancov " . AddItem " Manažéri " End With

YourCourse.Value = " " optIntroduction = TruechkWork = FalsechkVacation = FalsetxtName.SetFocusEnd Sub
13

Zadajte kód na tlačidlo Zrušiť . Dvakrát kliknite na tlačidlo Zrušiť otvorte okno kód . Zadajte kód tak , aby sa okno kód číta : Private Sub cmdCancel_Click ( ) uvoľniť MeEnd Sub
14

Otvorte okno kód pre tlačidlo Vymazať formuláre . Nezabudnite double - kliknite na tlačidlo " Vymazať formulár "
15

Zadajte kód do okna kódu tak , že znie : . Private Sub cmdClearForm_Click ( ) volanie UserForm_InitializeEnd Návrat
16

Double - kliknite na tlačidlo " OK " pridajte nasledujúci kód v okne kódu : .

Private Sub cmdOK_Click ( ) ActiveWorkbook.Sheets ( " YourWork " ) ActivateRange ( " A1 " ) SelectDoIf IsEmpty ( . ActiveCell ) = FalseThenActiveCell.Offset ( 1 , 0 ) . SelectEnd IfLoop Do IsEmpty ( ActiveCell ) = TrueActiveCell.Value = txtName.ValueActiveCell.Offset ( 0 , 1 ) = txtPhone.ValueActiveCell.Offset ( 0 , 2 ) = cboDepartment.ValueActiveCell . offset ( 0 , 3 ) = cboCourse.ValueIf optIntroduction = TRUE ThenActiveCell.Offset ( 0 , 4 ) . Value = " Intro " ElseIf optIntermediate = TRUE ThenActiveCell.Offset ( 0 , 4 ) . Value = " Intermed " ElseActiveCell.Offset ( 0 , 4 ) . Value = " Expert " End nNejsou Ak chkLunch = TRUE ThenActiveCell.Offset ( 0 , 5 ) . Value = " Áno " ElseActiveCell.Offset ( 0 , 5 ) . Value = " Nie " End nNejsou Ak chkWork = TRUE ThenActiveCell.Offset ( 0 , 6 ) . Value = " Áno " ElseIf chkVacation = False ThenActiveCell.Offset ( 0 , 6 ) . Value = " " ElseActiveCell.Offset ( 0 , 6 ) . Value = " Nie " End IfEnd IfRange ( " A1 " ) . SelectEnd Sub

• Predchádzajúca strana: Ako pridať päty na Excel dokument Microsoft 
• Ďalšia strana: Ako napísať Obnoviť makrá pre Excel