Jak přenést data UserForm do listu

Obsah

Pokyny
Jak přenášet data z UserForm listu
Jak
Oznámení
Co potřebujete

UserForms, nazývané také "dialogová okna", jsou grafická okna, která umožňují uživatelům vyplnit informace v polích a vložit taková data do tabulek aplikace Excel. UserForm je vložen v aplikaci Excel a spustí při otevření souboru aplikace Excel, obvykle prostřednictvím makra. Protože UserForms využívá jazyka jazyka Visual Basic, mohou být přizpůsobeny tak, aby zajistily, že data zadaná v jejich polích budou před přenosem do tabulky aplikace Excel dokončena a platná.

Pokyny

Excel UserForms jsou vynikající způsob, jak zajistit platné a čisté zadávání dat (obraz binárních dat pomocí rgbspace z Fotolia.com)

Jak přenášet data z UserForm listu

Otevřete Excel a vytvořte nový list kliknutím na položku "Soubor" a výběrem "Nový". Uložte soubor jako "updated_sheet.xls".
Otevřete pracovní list a spusťte editor Visual Basic stisknutím klávesy "Alt" + "F11". Vytvořit nový UserForm klepnutím na nabídku "Vložit" a výběrem "UserForm". Název UserForm pro "transferForm" změnou atributu "název" v nabídce vlastností. Změňte atribut "Titulek" na "transferForm".
Přidat textové pole do formuláře výběrem v panelu nástrojů přetažením a jeho přetažení na formulář. Pojmenujte textové pole jako "transferInput" v okně vlastností. Není-li panel nástrojů otevřen, přejděte na položku Zobrazit a panel nástrojů.
Do formuláře přidejte tlačítko aktualizace. Z panelu nástrojů vyberte příkazové tlačítko, přetáhněte jej a přetáhněte na formulář. Pojmenujte příkazové tlačítko "transferButton" v okně vlastností a změňte atribut "Titulek" na "Obnovit list".
Chcete-li formulář zavřít, přidejte tlačítko. Vyberte druhé "příkazové tlačítko" z panelu nástrojů, přetáhněte jej a přetáhněte na formulář. Pojmenujte příkazové tlačítko jako "closeButton" v okně vlastností a změňte atribut "Caption" na "Close Form".
Otevřete editor Visual Basic poklepáním na tlačítko "transferButton". Zadejte následující kód do funkce "transferButton_click ()", která přenese všechny vyplněné informace do textového pole do pracovního listu "worksheet_dual.xls", když uživatel klepne na tlačítko. Zavřete editor kódů.

Private Sub transferButton_Click () Dim transferWorksheet jako sešit Nastavit transferWorksheet = Listy ("List1") transferWorksheet.Cells (1,1) .Value = Me.transferInput.Value End Sub
Znovu otevřete editor kódu jazyka poklepáním na tlačítko "closeButton". Vložte následující kód do funkce "closeButton_Click ()", která zavře formulář, když uživatel klepne na tlačítko. Zavřete editor kódů.

Soukromé Sub closeButton_Click () Unload Me End Sub
Spusťte kód formuláře klepnutím na tlačítko "Spustit" a potom "Spustit Sub / UserForm". Vyplňte textové pole a klikněte na tlačítko "transferButton". Ověřte, zda byla data správně přenesena do první buňky v listu. Uložte a zavřete UserForm.
Použijte proceduru události Excel otevřete UserForm při otevření listu. Otevřete "Project Explorer" a poklepejte na okno "ThisWorkbook". Vložit makro níže, které se otevře formulář při otevření listu. Uložit a zavřít jazyka.

Private Sub Workbook_Open () transferForm.Show End Sub
Znovu otevřete soubor "updated_sheet.xls". Otevře se formulář. Zadejte text do pole a klikněte na tlačítko "transferButton". Text, který vyplníte, bude přenesen do první buňky listu.

Jak

Chcete-li otevřít okno Vlastnosti nebo Průzkumník projektu, vyberte položky nabídky "Zobrazit" v editoru jazyka.
Chcete-li změnit velikost ovládacích prvků přidaných ve formuláři, použijte malé čtverečky, které se zobrazí při výběru ovládacího prvku.
Chcete-li uživatelům zabránit v zadávání neplatných dat, zkuste do formuláře přidat ověření.