Excel VBA -tekstiruutu
Textbox on yksinkertaisesti kuin laatikko, joka käytetään saada käyttäjältä syöte, tekstiruudut ovat osa käyttäjän lomakkeita ja kehittäjä välilehden tahansa Excel-taulukossa, jos haluamme tekstilaatikot käyttäjä muodossa voimme valita oppikirja vaihtoehto VBA: n tai laskentataulukon käyttäjälomakkeen ohjausobjekteista voimme valita sen suunnitteluvälilehdeltä.
VBA TextBox on yksi käyttäjälomakkeen monien hallintalaitteiden ohjaimista. Näyttämällä tekstiruutua käyttäjälomakkeessa voimme pyytää heitä syöttämään tiedot tekstikenttään, ja käyttäjän kirjoittamat tiedot voidaan tallentaa laskentataulukkoon yksinkertaisilla koodeilla.
Käyttäjälomakkeet ovat erittäin houkuttelevia VBA-koodauksessa. Se auttaa meitä valtavasti, varsinkin kun meidän on saatava palautetta käyttäjiltä. Käyttäjälomakkeilla meillä on monia hallintalaitteita, ja "syöttöarvon saamiseksi käyttäjiltä" "Tekstiruutu" on ihanteellinen vaihtoehto käyttäjälomakkeessa. Laittamalla tekstiruutu käyttäjälomakkeelle voimme todellakin kertoa käyttäjälle kirjoittamaan vaaditun arvon näytettävään tekstiruutuun. Jos sinulla ei ole aavistustakaan VBA-tekstiruuduista, tässä artikkelissa tutustutaan VBA-tekstiruutuihin.
Kuinka lisätä tekstiruutu VBA UserFormiin?
Tekstiruudun lisääminen ensin edellyttää käyttäjän lomakkeen lisäämistä. Voit lisätä käyttäjälomakkeen valitsemalla Lisää> Käyttäjälomake.
Heti kun napsautat Käyttäjälomake-painiketta, käytämme käyttäjälomaketta aivan kuten toinen moduuli.
Napsauta Käyttäjälomake nähdäksesi Käyttäjälomakkeen hallintalaitteet.
Valitse tästä Ohjaimet-työkaluruudusta ”Tekstiruutu” ja vedä Käyttäjälomake.
Tämän avulla voimme nähdä monia tähän tekstiruutuun liittyviä ominaisuuksia.
TextBox-ominaisuudet
Paina F4-näppäintä nähdäksesi tekstiruudun ominaisuudet.
Kuten näemme, tekstiruudussa on Nimi, väri, Reuna kuten tällä monella. Anna nyt oikea nimi, jotta voimme helposti viitata tähän tekstiruutuun koodaamisen aikana.
Esimerkki TextBoxin käytöstä Userformissa
Suoritamme yhden hankkeista, joissa on VBA-teksti. Luomme tietojen syöttämisen käyttäjälomakkeen työntekijöiden tietojen tallentamiseksi.
Vaihe 1: Piirrä käyttäjälomakkeessa Tarra.
Vaihe 2: Vaihda tunnisteen oletustekstiksi ”Työntekijän nimi”.
Vaihe 3: Piirrä tarran eteen tekstiruutu.
Vaihe 4: Anna tekstiruudulle oikea nimi nimellä EmpNameTextBox.
Vaihe 5: Piirrä nyt vielä yksi tarra ensimmäisen tarran alle ja kirjoita teksti työntekijän tunnukseksi.
Vaihe 6: Piirrä toisen tarran eteen vielä yksi tekstiruutu ja nimeä se nimellä "EmpIDTextBox".
Vaihe 7: Piirrä vielä yksi tarra ja kirjoita tekstiksi Palkka.
Vaihe 8: Piirrä vielä yksi tekstiruutu “Palkka” -tunnisteen eteen ja nimeä se nimellä “SalaryTextBox”.
Vaihe 9: Lisää nyt komentopainike työkaluruutuun.
Vaihe 10: Vaihda komentopainikkeen teksti Lähetä.
Ok, olemme tehneet käyttäjän lomakkeen suunnitteluosan. Nyt meidän on kirjoitettava koodi tallentamaan tähän käyttäjälomakkeeseen syötetyt tiedot. Suorita nyt käyttäjälomake painamalla F5-näppäintä. Meidän pitäisi nähdä tällainen käyttäjälomake.
Vaihe 11: Muuta käyttäjälomakkeen kuvateksti Ominaisuudet-ikkunassa.
Vaihe 12: Nyt kaksoisnapsauta Lähetä komentopainiketta. Heti kun kaksoisnapsautat, näet tämän automaattisen alimenettelyn kuten alla.
Tämän pitäisi tapahtua, kun napsautat Lähetä-painiketta. Meidän on mainittava tehtävät VBA-koodissa. Tässä projektissa tavoitteemme on tallentaa tekstikenttään syötetyt tiedot heti, kun napsautamme Lähetä-painiketta.
Luo tätä varten ensin tällainen malli työarkkiin nimeltä ”Employees Sheet”.
Vaihe 13: Palaa nyt visuaaliseen peruseditoriin. Napsauta painikkeen sisällä ensin VBA: n alirutiinia määrittääksesi viimeksi käytetyn rivin alla olevan koodin avulla.
Koodi:
Yksityinen alikomentoButton1_Click () Dim LR As Long LR = Laskentataulukot ("Employee Sheet"). -Solu (Rows.Count, 1) .End (xlUp) .Rivi + 1 End Sub
Vaihe 14: Ensimmäinen asia on ensimmäisessä sarakkeessa, johon tallennamme työntekijän nimen. Joten tätä varten meidän on käytettävä "EmpNameTextBox" -tekstiruutua.
Koodi:
Private Sub CommandButton1_Click () Dim LR As Long LR = Worksheet ("Employee Sheet"). Cell (Rows.Count, 1) .End (xlUp) .Row + 1 Ramge ("A" & LR) .Arvo = EmpNameTextBox.Value End Sub
Vaihe 15: Toiseen sarakkeeseen meidän on tallennettava työntekijän tunnus. Joten tämä saadaan avaamalla "EmpIDTextBox" -tekstiruutu.
Koodi:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value End Sub
Step 16: At last, we need to store the salary part. For this, we need to access to text box named “SalaryTextBox.”
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value Range("C" & LR).Value = SalaryTextBox.Value End Sub
Ok, we are done with the coding part as well. Now run the code using the F5 key. We should see a User Form like the below.
Tästä lähtien kaikki laatikot ovat tyhjät.
Täytä tiedot ensin.
Napsauta nyt Lähetä-painiketta. Se tallentaa tiedot laskentataulukkoon.
Näin voit jatkaa tietojen syöttämistä ja painaa ja lähetä-painiketta. Tämä on yksinkertainen tietojen syöttökäyttäjän lomake, jossa on tekstiruutu.
