Jak zaznamenat data z UserForm do listu Excel

Excel umožňuje pomocí jazyka Visual Basic (VBA) rozšířit funkčnost tabulek. Jedním z užitečných nástrojů jsou UserForm, které poskytují samostatný vstupní formulář. Tento formulář je ideální pro sběr informací od uživatelů, kteří nejsou zvyklí pracovat přímo s listem. Níže najdete podrobný návod, jak vytvořit formulář a automaticky ukládat zadaná data do nových řádků listu.

1. Definujte sloupce v listu

Otevřete Excel a do první řady (A1, B1, C1 …) zadejte názvy polí, která chcete sbírat (např. Jméno, Příjmení, E‑mail). Tím vytvoříte strukturu, do které budou data ukládána.

2. Vytvořte UserForm

Na kartě Developer klikněte na Visual Basic. V editoru VBA vyberte Insert → UserForm. Z panelu Toolbox přetáhněte ikonu Label a umístěte ji na požadované místo ve formuláři. V okně Properties změňte vlastnost Caption na popis pole, např. „Jméno“. Opakujte pro všechna pole, která jste definovali v listu.

3. Přidejte textová pole

Vyberte ikonu TextBox a umístěte textové pole vedle každého popisku. Pokud používáte jen několik polí, můžete ponechat výchozí názvy (TextBox1, TextBox2 …). Při větším počtu polí je vhodné je přejmenovat tak, aby odpovídaly popiskům (např. txtJmeno, txtPrijmeni). Každý popisek musí mít odpovídající textové pole.

4. Vložte tlačítko pro odeslání

V Toolbox klikněte na ikonu CommandButton a přetáhněte ji pod poslední textové pole. V Properties změňte Caption na „Odeslat data“ nebo podobně, aby uživatel věděl, co má udělat.

5. Přidejte VBA kód

Poklepáním na tlačítko otevřete jeho událost Click. Do procedury vložte následující kód:

Private Sub CommandButton1_Click()
    Dim eRow As Long
    ' Najde první volný řádek v listu 1
    eRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

    ' Přenese hodnoty z textových polí do listu
    Sheet1.Cells(eRow, 1).Value = txtJmeno.Text
    Sheet1.Cells(eRow, 2).Value = txtPrijmeni.Text
    Sheet1.Cells(eRow, 3).Value = txtEmail.Text
    ' … přidejte další řádky podle počtu polí …

    ' Volitelně vyprázdní pole po odeslání
    txtJmeno.Text = ""
    txtPrijmeni.Text = ""
    txtEmail.Text = ""
End Sub

Upravte názvy textových polí a sloupcové indexy tak, aby odpovídaly vašemu nastavení. Poté klikněte na tlačítko Run (nebo stiskněte F5) a formulář bude připraven k zadávání dat.

6. Testujte a použijte

Spusťte formulář (např. pomocí makra UserForm1.Show) a vyplňte data. Po kliknutí na tlačítko „Odeslat data“ se informace automaticky zapíší do nového řádku vašeho listu.