Izmantojot programmu Excel, varat izmantot Visual Basic, lai izklājlapām pievienotu dažādu funkciju klāstu, tostarp “UserForms”. Izmantojot UserForms, varat parādīt lietotājam ievades veidlapu, kas ir atdalīta no galvenās darblapas, un tā ir noderīga, lai tvertu datus no personām, kuras, iespējams, nav pazīstamas ar izklājlapām. Izmantojot nelielu Visual Basic kodu, visus šos datus varat pievienot izklājlapai jaunās rindās.
Definējiet savus laukus
Palaidiet programmu Excel. Augšējā rindā ievadiet visu to lauku nosaukumus, kurus vēlaties tvert, sākot no “A1” un strādājot pa labi. Noklikšķiniet uz Izstrādātājs un pēc tam uz Visual Basic. Parādīsies logs Visual Basic. Rīkjoslā noklikšķiniet uz ikonas “A” un noklikšķiniet uz loga “UserForm1” un velciet to iekšā vietā, kur vēlaties iet savu pirmo veidlapas lauku. Rediģējiet etiķeti, mainot rekvizītu “Paraksts” uz aprakstošāku, piemēram, “Vārds”. Izveidojiet iezīmi katram darblapā ievadītajam laukam.
Pievienojiet tekstlodziņus
Rīkjoslā atlasiet ikonu “TextBox” un velciet tekstlodziņu pa labi no pirmās etiķetes. Ja izmantosiet tikai dažus laukus, ir pieņemams atstāt rekvizītu “(Nosaukums)” kā noklusējuma “TextBox1”. Tomēr, ja jums nepieciešams liels lauku skaits, tas var kļūt mulsinošs, tāpēc jums tie jārediģē, lai tie atbilstu jau izveidotajām iezīmēm. Pārliecinieties, ka katrai etiķetei ir atbilstošs tekstlodziņš.
Pievienojiet pogu Iesniegt
Rīkjoslā noklikšķiniet uz ikonas “Command Button”, kas izskatās kā standarta Windows stila poga. Noklikšķiniet un velciet to līdz vajadzīgajam izmēram un atrašanās vietai UserForm1. Parasti to vēlaties norādīt zem vai blakus jūsu veidlapas pēdējam tekstlodziņam. Mainiet pogas rekvizītu “Paraksts” uz “Iesniegt datus” vai kaut ko līdzīgu, norādot lietotājam, ka, lai iesniegtu savus datus, viņam jānoklikšķina uz šīs pogas.
Pievienojiet Visual Basic kodu
Veiciet dubultklikšķi uz pogas. Starp “Private Sub” un “End Sub” ievadiet šādu kodu:
eRow = Sheet1.Cells (Rows.Count, 1). End (xlUp). Offset (1,0). Rinda
Pēc tam sāciet jaunu līniju zem šīs un ievadiet šo:
Šūnas (erow, 1) = TextBox1. Teksts
Ja jūs pārdēvējāt tekstlodziņus, nomainiet “TextBox1” uz nosaukumu, kuru piešķirāt pirmajam tekstlodziņam. Dariet to katram izveidotajam ievades lodziņam, sākot jaunu rindu un attiecīgi ievadot pareizos tekstlodziņu nosaukumus. Tāpat katrai jaunai rindai palieliniet iekavās esošo skaitli par vienu. Piemēram, nākamā rinda varētu izskatīties šādi:
Šūnas (erow, 2) = TextBox2. Teksts
Noklikšķiniet uz pogas “Atskaņot” loga augšdaļā, lai sāktu tvert datus.
