Kaip užfiksuoti duomenis iš „UserForms“ į „Excel“ darbalapį

Naudodami „Excel“, naudodami „Visual Basic“ galite pridėti įvairių funkcijų prie savo skaičiuoklių, įskaitant „UserForms“. Naudodamiesi „UserForms“, vartotojui galite parodyti įvesties formą, atskirą nuo pagrindinio darbalapio, kuri yra naudinga fiksuojant duomenis iš asmenų, kurie galbūt nėra susipažinę su skaičiuoklėmis. Turėdami šiek tiek „Visual Basic“ kodo, visus šiuos duomenis galite pridėti prie skaičiuoklės naujose eilutėse.

Apibrėžkite savo laukus

Paleiskite „Excel“. Įveskite visų laukų, kuriuos norite užfiksuoti, pavadinimus viršutinėje eilutėje, pradedant „A1“ ir dirbant dešinėje. Spustelėkite „Kūrėjas“, tada spustelėkite „Visual Basic“. Pasirodys „Visual Basic“ langas. Spustelėkite „A“ piktogramą iš „Toolbox“ ir spustelėkite ir vilkite „UserForm1“ lange toje vietoje, kur norite eiti pirmojo formos lauką. Redaguokite etiketę pakeisdami ypatybę „Antraštė“ į kažką labiau apibūdinančio, pvz., „Vardas“. Sukurkite etiketę kiekvienam laukui, kurį įvedėte savo darbalapyje.

Pridėkite teksto laukelių

Iš „Toolbox“ pasirinkite piktogramą „TextBox“ ir vilkite teksto laukelį tiesiai nuo pirmosios etiketės. Jei naudosite tik kelis laukus, priimtina savybę „(Vardas)“ palikti kaip numatytąją „TextBox1“. Tačiau jei jums reikia daug laukų, tai gali būti painu, todėl turėtumėte juos redaguoti, kad jie atitiktų jau sukurtas etiketes. Įsitikinkite, kad kiekvienoje etiketėje yra atitinkamas teksto laukelis.

Pridėti mygtuką Pateikti

Įrankių juostoje spustelėkite piktogramą „Komandos mygtukas“, kuri atrodo kaip įprastas „Windows“ stiliaus mygtukas. Spustelėkite ir vilkite jį į dydį ir vietą, kurios jums reikia „UserForm1“. Paprastai to norėsite žemiau arba šalia galutinio formos teksto laukelio. Pakeiskite mygtuko ypatybę „Antraštė“ į „Pateikti duomenis“ ar panašiai, nurodydami vartotojui, kad jis turi spustelėti šį mygtuką, norėdamas pateikti savo duomenis.

Pridėti „Visual Basic“ kodą

Dukart spustelėkite mygtuką. Įveskite šį kodą tarp „Private Sub“ ir „End Sub“:

eRow = Sheet1.Cells (Rows.Count, 1). End (xlUp). Offset (1,0). Eilutė

Tada pradėkite naują eilutę po šia ir įveskite:

Langeliai (erow, 1) = TextBox1. Tekstas

Jei pervadinote teksto laukelius, pakeiskite „TextBox1“ į pavadinimą, kurį suteikėte pirmajam teksto laukeliui. Atlikite tai kiekvienam sukurtam įvesties laukeliui, pradėdami naują eilutę ir atitinkamai įveskite teisingus teksto laukelių pavadinimus. Be to, kiekvienoje naujoje eilutėje padidinkite skliaustuose esančią figūrą po vieną. Pavyzdžiui, kita eilutė gali atrodyti taip:

Ląstelės (erow, 2) = TextBox2.Text

Spustelėkite lango viršuje esantį mygtuką „Groti“, kad pradėtumėte fiksuoti duomenis.