Как да записвате данни от потребителски форми в Excel лист

С помощта на VBA в Excel можете да създадете потребителски формуляри (UserForm), които събират данни от потребители, дори ако те не са запознати със самата електронна таблица. След като потребителят попълни формуляра и натисне бутона за изпращане, данните се записват в нов ред на листа.

1. Дефинирайте полетата

Отворете Excel и в първия ред (започвайки от клетка A1) въведете имената на колоните, които искате да събирате. След това отворете таба Developer → Visual Basic. В прозореца на VBA изберете иконата A от Toolbox и я плъзнете върху UserForm1, където желаете първото поле. В прозореца Properties променете свойството Caption на етикета, напр. „Име“. Повторете за всички полета.

2. Добавете текстови полета

Изберете иконата TextBox от Toolbox и я позиционирайте вдясно от съответния етикет. Ако имате малко полета, можете да оставите името по подразбиране (TextBox1, TextBox2…). При повече полета препоръчваме да ги преименувате, за да съвпадат с етикетите – това прави кода по‑четим.

3. Добавете бутон “Изпрати”

От Toolbox изберете CommandButton (изглежда като стандартен бутон). Поставете го под последното текстово поле. Променете свойството Caption на „Изпрати данни“ (или подобно), за да информирате потребителя какво да направи.

4. Напишете VBA кода

Двоен клик върху бутона отваря прозореца за код. Въведете следното между Private Sub CommandButton1_Click() и End Sub:

Dim eRow As Long
 eRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 Sheet1.Cells(eRow, 1).Value = TextBox1.Text
 Sheet1.Cells(eRow, 2).Value = TextBox2.Text
 ' Добавете още редове за всички останали TextBox‑ове

Ако сте преименували TextBox‑овете, заменете TextBox1, TextBox2 и т.н. с вашите имена. След това натиснете бутона Run (зеленият триъгълник) за да тествате формуляра.

С тези прости стъпки ще можете да събирате данни от потребители чрез UserForm и автоматично да ги записвате в Excel листа.