V aplikaci Excel můžete pomocí jazyka Visual Basic přidat do svých tabulek řadu různých funkcí, včetně „UserForms“. Prostřednictvím UserForms můžete uživateli zobrazit vstupní formulář, který je oddělen od hlavního listu, což je užitečné pro sběr dat od jednotlivců, kteří nemusí znát tabulky. S malým kódem jazyka Visual Basic můžete všechna tato data přidat do tabulky v nových řádcích.
Definujte svá pole
Spusťte Excel. Zadejte názvy všech polí, která chcete zachytit, do horního řádku. Začněte od „A1“ a pokračujte doprava. Klikněte na „Vývojář“ a poté na „Visual Basic“. Zobrazí se okno jazyka. Klikněte na ikonu „A“ na panelu nástrojů a klikněte a táhněte uvnitř okna „UserForm1“ na místo, kam chcete přejít do prvního pole formuláře. Upravte štítek změnou vlastnosti „Titulek“ na něco popisnějšího, například „Jméno“. Vytvořte štítek pro každé z polí, která jste zadali v listu.
Přidejte svá textová pole
Na panelu nástrojů vyberte ikonu „TextBox“ a přetáhněte textové pole vpravo od prvního štítku. Pokud budete používat pouze několik polí, je přijatelné ponechat vlastnost „(Název)“ 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 štítkům, které jste již vytvořili. Ujistěte se, že každý štítek má odpovídající textové pole.
Přidat tlačítko Odeslat
Klikněte na ikonu „Příkazové tlačítko“ na panelu nástrojů, která vypadá jako standardní tlačítko ve stylu Windows. Klikněte a přetáhněte jej na požadovanou velikost a umístění v UserForm1. Obvykle to budete chtít pod nebo blízko konečného textového pole ve formuláři. Změňte vlastnost tlačítka „Titulek“ na „Odeslat data“ nebo něco podobného, což uživateli naznačuje, že musí kliknout na toto tlačítko, aby mohl odeslat svá data.
Přidejte kód jazyka
Poklepejte na tlačítko. Zadejte následující kód mezi “Soukromý Sub” a “End Sub”:
eRow = Sheet1.Cells (Rows.Count, 1) .End (xlUp) .Offset (1,0) .Row
Poté začněte nový řádek pod tímto a poté zadejte následující:
Buňky (erow, 1) = TextBox1.Text
Pokud jste přejmenovali svá textová pole, změňte „TextBox1“ na název, který jste dali prvnímu textovému poli. Udělejte to pro každé vytvořené vstupní pole, začněte nový řádek a podle potřeby zadejte správné názvy textových polí. Také pro každý nový řádek zvyšte číslo v závorkách o jednu. Například následující řádek může vypadat takto:
Buňky (erow, 2) = TextBox2.Text
Kliknutím na tlačítko „Přehrát“ v horní části okna zahájíte sběr dat.
