Používanie formulárov vo VBA vám poskytuje prázdne plátno na navrhovanie a usporiadanie formulárov podľa vašich potrieb kedykoľvek. Naučme sa s Download.vn vytvárať formuláre na automatické zadávanie údajov v Excel VBA !
Vytvorte používateľský formulár pomocou Excel VBA
Otvorte nový excelový zošit a pred začatím vytvárania formulára na zadávanie údajov vykonajte niekoľko predbežných krokov.
Uložte zošit s požadovaným názvom, nezabudnite zmeniť typ súboru na Excel Macro-Enabled Workbook.
Pridajte do tohto zošita 2 hárky s nasledujúcimi názvami:
Ich mená si samozrejme môžete ľubovoľne meniť.
Na hárku Domov pridajte tlačidlo na ovládanie makra formulára používateľa. Prejdite na kartu Vývojár > kliknite na tlačidlo v rozbaľovacom zozname Vložiť . Umiestnite toto tlačidlo kdekoľvek v tabuľke.
Po umiestnení tlačidla ho premenujte. Kliknite naň pravým tlačidlom myši > kliknite na Nový , aby ste pripojili makro, ktoré zobrazí formulár.
Do okna editora zadajte nasledujúci kód:
Sub Button1_Click()
UserForm.Show
End SubS pripraveným hárkom Domov a databázou študentov je čas navrhnúť používateľský formulár. Prejdite na kartu Vývojár > kliknutím na položku Visual Basic otvorte Editor . Prípadne môžete stlačením ALT+F11 otvoriť okno editora.
Kliknite na kartu Vložiť a vyberte položku UserForm . Používateľský formulár je pripravený na použitie. S týmto formulárom sa otvorí sprievodný panel nástrojov, ktorý obsahuje všetky nástroje potrebné na návrh rozloženia.
Z tohto panela nástrojov vyberte Rám . Presuňte ho do používateľského formulára a zmeňte jeho veľkosť.
V (name) môžete zmeniť názov tohto rámca. Ak chcete zobraziť názov v klientskom rozhraní, môžete zmeniť názov v stĺpci Titulok .
Ďalej vyberte zo sady nástrojov Label a vložte 2 nálepky do tohto poľa. Premenujte prvé meno na Application Number a druhé meno na Student ID .
Použiť rovnaký proces premenovania cez Caption v Properties . Pred premenovaním sa uistite, že ste vybrali zodpovedajúci štítok.
Potom do poľa s nálepkami vložte 2 textové polia. Budú sa používať na zachytávanie vstupov používateľov. Zmeňte názvy 2 textových polí pomocou stĺpca (Názov) vo vlastnostiach takto:
Navrhovanie informačného rámca pre študentov
Vložte zvislý rám a pridajte 10 štítkov a 10 textových polí. Premenujte štítok takto:
Vedľa týchto menoviek vložte zodpovedajúce textové pole vložením z dvoch polí s tlačidlami z panela nástrojov používateľského formulára vedľa menovky pohlavia. Zmeňte ich mená na Muž a Žena (s Vlastným).
Navrhnite podrobný rámec kurzu
Pridajte ďalší rám vertikálne a vložte 6 nálepiek, 6 textových polí zodpovedajúcich každému štítku. Premenujte nálepku takto:
Navrhnite rám s podrobnosťami o platbe
Vložte nový rám, pridajte nový štítok a premenujte ho "Chcete aktualizovať Platobné údaje?" Vložte 2 tlačidlá možností ; premenujte ich na Áno a Nie .
Podobne pridajte nový rámik obsahujúci 2 ďalšie štítky a 2 kombinované polia. Premenujte štítok takto:
Dizajn navigačnej dosky
V poslednom rámci pridajte 3 tlačidlá zo sady nástrojov, ktoré obsahujú kód na nasadenie formulárov. Premenujte tlačidlá nasledovne:
Napísať kód automatického formulára: Tlačidlo na uloženie informácií
Dvakrát kliknite na tlačidlo Uložiť podrobnosti . V ďalšom module vložte nasledujúci kód:
Private Sub CommandButton2_Click()
‘declare the variables used throughout the codes
Dim sht As Worksheet, sht1 As Worksheet, lastrow As Long
'Add validations to check if character values are being entered in numeric fields.
If VBA.IsNumeric(txtApplicationNo.Value) = False Then
MsgBox "Only numeric values are accepted in the Application Number", vbCritical
Exit Sub
End If
If VBA.IsNumeric(txtStudentID.Value) = False Then
MsgBox "Only numeric values are accepted in the Student ID", vbCritical
Exit Sub
End If
If VBA.IsNumeric(txtAge.Value) = False Then
MsgBox "Only numeric values are accepted in Age", vbCritical
Exit Sub
End If
If VBA.IsNumeric(txtPhone.Value) = False Then
MsgBox "Only numeric values are accepted in Phone Number", vbCritical
Exit Sub
End If
If VBA.IsNumeric(Me.txtCourseID.Value) = False Then
MsgBox "Only numeric values are accepted in Course ID", vbCritical
Exit Sub
End If
'link the text box fields with the underlying sheets to create a rolling database
Set sht = ThisWorkbook.Sheets("Student Database")
'calculate last populated row in both sheets
lastrow = sht.Range("a" & Rows.Count).End(xlUp).Row + 1
'paste the values of each textbox into their respective sheet cells
With sht
.Range("a" & lastrow).Value = txtApplicationNo.Value
.Range("b" & lastrow).Value = txtStudentID.Value
.Range("c" & lastrow).Value = txtName.Value
.Range("d" & lastrow).Value = txtAge.Value
.Range("e" & lastrow).Value = txtDOB.Value
.Range("g" & lastrow).Value = txtAddress.Value
.Range("h" & lastrow).Value = txtPhone.Value
.Range("i" & lastrow).Value = txtCity.Value
.Range("j" & lastrow).Value = txtCountry.Value
.Range("k" & lastrow).Value = txtZip.Value
.Range("l" & lastrow).Value = txtNationality.Value
.Range("m" & lastrow).Value = txtCourse.Value
.Range("n" & lastrow).Value = txtCourseID.Value
.Range("o" & lastrow).Value = txtenrollmentstart.Value
.Range("p" & lastrow).Value = txtenrollmentend.Value
.Range("q" & lastrow).Value = txtcourseduration.Value
.Range("r" & lastrow).Value = txtDept.Value
End With
sht.Activate
'determine gender as per user's input
If optMale.Value = True Then sht.Range("g" & lastrow).Value = "Male"
If optFemale.Value = True Then sht.Range("g" & lastrow).Value = "Female"
'Display a message box, in case the user selects the Yes radio button
If optYes.Value = True Then
MsgBox "Please select the payment details below"
Else:
Exit Sub
End If
End SubVysvetlenie kódu v automatizovanej forme:
Textové polia obsahujú textové a číselné hodnoty, takže musíte obmedziť vstup používateľa. Číslo prihlášky, ID študenta, Vek, Telefón, ID kurzu a Trvanie kurzu budú obsahovať iba čísla, zvyšok bude obsahovať text.
Pomocou príkazu IF kód spustí vyskakovacie okno s chybou, ak používateľ zadá hodnotu znaku alebo textu do ľubovoľného číselného poľa.
Pretože existuje overenie chýb, musíte textové polia prepojiť s bunkami v hárku.
Premenné lastrow vypočítajú posledný vyplnený riadok a uložia hodnotu vo vnútri pre flexibilné použitie.
Nakoniec sa tieto hodnoty prilepia do textového poľa v prepojenom hárku programu Excel.
Kód formulára vymazať a ukončiť tlačidlo
V tlačidle vymazať musíte napísať kód, ktorý vymaže aktuálne hodnoty z formulára používateľa takto:
With Me
.txtApplicationNo.Value = ""
.txtStudentID.Value = ""
..txtName.Value = ""
.txtAge.Value = ""
.txtAddress.Value = ""
.txtPhone.Value = ""
.txtCity.Value = ""
.txtCountry.Value = ""
.txtDOB.Value = ""
.txtZip.Value = ""
.txtNationality.Value = ""
.txtCourse.Value = ""
.txtCourseID.Value = ""
.txtenrollmentstart.Value = ""
.txtenrollmentend.Value = ""
.txtcourseduration.Value = ""
.txtDept.Value = ""
.cmbPaymentMode.Value = ""
.cmbPayment.Value = ""
.optFemale.Value = False
.optMale.Value = False
.optYes.Value = False
.optNo.Value = False
End WithDo tlačidla ukončenia zadajte nasledujúci kód do formulára používateľa:
Private Sub CommandButton5_Click()
Unload Me
End SubV poslednom kroku musíte zadať niekoľko posledných kúskov kódu, aby ste vytvorili rozbaľovacie hodnoty pre pole so zoznamom (v rámčeku pokladne).
Private Sub UserForm_Activate()
With cmbPayment
.Clear
.AddItem ""
.AddItem "Yes"
.AddItem "No"
End With
With cmbPaymentMode
.Clear
.AddItem ""
.AddItem "Cash"
.AddItem "Card"
.AddItem "Check"
End With
End SubVyššie je uvedené, ako vytvoriť formulár na automatické zadávanie údajov v programe Excel VBA . Dúfam, že článok je pre vás užitočný.
Návod na použitie funkcie ABS na výpočet absolútnej hodnoty v Exceli Funkcia ABS sa používa na výpočet absolútnej hodnoty čísla alebo výpočtu. Používanie funkcie ABS je celkom jednoduché
Návod, ako písať horný index a dolný index v Exceli V Exceli musíte často upravovať matematické vzorce, ale máte problémy s výrazmi.
Ako číslovať strany bez toho, aby ste v Exceli začali od 1. Číslovanie strán v Exceli je celkom jednoduché, ale číslovanie strán od čísla iného ako 1 je zložité.
Pokyny na opakovanú tlač názvov v Exceli Pri excelových tabuľkách s mnohými tlačenými stranami si ľudia často nastavujú opakovanú tlač názvov, aby sa vyhli zámene s tabuľkou.
Ako používať funkcie počítania Count, Counta, Countif, Countifs v Exceli Funkcie počítania v Exceli sú rozdelené do mnohých typov, väčšina z týchto funkcií sa na počítanie veľmi jednoducho používa.
Ako používať funkciu Geografia v programe Microsoft Excel, Pomocou geografie môžete získať prístup k geografickým údajom do tabuľky programu Excel. Nižšie uvádzame, ako používať funkciu Geografia
Ako vypočítať percentá v Exceli, Microsoft Excel vám poskytuje mnoho rôznych spôsobov výpočtu percent. Naučme sa s WebTech360, ako vypočítať percentá v Exceli
Ako vytvoriť formulár na automatické zadávanie údajov v Excel VBA, Používanie formulárov vo VBA vám dáva prázdne plátno na navrhovanie a usporiadanie formulárov tak, aby vyhovovali akýmkoľvek potrebám
Ako vytvoriť vodopádový graf v Exceli, vodopádové grafy sa používajú na ilustráciu kolísania medzisúčtov v Exceli. Poďme sa naučiť vytvárať grafy pomocou WebTech360
Pokyny na skrytie riadkov a stĺpcov v programe Excel Niekedy je váš súbor programu Excel príliš dlhý a chcete skryť nepoužívané časti alebo ho z nejakého dôvodu nechcete zobrazovať ostatným.
