Excel VBA -käyttäjälomake
VBA: n Userform ovat räätälöityjä käyttäjän määrittelemiä lomakkeita, jotka on tehty ottamaan käyttäjältä syötteitä lomakkeen muodossa, sillä on erilaisia lisättäviä ohjaimia, kuten tekstiruutuja, valintaruutujen tarroja jne. ja se tallentaa arvon laskentataulukkoon, jokaisella käyttäjälomakkeen osalla on ainutlaatuinen koodi.
Userform on objekti Excel-käyttöliittymässä, ja tämän käyttäjälomakkeen sisällä voimme luoda muita hyödyllisiä mukautettuja valintaikkunoita tietojen saamiseksi käyttäjältä. Kun työskentelet vanhempasi luoman tai Internetistä ladattavan makrotiedoston kanssa, sinun on pitänyt nähdä tällainen käyttäjälomake.
Tässä artikkelissa näytämme, kuinka voit luoda samanlaisen käyttäjälomakkeen käyttäjän tietojen tallentamiseksi.
Kuinka luoda Userform?
Kuten uuden moduulin lisääminen samalla tavoin, sinun on napsautettava Visual Basic Editorin INSERT-painiketta lisätäksesi Userformin.
Heti kun napsautat tätä, myös käyttäjän lomake lisätään.
Ennen kuin kerron sinulle, kuinka tämä ohjelmoidaan, haluan näyttää sinulle, kuinka tämä käyttäjän muoto muotoillaan.
Käyttäjän lomakkeen muotoilu
Valitsemalla käyttäjämuodon, paina F4-näppäintä, se näyttää ominaisuusikkunan.
Tämän ominaisuusikkunan avulla voimme muotoilla tämän käyttäjämuodon. Voimme nimetä sen. Voimme muuttaa väriä, reunatyyliä jne.
Kokeile täten muita ominaisuuksia saadaksesi käyttäjän lomakkeen näkyviin.
Lisää nyt tämä käyttäjämuoto, lisää Toolbox.
Nyt näemme tällaisen työkalupakin.
Tällä hetkellä käyttäjämuoto lisätään vain, ei ohjelmoitu. Jos haluat tietää, miten se toimii, napsauta vain Suorita-painiketta. Näemme lomakkeen Excel-laskentataulukossa.
Nyt käytetään ToolBox-piirtotarraa.
Kirjoita teksti työntekijän nimellä tarran sisälle.
Tämän tarran, jotta voimme muotoilla käyttämällä ominaisuuksia. Nyt olemme kirjoittaneet tekstin ”Työntekijän nimi:”, nyt voimme nähdä tämän ominaisuusikkunan Tekstitykset-kohdassa.
Lisää vielä yksi tarra. Voit lisätä yhden tarran lisää napsauttamalla työkalupalkkia tai vetämällä nykyisen tarran pitämällä Ctrl- näppäintä alhaalla . Sinulla on kopio nykyisestä tarrasta.
Nyt meillä on sama etiketti.
Vaihda nimeksi Työntekijän tunnus.
Lisää samalla tavalla yksi tarra lisää ja nimeä se osastoksi.
Lisää nyt tekstiruutu työkaluruudusta.
Nimeä tämä tekstiruutu nimellä EmpName ominaisuusikkunassa.
Lisää täten kaksi muuta tekstiruutua työntekijöiden tunnuksista ja osastoista. Nimeä nämä tekstiruudut niiden otsikon mukaan.
Vastaavasti tee se osastolle.
Lisää nyt työkalupakista komentopainike.
Vaihda komentopainikkeen nimeksi SubmitButton ja vaihda kuvatekstiksi Submit.
Aseta vielä yksi painike ja kutsu sitä nimellä "Peruuta".
Nyt vain nähdäksesi ajon, paina suorituspainiketta tai käytä F5-näppäintä ja katso, miltä käyttäjämuodosi näyttää Excelissä.
Nyt se on tulossa muotoon.
VBA-koodi
Nyt käyttäjä syöttää tietoja tähän, joten meidän on ohjelmoitava tämä tallentamaan käyttäjän kirjoittamat tiedot tähän lomakkeeseen.
Kaksoisnapsauta LÄHETÄ-painiketta, se vie sinut makroikkunaan automaattisesti luodulla makrolla, kuten alla.
Siinä sanotaan SubmitButton-napsautus, muista, että olimme antaneet SUBMIT-painikkeelle nimen SubmitButton.
Joten aina, kun haluamme kutsua tätä painiketta, voimme kutsua tätä tällä nimellä (lähetä-painike). Kopioi ja liitä alla oleva koodi tämän makron sisälle.
Koodi:
Private Sub SubmitButton_Click() Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(LR, 1).Value = EmpName.Value Cells(LR, 2).Value = EmpID.Value Cells(LR, 3).Value = Dept.Value EmpName.Value = "" EmpID.Value = "" Dept.Value = "" End Sub
- EmpName.Value here EmpName is the text box name we had given while creating the employee name text box.
- EmpID.Value here EmpID is the text box name of the Employee ID text box.
- Dept.Value this is the department text box name.
So, on the click on the submit button, it will store the values in the mentioned cells.
Now double click on the Cancel button. This will also show you the auto macro name like this.
Copy the below code and paste.
Code:
Private Sub CancelButton_Click() MyUserForm.Hide End Sub
MyUserForm on nimi, jonka annoimme käyttäjälomakkeelle. MyUserForm.Hide tarkoittaa, että napsauttamalla PERUUTA-painiketta, se piilottaa käyttäjämuodon.
Ok, luo nyt tällainen malli laskentataulukkoon.
Poista kaikki muut työkirjan taulukot paitsi tämä malliarkki.
Siirry nyt Visual Basic Editoriin.
Ja suorita makro F5-näppäimellä tai manuaalisesti, näemme käyttäjälomakkeen edessämme.
Syötä työntekijän nimi, työntekijän tunnus ja osaston nimi.
Jos napsautat JATKA-painiketta, se tallentaa arvot luomallemme mallille.
Näin voit jatkaa nimien syöttämistä. Käyttäjälomake tallentaa käyttäjän syöttämät arvot määritettyihin soluihin.
Joten käyttämällä KÄYTTÖLOMAKETTA voimme todella luoda upeita projekteja saadaksesi tietoja käyttäjältä.
