Cum se colectează date din UserForms în foile de lucru Excel

Excelul vă permite să adăugați diferite funcționalități la foi de calcul prin Visual Basic, inclusiv UserForms. Aceste formulare separate de foaia principală facilitează introducerea datelor de către utilizatori neinițiați cu Excelul. Cu puțin cod VBA, datele introduse în UserForm pot fi salvate automat în rânduri noi ale foii de lucru.

1. Definiți câmpurile

Deschideți Excel și introduceți numele fiecărui câmp pe linia de sus, începând de la celula A1 și continuând spre dreapta. Accesați fila Developer, apoi faceți clic pe Visual Basic. În fereastra VBA, selectați pictograma A din Toolbox și trageți-o pe UserForm1 pentru a crea primul etichetă. Editați proprietatea Caption pentru a schimba textul etichetei (ex. „Prenume”). Repetați pentru toate câmpurile listate în foaia de lucru.

2. Adăugați căsuțele de text

Selectați pictograma TextBox din Toolbox și trageți-o la dreapta fiecărei etichete create. Dacă aveți doar câteva câmpuri, lăsați proprietatea (Name) implicită (TextBox1, TextBox2, …). Pentru un număr mai mare de câmpuri, redenumiți câsuțele pentru a evita confuziile (ex. txtPrenume, txtNume). Asigurați-vă că fiecare etichetă are o căsuță de text asociată.

3. Adăugați butonul de trimitere

Selectați pictograma CommandButton din Toolbox, formatați dimensiunea și poziția pe UserForm1. De obicei, îl plasați sub ultimul câmp. Modificați proprietatea Caption în „Trimite date” pentru a indica utilizatorului acțiunea necesară.

4. Scrieți codul VBA

Faceți dublu clic pe buton pentru a deschide editorul de cod. Introduceți următoarele linii între Private Sub și End Sub:

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

Cells(eRow, 1) = TextBox1.Text

Înlocuiți TextBox1 cu numele corespunzător câsuței pe care ați redenumit-o (ex. txtPrenume). Repetați pentru fiecare câmp, incrementând indicele coloanei:

Cells(eRow, 2) = TextBox2.Text

După completarea codului, apăsați butonul Play (Run) din bara de instrumente pentru a începe capturarea datelor.