Ako zachytiť údaje z UserForms do pracovného hárka programu Excel

V programe Excel môžete pomocou jazyka Visual Basic pridať do svojich tabuliek celý rad rôznych funkcií, vrátane „UserForms“. Pomocou UserForms môžete zobraziť vstupný formulár používateľ, ktorý je oddelený od hlavného pracovného hárka, čo je užitočné na zachytávanie údajov od jednotlivcov, ktorí nemusia byť oboznámení s tabuľkami. S trochou kódu jazyka Visual Basic môžete všetky tieto údaje pridať do tabuľky v nových riadkoch.

Definujte svoje polia

Spustite program Excel. Do horného riadku zadajte názvy všetkých polí, ktoré chcete zachytiť, počínajúc písmenom „A1“ a pracujte doprava. Kliknite na „Developer“ a potom na „Visual Basic“. Objaví sa okno jazyka Visual Basic. Kliknite na ikonu „A“ v Paneli s nástrojmi a kliknite a potiahnite dovnútra okna „UserForm1“ na mieste, kam chcete presunúť prvé pole formulára. Upravte štítok zmenou vlastnosti „Titulky“ na niečo opisnejšie, napríklad „Krstné meno“. Vytvorte štítok pre každé z polí, ktoré ste zadali na pracovnom liste.

Pridajte svoje textové polia

V paneli s nástrojmi vyberte ikonu „TextBox“ a pretiahnite textové pole vpravo od svojho prvého štítka. Ak budete používať iba niekoľko polí, je prijateľné ponechať vlastnosť „(Name)“ ako predvolené „TextBox1“. Ak však potrebujete veľké množstvo polí, mohlo by to byť mätúce, takže by ste ich mali upraviť tak, aby sa zhodovali s už vytvorenými menovkami. Uistite sa, že každý štítok má príslušné textové pole.

Pridať tlačidlo Odoslať - Kliknite na ikonu „Command Button“ v paneli nástrojov, ktorá vyzerá ako štandardné tlačidlo v štýle systému Windows. Kliknite a presuňte ho na veľkosť a umiestnenie, ktoré požadujete v UserForm1. Obvykle budete chcieť toto pod alebo blízko posledného textového poľa vo formulári. Zmeňte vlastnosť tlačidla „Titulky“ na „Odoslať údaje “Alebo niečo podobné, čo naznačuje užívateľovi, že musí odoslať svoje údaje kliknutím na toto tlačidlo.

Pridať kód jazyka Visual Basic

Dvakrát kliknite na tlačidlo. Zadajte nasledujúci kód medzi „Private Sub“ a „End Sub“: eRow = Sheet1.Cells (Rows.Count, 1) .End (xlUp) .Offset (1,0) .Row Potom začnite nový riadok pod týmto a potom zadajte nasledovné: Cells (erow, 1) = TextBox1.Text Ak ste premenovali svoje textové polia, zmeňte “TextBox1” na meno, ktoré ste dostali ako prvé textové pole. Urobte to pre každé zadané vstupné pole, začnite nový riadok a podľa potreby zadajte správne názvy textových polí. Tiež pre každý nový riadok zvýšte číslo v zátvorkách o jednu. Napríklad nasledujúci riadok môže vyzerať takto: Bunky (erow, 2) = TextBox2.Text Kliknutím na tlačidlo „Prehrať“ v hornej časti okna môžete začať so zaznamenávaním údajov.

• Predchádzajúca strana: Ako blokovať program Adobe Premiere v prístupe na internet
• Ďalšia strana: Prečo sa môj telefón Samsung Galaxy 5.0 nepripojí k počítaču?