Ako vytvoriť užívateľské formuláre v programe Excel 2003

Tvorba užívateľských formulárov v programe Excel 2003 umožňuje zadávanie dát hračkou . Formuláre , ktoré sú využívané na zhromažďovanie a overovanie informácií od užívateľa chrániť váš list od zbytočných zmien a delécie , ktoré používatelia môžu urobiť , ak má prístup k aktuálnym zoznamu dát na príslušnom liste . Každý formulár vytvoríte bude požadovať a zbierať rôzne informácie , ale akonáhle sa naučíte Visual Basic for Applications ( VBA ) kód pre jedného môžete vytvoriť a prispôsobiť akúkoľvek formu v programe Excel 2003 . Veci , ktoré budete potrebovať v Microsoft Office Excel 2003
Zobraziť ďalšie inštrukcie Cestuj 1

V menu " Nástroje " , prejdite na " makro " a potom kliknite na " Editor jazyka Visual Basic " alebo stlačte klávesu " ALT " + " F11 " otvorte Editor jazyka Visual Basic . Otvorte menu " Main " , vyberte " Vložiť " a kliknite na "User formulár " vytvoriť nový objekt UserForm .
2

Umiestnite ovládacie prvky TextBox a ovládací prvok Label pre každý stĺpec v liste na tvorí poklepaním na ovládací prvok alebo pretiahnutím z panela nástrojov do formulára . Vymeňte TextBox a štítok kombinácii s ovládací prvok ComboBox , ak chcete prezentovať užívateľovi zoznam možností vybrať si z pre polia skôr než do textového poľa .
3

Priraďte správny Názov poľa vlastnosti do textu a poliach zadaním príslušnej databázy názvy polí do riadka Názov nehnuteľnosti v zodpovedajúcom okne vlastností . Zmeniť titulok vlastnosti na zobrazovaný názov užívateľsky príjemný zároveň .
4

Double - kliknite na " CommandButton " kontrolný nástroj štyrikrát pridať Prvý , Predchádzajúci , Ďalšia a Posledný tlačidla do formulára . Zadajte svoje meno do riadku Titulok majetku v ich príslušných vlastností okien .
5

Presuňte ovládací prvok textového poľa do formulára v medzi Predchádzajúce a nasledujúce kontroly . Zadajte " rowNumber " vo svojej línii Názov objektu . Typ " 2 " na linke Text vlastníctva .
6

Klepnite alebo pretiahnite ďalšie tri ovládacie prvky CommandButton do formulára . Zadajte " Save " , " Zrušiť " a " Add" na ich zodpovedajúce riadky Meno vlastníctva . nastavte vlastnosť enabled na hodnotu False na Uložiť a Zrušiť príkazové tlačidlá , keď zadáte Vlastnosti meno .
7

usporiadať svoje kontroly a štítky , potom nastavte veľkosť formulára užívateľov s kliknutím a metódou drag kým si nie ste istí , že forma je ľahké a príjemné pre užívateľa .
8

Pridať žiadne ďalšie textové polia a nastaviť ich vlastnosti potrebné pre ďalšie funkcie a odvolanie . forma názvu krabice sa odporúča .
9

Sem tejto rutiny GetData do okna kódu VBA výmene svoje názvy stĺpcov ( Vlastnosti Názov poľa ) a dátové typy sa vzorkou ČísloZákazníka , CustomerName , mesto, štát , Zip a názvy stĺpcov DateAdded :

" Private Sub GetData ( )

Dim r As Long

Ak IsNumeric ( RowNumber.Text ) Potom

r = CLng ( RowNumber.Text )

Else

clearData

MsgBox " Nelegálne číslo riadku "

Exit Sub

End If

ak r> , 1 A r < = LastRow Potom

CustomerId.Text = FormatNumber ( Cells (r , 1 ) , 0 )

CustomerName.Text = Cells (r , 2 )

City.Text = Cells (r , 3 )

State.Text = Cells (r , 4 )

Zip.Text = Cells (r , 5 )

DateAdded.Text = FormatDateTime ( Cells (r , 6 ) , vbShortDate )

DisableSave

ElseIf r = 1 Potom

clearData

Else

clearData

MsgBox " Neplatné číslo riadku "

End If

End Sub "
10

Sem tejto rutiny clearData do VBA názvy stĺpcov kód okno Vymeňte svoje názvy stĺpcov ( Vlastnosti Názov poľa ) so vzorkou ČísloZákazníka , CustomerName , mesto, štát , Zip a DateAdded : .

" Private Sub clearData ( )

CustomerId.Text = " "

CustomerName.Text = " "

City.Text = " "

State.Text = " AK "

Zip.Text = " "

DateAdded.Text = " "

End Sub "
11

zadajte tento príkaz konštantný LastRow do okna kódu VBA :

" Const LastRow = 20 "
12

Opíšte DisableSave rutinu do okna kódu VBA :

" Private Sub DisableSave ( )

CommandButton5.Enabled = False

CommandButton6.Enabled = False

End Sub "
13

Sem túto rutinu s názvom RowNumber_Change do kódu okna VBA :

" Private Sub RowNumber_Change ( )

GetData

End Sub "
14

Nastavte príslušný príkaz na spoločenské akcie zadaním to do okna kódu VBA :

" RowNumber . Text = " 2 " "
15

Nastavte Tlačidlá Predchádzajúce a Ďalšie kódy zadaním to do okna kódu VBA :

" Private Sub CommandButton2_Click ( )

Dim r As Long

Ak IsNumeric ( RowNumber.Text ) Potom

r = CLng ( RowNumber.Text )

r = r? 1

je r > 1 a r < = LastRow Potom

RowNumber.Text = FormatNumber (r , 0 )

End If End

ak

End Sub "
16

Sem to LastRow konštantný variabilný kód do okna kódu VBA :

" Private Sub UserForm_Initialize ( )

GetData

End Sub "
17

Opíšte FindLastRow ( ) rutina do okna kódu VBA :

" Private Function FindLastRow ( )

Dim r As Long

r = 2

Do Kým r < 65536 A Ľan ( Cells (r , 1 ) . Textové ) > 0

r = r + 1

Loop

FindLastRow = r

End Function "
18

Sem týchto UserForm_Initialize udalosti do okna kódu VBA :

" LastRow = FindLastRow

Private Sub CommandButton4_Click ( )

LastRow = FindLastRow - 1

RowNumber.Text = FormatNumber ( LastRow , 0 )

end Sub "
19

Zadajte rutinu PutData do okna kódu zmene mena ukážkových stĺpcov a umiestnenie , aby zodpovedali listu :

" Private Sub PutData ( )

Dim r As Long

Ak IsNumeric ( RowNumber.Text ) Potom

r = CLng ( RowNumber.Text )

Else

MsgBox " Nelegálne riadok číslo "

Exit Sub

End If

ak r> 1 a r < LastRow Potom

Cells (r , 1 ) = ČísloZákazníka . text

Cells (r , 2 ) = CustomerName.Text

Cells (r , 3 ) = City.Text

Cells (r , 4 ) = State.Text

Cells (r , 5 ) = Zip.Text

Cells (r , 6 ) = DateAdded.Text

DisableSave

Else

MsgBox " Neplatné číslo riadku "

End If

End Sub "
20

Opíšte Pridanie rutina dát do okna kódu :

" Private Sub CommandButton7_Click ( )

RowNumber.Text = FormatNumber ( LastRow , 0 )

End Sub "
21

Sem túto rutinné overovanie dát do okna kódu :

" Private Sub CustomerId_KeyPress ( byval KeyAscii Ako MSForms.ReturnInteger )

Ak KeyAscii Asc ( " 9 " ) Potom

KeyAscii = 0

End If

End Sub "
22

Napíšte tento kód skončenia udalosti do okna kódu VBA :

" Private Sub DateAdded_Exit ( byVal Cancel As MSForms.ReturnBoolean )

Ak nie je isda ( DateAdded.Text ) Potom

DateAdded.BackColor = & HFF &

MsgBox " Illegal dáta hodnota "

Zrušiť = TRUE

Else

DateAdded.BackColor = & H80000005

End If

End Sub "

23

Zadajte tieto údaje zoznamu poľa so zoznamom do okna kódu :

" Private Sub AddStates ( )

State.AddItem " AK "

stať . AddItem " AL "

State.AddItem " AR "

State.AddItem " AZ "

End Sub "
24

Sem týchto zobrazenie formulára užívateľa príkazy do okna kódu VBA :

" Public Sub ShowForm ( )

UserForm1.Show vbModal

End Sub "
25

Recenzie a textu do formulára pokyny a kódovanie voľbou " Spustiť " z " hlavného jazyka Visual Basic for Applications Menu . "

• Predchádzajúca strana: Ako používať Sprievodcu grafom v programe Excel 2007 
• Ďalšia strana: Ako si vyrobiť grafy pre predvídanie predaja v Exceli