Môžete použiť a Ovládanie RefEdit v Excel VBA získať rozsah od používateľa. The Užívateľská forma vytvoríme farby s minimálnou hodnotou rozsah uložené v ovládacom prvku RefEdit.
Ak chcete vytvoriť tento formulár používateľa, vykonajte nasledujúce kroky.
1. Otvorte editor jazyka Visual Basic. Ak Prieskumník projektov nie je viditeľný, kliknite na Zobraziť, Prieskumník projektu.
2. Kliknite na položku Vložiť, Používateľský formulár. Ak sa Panel s nástrojmi nezobrazí automaticky, kliknite na položku Zobraziť, Panel s nástrojmi. Vaša obrazovka by mala byť nastavená nižšie.
3. Pridajte štítok, ovládacie a príkazové tlačidlá RefEdit. Keď je to dokončené, výsledok by mal byť v súlade s obrázkom používateľského formulára zobrazeným skôr. Napríklad vytvorte ovládací prvok RefEdit kliknutím na RefEdit v Paneli s nástrojmi. Ďalej môžete na Userforme potiahnuť ovládací prvok RefEdit.
Poznámka: Ak váš panel nástrojov nemá ovládací prvok RefEdit, nastavte odkaz na ovládací prvok RefEdit. Kliknite na Nástroje, Referencie a začiarknite políčko Upraviť úpravu.
4. Môžete zmeniť názvy a titulky ovládacích prvkov. Mená sa používajú v kóde programu Excel VBA. Titulky sú tie, ktoré sa zobrazujú na vašej obrazovke. Je dobrým zvykom zmeniť názvy ovládacích prvkov, ale nie je to potrebné, pretože v tomto prípade máme iba niekoľko ovládacích prvkov. Ak chcete zmeniť popis tlačidiel Userform, Label a Command, kliknite na položku Zobraziť, Okno vlastností a kliknite na jednotlivé ovládacie prvky.
5. Ak chcete zobraziť formulár Userform, umiestnite na pracovný hárok príkazové tlačidlo a pridajte nasledujúci riadok kódu:
Súkromné sub CommandButton1_Click ()
UserForm1.Show
Koniec pod
Teraz vytvoríme podskupinu UserForm_Initialize. Keď pre metódu Userform použijete metódu Show, táto čiastka sa automaticky spustí.
6. Otvorte editor jazyka Visual Basic.
7. V programe Project Explorer kliknite pravým tlačidlom na UserForm1 a potom kliknite na položku Zobraziť kód.
8. V ľavom rozbaľovacom zozname vyberte položku Userform. V pravom rozbaľovacom zozname vyberte položku Inicializovať.
9. Pridajte nasledujúce riadky kódu:
Private Sub UserForm_Initialize ()
Sheet1.Cells.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Selection.Address
Koniec pod
Vysvetlenie: prvý riadok kódu mení farbu písma všetkých buniek na hárku 1 na čiernu. Druhý riadok kódu získa adresu aktuálneho výberu a zobrazí ho v ovládacom prvku RefEdit.
Teraz sme vytvorili prvú časť užívateľského formulára. Napriek tomu, že to už vyzerá úhľadne, nič sa nestane, keď klikneme na príkazové tlačidlá vo formulári Userform.
10. V programe Project Explorer dvakrát kliknite na položku UserForm1.
11. Dvakrát kliknite na tlačidlo Prejsť.
12. Pridajte nasledujúce riadky kódu:
Súkromné sub CommandButton1_Click ()
Dim addr As String, rng, cell As Range, minimum As Double
addr = RefEdit1.Hodnota
Nastaviť rng = rozsah (adresa)
minimum = WorksheetFunction.Min (rng)
Pre každú bunku V rng
Ak cell.Value = minimum, potom cell.Font.Color = vbRed
Ďalšia bunka
Koniec pod
Vysvetlenie: Najprv získame adresu z ovládacieho prvku RefEdit a uložíme ju do addr premennej String. Ďalej nastavíme rng na rozsah špecifikovaný v ovládači RefEdit. Ďalej použijeme funkciu pracovného hárka Min na nájdenie minimálnej hodnoty v rozsahu. Nakoniec zafarbíme minimálne hodnoty pomocou slučky.
13. Dvakrát kliknite na tlačidlo Zrušiť.
14. Pridajte nasledujúci riadok kódu:
Súkromný sub CommandButton2_Click ()
Vylož ma
Koniec pod
Vysvetlenie: tento riadok kódu zavrie formulár User, keď kliknete na tlačidlo Zrušiť.
15. Otestujte užívateľský formulár.
Výsledok:
