UserForm VBA - Jak vytvořit UserForm v Excelu pomocí kódu VBA?

Obsah:

Anonim

Excel VBA UserForm

V Excelu VBA máme velmi užitečný nástroj známý jako UserForm. Je to praktický způsob, jak získat informace od uživatele. Co je UserForm ve VBA? UserForm je jako průvodce nebo dialogové okno, ve kterém žádáme uživatele o zadání dat a obsahuje v něm několik pokynů.

VBA UserForm je také vestavěný v Excelu a může být vytvořen vývojáři. Chcete-li nejprve použít uživatelský formulář VBA, musíme aktivovat kartu vývojáře na kartě Možnosti. Jakmile je karta vývojáře aktivována, můžeme pokračovat v Excelu VBA a vytvořit UserForms. Uživatelské formuláře se používají k ukládání dat ve formátu Excel. Lze ji porovnat s formuláři google, kde máme konkrétní sadu pokynů a požádat uživatele o zadání dat podle pokynů.

UserForm je široce používán všude. V UserForm se data zadaná uživatelem uloží do odpovídajícího sloupce. Je to nejpraktičtější způsob, jak v Excelu převzít vstup od uživatele a ukládat data v Excelu relativně na správném místě.

Jak vytvořit UserForm v Excelu VBA?

Níže jsou uvedeny různé příklady vytvoření UserForm v Excelu pomocí kódu VBA.

Tuto šablonu aplikace VBA UserForm Excel si můžete stáhnout zde - šablonu aplikace VBA UserForm Excel

UserForm Excel VBA - Příklad č. 1

Nejprve se vraťme k základům UserForm. Jak zobrazit UserForm a co je UserForm.

  • V listu aplikace Excel přejděte na kartu Vývojář a klepněte na editor jazyka.

  • Jak nyní přidáme uživatelský formulář na tuto prázdnou obrazovku? V nástroji pro vkládání klikněte na UserForms.

  • Otevře se nové okno průvodce, které je prázdné, což je náš prázdný uživatelský formulář.

  • V současné době se nazývá userform1, protože jsme ji nezadali. Můžeme to udělat změnou jeho názvu z možnosti Vlastnosti v levé části obrazovky.

  • Změňte název na vzorový formulář a podívejte se na výsledek.

Náš uživatelský formulář je nyní pojmenován jako vzorek.

  • Nyní zkusme změnit barvu uživatelského formuláře. V panelu nástrojů vlastností jsme dostali rozevírací seznam s názvem back back, můžeme vybrat libovolnou sadu barev, které chceme.

  • Poté, co jsem vybral možnost černé barvy, byla barva mého vzorku UserForm změněna následovně,

  • Jak spustíme tento uživatelský formulář? Ujistěte se, že jsme klikli na samotný uživatelský formulář a klikněte na tlačítko Spustit zobrazené na níže uvedeném snímku obrazovky. Když klikneme na tlačítko Spustit, uvidíme, že se na obrazovce Excel objeví prázdný formulář.

Nemá jiné možnosti, než jej zavřít, protože jsme do něj nepřidali žádná další tlačítka.

UserForm Excel VBA - Příklad č. 2

Podívejme se, jak přidat tlačítka do uživatelského formuláře pro zadávání dat v Excel VBA. Vytvoříme jednoduchý uživatelský formulář VBA, ve kterém požádáme uživatele o zadání jeho jména, věku a pohlaví. Kroky, které se podílejí na vytváření takovéto uživatelské formy, jsou následující.

  • V listu aplikace Excel přejděte na kartu vývojáře a klikněte na editor jazyka Visual Basic.

  • Nyní na kartě Vložit klikněte na uživatelský formulář a otevřete okno uživatelského formuláře.

  • Abychom získali vstup od uživatele, musíme do tohoto uživatelského formuláře přidat tlačítka. Vidíme, že vedle našeho uživatelského formuláře, který má ovládací tlačítka, se otevírá také sada nástrojů.

Tato sada nástrojů obsahuje různé ovládací prvky, které se používají v UserForms.

  • Například pro náš příklad potřebujeme, aby uživatel zadal jméno, věk a pohlaví. V zásadě potřebujeme tři štítky, které budou představovat naše pokyny. Klikněte na Štítky .

  • Umístěte kurzor myši na uživatelský formulář a kliknutím a tažením vložte do uživatelského formuláře štítek.

  • V současné době je pojmenován jako štítek 1, abychom mohli instrukci uživateli změnit název štítku na „ Název “. Klikněte na štítek a odstraňte poskytnutý výchozí název a vložte nový název.

  • Nyní vložte štítek pro věk a pohlaví podobným způsobem a přejmenujte je.

  • Nyní vedle štítků je třeba vložit textové pole, aby uživatel mohl zadávat hodnoty. Z ovládacích prvků panelu nástrojů klikněte na TextBox

  • Umístěte kurzor myši na štítky a klikněte na formulář.

  • Nyní vložíme příkazové tlačítko do uživatelského formuláře, který pro nás data uloží. Z ovládacích prvků panelu nástrojů klikněte na CommandButton .

  • Umístěte kurzor na formulář.

  • Změňte titulek CommandButton1 na „Odeslat“ .

  • Vložte jeden CommandButton a nazvejte jej „ Zrušit “.

  • Dalším krokem je přejmenování každého z textových polí, abychom je mohli snadno použít v našich kódech. Pro jméno přejmenujte textové pole proti němu jako Nameva na hodnotu názvu a na věk jako Ageva podobně na pohlaví jako Genderva na hodnotu pohlaví,

  • Spusťte UserForm kliknutím na tlačítko přehrávání nebo stisknutím klávesy F5.

  • Do listu Excel zapište záhlaví pro data tak, jak je uvedeno níže.

  • Dvojitým kliknutím na tlačítko Odeslat se nám otevře okno s kódem pro tlačítko Odeslat následujícím způsobem.

Kód:

 Private Sub CommandButton1_Click () End Sub

  • V okně kódu deklarujte proměnnou, jak je uvedeno níže.

Kód:

 Private Sub CommandButton1_Click () Dim A jako Long End Sub

  • Nyní přesuneme první volnou buňku do prvního sloupce s následujícím kódem.

Kód:

 Private Sub CommandButton1_Click () Dim A A Long A = Cells (Rows.Count, 1) .End (xlUp) .Row + 1 End Sub

  • Uložme hodnotu poskytnutou uživatelem do listu pomocí následujícího kódu.

Kód:

 Private Sub CommandButton1_Click () Dim A Tak Long A = Cells (Rows.Count, 1) .End (xlUp) .Row + 1 Cells (A, 1) .Value = Nameva.Value Cells (A, 2) .Value = Ageva .Value Cells (A, 3) .Value = Genderva.Value Nameva.Value = "" Ageva.Value = "" Genderva.Value = "" End Sub

  • Nyní dvakrát klikněte na tlačítko Storno, zobrazí se vám také název automatického makra jako je tento.

Kód:

 Private Sub CommandButton2_Click () End Sub

  • Použijte níže uvedený kód.

Kód:

 Private Sub CommandButton2_Click () UserForm1.Hide End Sub

  • Spusťte uživatelský formulář z poskytnutého spouštěcího tlačítka nebo stisknutím klávesy F5 a získáme následující výsledek.

  • Hodnoty zadejte do textových polí následujícím způsobem.

  • Stisknutím tlačítka Odeslat zobrazíte výsledek v Excelu následujícím způsobem.

Takto vytváříme uživatelský formulář, abychom získali data od uživatele.

Co si pamatovat

  • Uživatelské formuláře jsou vestavěny nebo mohou být vytvořeny vývojářem ve VBA.
  • Vlastnosti uživatelského formuláře lze změnit z pole průvodce vlastnostmi ve VBA.
  • Uživatelské formuláře musí mít tlačítka pro načtení dat od uživatele.
  • Chcete-li spustit uživatelský formulář, ujistěte se, že je vybraný uživatelský formulář.

Doporučené články

Toto je průvodce VBA UserForm. Zde diskutujeme o tom, jak vytvořit UserForm v Excelu pomocí kódu VBA, spolu s několika praktickými příklady a šablonou Excel ke stažení. Můžete si také prohlédnout naše další doporučené články -

  1. VBA TextBox
  2. Vytvořte šablonu Excel
  3. Seznam VBA
  4. Vytvořte tabulku v Excelu
  5. VBA kód v Excelu
  6. Excel VBA Zavřít UserForm