Acest articol va arăta cum să utilizați o casetă de text în Excel VBA.
VBA are capacitatea de a crea formulare cu care utilizatorul poate interacționa, cum ar fi formulare cu facturi sau detalii de contact. Casetele de text sunt controale care pot fi utilizate în aceste formulare sau casetele de text pot fi create direct în Excel.
Crearea casetelor de text pe formularele VBA
Pentru a insera o casetă de text într-un formular VBA, trebuie mai întâi să creăm formularul. Acest lucru se face în Editorul VBE.
Mai întâi, deschideți editorul VBE în Excel.
Pentru a insera un nou formular de utilizator în codul dvs., selectați UserForm din meniul Insert.
Un nou formular de utilizator va apărea în Project Explorer și va fi afișat în fereastra de cod din dreapta.
Puteți redenumi formularul folosind Proprietăți cutie. Acest lucru ar trebui să apară sub Project Explorer.
Dacă este cât de vizibil, apăsați F4 sau faceți clic Vedere, Fereastra Proprietăți.
Faceți clic în Nume proprietate și redenumiți formularul.
Acum putem începe să completăm formularul nostru cu controale - controlul casetei de text este cel mai popular control împreună cu controlul etichetei.
Pentru a completa formularul cu controale, trebuie să pornim caseta de instrumente.
În Meniul, Selectați Vizualizare> Casetă de instrumente.
Pentru a crea o casetă de text în formularul dvs., selectați controlul Casetă de text din caseta de instrumente.
Trageți o formă de casetă pe formular cu mouse-ul, ținând apăsat butonul stâng, apoi eliberați butonul mouse-ului.
Deoarece aceasta este prima casetă de text pe care o creăm, va fi numită TextBox1. Ca și în cazul formularului, puteți utiliza fereastra Proprietăți pentru a redenumi caseta de text.
S-ar putea să fie nevoie să creați și o etichetă pentru caseta de text din formular. Acest lucru se face cu un control de etichetă. Trageți formularul în același mod ca și pentru o casetă de text și apoi puteți introduce textul necesar în controlul etichetei, de exemplu: Prenume așa cum se arată mai jos.
Pentru a utiliza formularul din Codul VBA, ar trebui să adăugăm un buton de comandă la formular. Acest lucru se face selectând controlul butonului de comandă din caseta de instrumente și glisând butonul pe formularul dvs.
Apoi puteți continua să vă creați formularul folosind casete de text, etichete și butoane de comandă, redenumindu-le după caz.
Scrierea codului din spatele formularelor
Odată ce ne-am creat formularul, trebuie să scriem codul VBA pentru a insera informațiile din formularul nostru în foaia noastră de lucru Excel. Acest cod se numește CBF (Codul din spatele formularelor).
În VBE, faceți dublu clic pe butonul de comandă pentru a merge la codul din spatele butonului.
Se va crea o subrutină pentru evenimentul de clic pentru buton. Putem introduce codul nostru VBA în această rutină. De exemplu:
| 123456 | Sub privat cmdOK_Click ()Range ("A1") = Me.txtFirstNameRange ("A2") = Me.txtSurnameRange ("A3") = Me.txtCellPhoneDescarcă-măSfârșitul Sub |
Această rutină va pune detaliile tastate în casetele de text în Excel, apoi va închide formularul.
Crearea casetelor de text într-o foaie de lucru Excel
De asemenea, este posibil să creați casete de text în foaia de calcul Excel. Pentru a face acest lucru, trebuie să activați panglica pentru dezvoltatori.
Notă: dacă nu vedeți panglica pentru dezvoltatori, va trebui să o activați.
În Panglică, selectați Dezvoltator> Inserare> Controale ActiveX> TextBox.
Faceți clic și trageți în foaia de lucru Excel pentru a desena caseta de text din foaia de lucru în poziția dorită. Eliberați butonul mouse-ului pentru a finaliza desenarea casetei de text.
Caseta de text va fi în modul de proiectare. În acest mod, putem dimensiona caseta și putem selecta Proprietățile casetei de text.
Faceți clic pe Proprietăți pentru a afișa fereastra de proprietăți pentru caseta de text. În această fereastră, putem modifica o varietate de proprietăți ale casetei de text, cum ar fi numele casetei, culoarea textului, fundalul sau chenarul, stilul chenarului și fontul folosit pentru textul din caseta de text, de exemplu.
Pentru a utiliza caseta de text direct în Excel așa cum am folosit-o în formularul VBA de mai sus, avem nevoie de o modalitate de a returna datele introduse în caseta de text în foaia Excel. Acest lucru se poate face prin adăugarea unui buton de comandă ActiveX în foaia de lucru și folosind clicul_eveniment al acestui buton de comandă pentru a returna informațiile din caseta de text în foaia Excel.
În Panglică, selectați Dezvoltator> Inserare> Comenzi ActiveX> Buton de comandă pentru a adăuga un buton de comandă la foaia dvs. Excel. Porniți fereastra Proprietăți și schimbați numele butonului, legenda butonului și Acceleratorul butonului, așa cum se arată în imaginea de mai jos.
Faceți dublu clic pe buton pentru a merge la evenimentul de clic VBA al butonului și tastați următorul cod:
| 123 | Sub privat cmdOK_Click ()Range ("A1") = Me.txtFirstNameSfârșitul Sub |
Reveniți la foaia de lucru Excel, asigurați-vă că Modul de proiectare este dezactivat și apoi introduceți caseta de text creată.
Faceți clic pe butonul de comandă pentru a returna textul în Excel.
