/ / Excel kolekce VBA

Excel VBA Collection Collection

Při vytváření Userforms v Excel VBA, můžete použít Sběr kontrol jednoduše přemístit ovládací prvky a nastavit vlastnost každého ovládacího prvku na určitou hodnotu.

Uživatelský formulář, který vytvoříme, vypadá takto:

Kontrola kolekce v aplikaci Excel VBA

Chcete-li vytvořit tento Userform, proveďte následující kroky:

1. Otevřete editor jazyka. Pokud aplikace Project Explorer není viditelná, klepněte na tlačítko Zobrazit, Project Explorer.

2. Klepněte na tlačítko Vložit, Formát uživatele. Pokud se panel nástrojů nezobrazí automaticky, klikněte na tlačítko Zobrazit, panel nástrojů. Vaše obrazovka by měla být nastavena níže.

Uživatelské nastavení obrazovky v aplikaci Excel VBA

3. Přidejte štítek, textové pole (nejprve v horní části, druhou pod první a podobně) a příkazové tlačítko. Jakmile je tento postup dokončen, výsledek by měl být v souladu s obrázkem výše uvedeného formuláře User. Například vytvořte ovládací prvek textového pole klepnutím na TextBox z panelu nástrojů. Dále můžete přetáhnout textové pole v formuláři Userform.

4. Chcete-li změnit popis tlačítka Userform, štítek a příkazu, klepněte na tlačítko Zobrazit, okno Vlastnosti a klepněte na každý ovládací prvek.

5. Chcete-li zobrazit Userform, umístěte příkazové tlačítko na pracovní list a přidejte následující řádek:

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

Vysvětlení: přidáním příkazu vbModeless můžete použít Userform a pracovat ve vašem pracovním listu najednou.

Nyní jsme vytvořili první část Userform. Ačkoli to vypadá dokonale, nic se nestane, když klikneme na příkazové tlačítko Userform.

6. Otevřete editor jazyka.

7. V Průzkumníkovi projektu poklepejte na UserForm1.

8. Dvakrát klikněte na příkazové tlačítko.

9. Přidejte následující řádky kódů:

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 1 To 10
    Controls("TextBox" & i).Value = Cells(i + 1, 1).Value
Next i

End Sub

Vysvětlení: S pouhými pár řádků kódu můžeme vyplňovat textová pole s telefonními čísly z listu. Použili jsme operátor & spojit elementy. Tyto řádky kódu fungují, protože jsme nezměnili názvy ovládacích prvků textového pole (TextBox1, TextBox2, TextBox3 atd.). Chcete-li změnit názvy ovládacích prvků, klepněte na tlačítko Zobrazit, okno Vlastnosti a klepněte na každý ovládací prvek.

Výsledek po klepnutí na příkazové tlačítko na listu:

Výsledek sběru kontrol

Také si přečtěte: