VBA tekstikast - Kuidas sisestada ja kasutada VBA Userformi tekstikasti?

Lang L: none (table-of-contents)

Exceli VBA tekstikast

Exceli VBA tekstikast

Selgitus on lihtsalt nagu karp, mida kasutatakse, et saada sisend kasutaja, teksti kastid on osa kasutaja vormid ja arendaja tab igal Exceli tööleht, Kui me tahame teha teksti kastid kasutaja kujul saame valida tekstikasti võimalus kasutajavormide juhtelementidest VBA-s või töölehel saame selle valida vahekaardilt Kujundus.

VBA TextBox on üks kasutajavormi paljude juhtelementide juhtnuppe. Kasutajavormil tekstikasti kuvades võime paluda neil sisestada andmed tekstikasti ja kasutaja sisestatud andmeid saab töölehele salvestada lihtsate koodidega.

Kasutaja vormid on VBA kodeerimisel väga atraktiivsed. See aitab meid tohutult, eriti kui peame kasutajatelt sisendit saama. Kasutajavormidega on meil palju juhtnuppe ja kasutajatelt sisendväärtuse saamiseks on „Tekstikast“ ideaalne võimalus kasutajavormis. Kasutajale vormile tekstivälja pannes võime tegelikult kasutajale öelda, et sisestage kuvatavasse tekstikasti nõutav väärtus. Kui teil pole VBA tekstikastidest aimugi, tutvustatakse selles artiklis VBA tekstikastidega.

Kuidas sisestada VBA UserForm'i tekstikast?

Esmalt tekstikasti sisestamiseks peame sisestama kasutajavormi. Kasutajavormi sisestamiseks minge jaotisse Sisesta> Kasutajavorm.

Niipea, kui klõpsate nupul Kasutajavorm, kasutame vormi Kasutajavorm nagu teine moodul.

Kasutajavormi juhtelementide kuvamiseks klõpsake nuppu Kasutajavorm.

Valige sellest juhtnuppude tööriistakastist „TextBox” ja lohistage kasutajavormi.

Selle abil näeme paljusid selle tekstikastiga seotud omadusi.

Tekstikasti atribuudid

Tekstikasti omaduste kuvamiseks vajutage klahvi F4.

Nagu näeme, on tekstikastil Nimi, värv, Ääris nagu paljudel teistelgi. Pange nüüd õige nimi, et saaksime kodeerimise ajal sellele tekstiväljale hõlpsasti viidata.

Näide TextBoxi kasutamisest Userformis

Teostame ühe VBA tekstiga projektidest. Töötajate andmete salvestamiseks loome andmesisestuse kasutajavormi.

1. samm: joonistage kasutajavormil silt.

2. samm: muutke sildi vaiketekstiks Töötaja nimi.

3. samm: joonistage sildi ette tekstikast.

4. samm: andke tekstiväljale õige nimi nimega „EmpNameTextBox”.

5. samm: joonistage nüüd esimese sildi alla veel üks silt ja sisestage tekst „Töötaja ID”.

6. samm: joonistage teise sildi ette veel üks tekstikast ja nimetage see nimeks “EmpIDTextBox”.

7. samm: joonistage veel üks silt ja sisestage tekst „Palk”.

8. samm: joonistage sildi „Palk” ette veel üks tekstikast ja nimetage see nimeks „SalaryTextBox”.

9. samm: sisestage nüüd tööriistakastist käsunupp.

10. samm: muutke käsunupu teksti olekuks „Esita”.

Ok, meil on kasutajavormi kujunduse osa tehtud. Nüüd peame sellesse kasutajavormi sisestatud andmete salvestamiseks kirjutama koodi. Nüüdseks käivitage kasutajavorm, vajutades klahvi F5. Peaksime nägema sellist kasutajavormi.

11. samm: muutke aknas Atribuudid kasutajavormi pealkirja.

Samm 12: Nüüd topeltklõpsake käsul Esita käsku. Niipea kui topeltklõpsate, näete seda automaatset alamprotseduuri nagu allpool.

See peaks juhtuma siis, kui klõpsate nupul Esita. Peame mainima ülesandeid VBA-koodis. Selles projektis on meie eesmärk salvestada tekstikasti sisestatud andmed kohe, kui klõpsame nupul Esita.

Selle jaoks looge kõigepealt selline mall töölehel nimega “Töötajate leht”.

13. samm: pöörduge nüüd visuaalse põhiredaktori juurde. Nupu sees klõpsake kõigepealt VBA alamprogrammi, et määrata allpool oleva koodi abil viimati kasutatud rida.

Kood:

Private Sub CommandButton1_Click () Dim LR As Long LR = töölehed ("Töötaja leht"). Lahter (Read.Count, 1) .End (xlUp). Rida + 1 End Sub

14. samm: esimene asi on esimeses veerus, kuhu salvestame töötaja nime. Nii peame selleks pääsema juurde tekstikasti nimega “EmpNameTextBox”.

Kood:

Private Sub CommandButton1_Click () Dim LR As Long LR = töölehed ("Töötajate leht"). Lahter (Read.Count, 1) .End (xlUp) .Rida + 1 Ramge ("A" & LR) .Value = EmpNameTextBox.Value Lõpeta alam

15. samm: teises veerus peame salvestama töötaja ID. Nii saadakse see juurdepääsuga tekstikasti nimega “EmpIDTextBox”.

Kood:

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