Můžete použít a Ovládání RefEdit v Excel VBA získat rozsah od uživatele. The Formulář uživatele vytvoříme barvy o minimální hodnotě rozsah uloženy v ovládacím prvku RefEdit.
Chcete -li vytvořit tento Userform, proveďte následující kroky.
1. Otevřete editor jazyka. Pokud Průzkumník projektů není viditelný, klikněte na Zobrazit, Průzkumník projektů.
2. Klikněte na Vložit, Uživatelská forma. Pokud se Panel nástrojů nezobrazí automaticky, klikněte na Zobrazit, Panel nástrojů. Obrazovka by měla být nastavena níže.
3. Přidejte štítek, ovládací a ovládací tlačítka RefEdit. Jakmile to bude dokončeno, výsledek by měl být v souladu s obrázkem formuláře uživatele zobrazeným dříve. Například vytvořte ovládací prvek RefEdit kliknutím na RefEdit z panelu nástrojů. Dále můžete přetáhnout ovládací prvek RefEdit na Userform.
Poznámka: Pokud vaše sada nástrojů nemá ovládací prvek RefEdit, nastavte odkaz na ovládací prvek RefEdit. Klikněte na Nástroje, Reference a zaškrtněte volbu Upravit odkaz.
4. Můžete změnit názvy a titulky ovládacích prvků. Jména se používají v kódu Excel VBA. Titulky jsou ty, které se zobrazují na vaší obrazovce. Je dobrým zvykem změnit názvy ovládacích prvků, ale není to nutné, protože v tomto příkladu máme jen několik ovládacích prvků. Chcete -li změnit popisek tlačítek Userform, Label a Command, klikněte na View, Window Properties a klikněte na každý ovládací prvek.
5. Chcete -li zobrazit formulář Userform, umístěte na list příkazové tlačítko a přidejte následující řádek kódu:
Private Sub CommandButton1_Click ()
UserForm1.Show
End Sub
Nyní se chystáme vytvořit Sub UserForm_Initialize. Když použijete metodu Showform pro Userform, tento dílčí díl bude automaticky spuštěn.
6. Otevřete editor jazyka.
7. V aplikaci Project Explorer klepněte pravým tlačítkem na UserForm1 a poté klepněte na Zobrazit kód.
8. Z rozevíracího seznamu vlevo vyberte Userform. V pravém rozevíracím seznamu vyberte položku Inicializovat.
9. Přidejte následující řádky kódu:
Private Sub UserForm_Initialize ()
Sheet1.Cells.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Selection.Address
End Sub
Vysvětlení: první řádek kódu změní barvu písma všech buněk na listu1 na černou. Druhý řádek kódu získá adresu aktuálního výběru a zobrazí ji v ovládacím prvku RefEdit.
Nyní jsme vytvořili první část Userform. Ačkoli to už vypadá úhledně, nic se ještě nestane, když klikneme na příkazová tlačítka na Userform.
10. V aplikaci Project Explorer dvakrát klikněte na UserForm1.
11. Poklepejte na tlačítko Přejít.
12. Přidejte následující řádky kódu:
Private Sub CommandButton1_Click ()
Dim addr As String, rng, cell As Range, minimum As Double
addr = RefEdit1.Hodnota
Nastavit rng = rozsah (addr)
minimum = WorksheetFunction.Min (rng)
Pro každou buňku v rng
If cell.Value = minimum Then cell.Font.Color = vbRed
Další buňka
End Sub
Vysvětlení: Nejprve získáme adresu z ovládacího prvku RefEdit a uložíme ji do proměnné String addr. Dále nastavíme rng na rozsah určený v ovládacím prvku RefEdit. Dále použijeme funkci listu k nalezení minimální hodnoty v rozsahu. Nakonec pomocí smyčky vybarvíme minimální hodnoty.
13. Poklepejte na tlačítko Storno.
14. Přidejte následující řádek kódu:
Private Sub CommandButton2_Click ()
Vyložit mě
End Sub
Vysvětlení: tento řádek kódu zavře formulář uživatele, když kliknete na tlačítko Storno.
15. Otestujte uživatelský formulář.
Výsledek:
