Jak zachytit data z UserForms do aplikace Excel Worksheet

Pomocí aplikace Excel můžete pomocí jazyka přidat řadu různých funkcí do tabulek, včetně „UserForms“. Prostřednictvím UserForms můžete zobrazit vstupní formulář Uživatel, který je oddělen od hlavního listu, který je užitečný pro sběr dat od jednotlivců, kteří nemusí být obeznámeni s tabulkami. S malým kódem jazyka Visual Basic můžete přidat všechna tato data do tabulky v nových řádcích.

Definovat pole
Spustit aplikaci Excel. Zadejte názvy všech polí, která chcete zachytit v horním řádku, počínaje písmenem „A1“ a vpravo. Klikněte na „Developer“ a poté klikněte na „Visual Basic“. Zobrazí se okno Visual Basic. Klikněte na ikonu „A“ v panelu nástrojů a klepněte a přetáhněte uvnitř okna „UserForm1“ v místě, kam chcete své první pole formuláře přejít. Štítek upravte změnou vlastnosti „Titulek“ na něco popisnějšího, například „Jméno“, například. Vytvořte popisek pro všechna pole, která jste zadali na listu.

Přidat textová pole
Vyberte ikonu „TextBox“ z panelu nástrojů a přetáhněte textové pole napravo od prvního štítku. Pokud používáte pouze několik polí, je vhodné ponechat vlastnost „(Jméno)“ jako výchozí „TextBox1“. Pokud však potřebujete velký počet polí, mohlo by to být matoucí, takže byste je měli upravit tak, aby odpovídaly již vytvořeným štítkům. h3> Přidat tlačítko pro odeslání
Klikněte na ikonu „Příkazové tlačítko“ v panelu nástrojů, který vypadá jako standardní tlačítko ve stylu Windows. Klepněte a přetáhněte ji na požadovanou velikost a umístění v UserForm1. níže nebo poblíž konečného textového pole ve formuláři Změňte vlastnost „Titulek“ na tlačítko „Odeslat data“ “Nebo něco podobného, ​​označujícímu uživateli, že musí klepnutím na toto tlačítko odeslat svá data.

Přidat kód jazyka
Dvakrát klikněte na tlačítko. Zadejte následující kód mezi „Private Sub“ a „End Sub“: eRow = Sheet1.Cells (Rows.Count, 1) .End (xlUp) .Offset (1,0) .Row Poté spusťte nový řádek pod tímto a pak zadejte následující: Buňky (erow, 1) = TextBox1.Text Pokud přejmenujete textová pole, změňte „TextBox1“ na jméno, které jste zadali jako první textové pole. Udělejte to pro každé vstupní pole, které jste vytvořili, spusťte nový řádek a případně zadejte správné názvy textových polí. Pro každý nový řádek také zvětšete číslo v závorkách o jeden. Například následující řádek může vypadat takto: Buňky (erow, 2) = TextBox2.Text Klepnutím na tlačítko „Přehrát“ v horní části okna spustíte sběr dat.
URL:https://cs.whycomputer.com/Software/100111705.html