/ / Excel a VBA používateľské formáty a rozsahy

Excel VBA užívateľských foriem a rozsahov

Môžete použiť a Ovládanie RefEdit v Excel VBA aby získal rozsah od používateľa. UserForm budeme vytvárať farby minimálnej hodnoty rozsah uložené v ovládacom prvku RefEdit.

Formy používateľa a rozsahy v programe Excel VBA

Ak chcete vytvoriť tento Userform, vykonajte nasledujúce kroky.

1. Otvorte Editor jazyka. Ak nástroj Project Explorer nie je viditeľný, kliknite na položku Zobraziť, Project Explorer.

2. Kliknite na Insert, Userform. Ak sa panel nástrojov nezobrazí automaticky, kliknite na položku Zobraziť, panel s nástrojmi. Obrazovka by mala byť nastavená tak, ako je uvedené nižšie.

Nastavenie obrazovky používateľa v programe Excel VBA

3. Pridajte štítok, ovládací prvok RefEdit a príkazové tlačidlá. Po dokončení tohto výsledku by mal byť výsledok v súlade s obrázkom užívateľa, ktorý je zobrazený skôr. Napríklad vytvorte ovládací prvok RefEdit kliknutím na RefEdit z panelu nástrojov. Potom môžete pretiahnuť ovládací prvok RefEdit na Userform.

Poznámka: Ak vaša sada nástrojov nemá ovládací prvok RefEdit, nastavte odkaz na ovládací prvok RefEdit. Kliknite na Nástroje, odkazy a začiarknite políčko Ref Edit Control.

4. Môžete zmeniť názvy a popisy ovládacích prvkov. Názvy sa používajú v kóde programu Excel VBA. Titulky sú tie, ktoré sa zobrazujú na vašej obrazovke. Správna prax je zmeniť mená ovládacích prvkov, nie je to však potrebné, pretože v tomto príklade máme len niekoľko kontrol. Ak chcete zmeniť popis tlačidiel Userform, label a command, kliknite na View, Properties Properties a kliknite na každý ovládací prvok.

5. Ak chcete zobraziť Userform, umiestnite do pracovného hárka príkazové tlačidlo a pridajte nasledujúci riadok kódu:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Teraz vytvoríme Sub UserForm_Initialize. Ak použijete metódu Show for Userform, táto podstata sa automaticky vykoná.

6. Otvorte Editor jazyka.

7. V programe Project Explorer kliknite pravým tlačidlom na UserForm1 a potom kliknite na View Code.

8. V ľavom rozbaľovacom zozname vyberte položku Userform. V pravom rozbaľovacom zozname vyberte možnosť Inicializovať.

9. Pridajte nasledujúce riadky kódu:

Private Sub UserForm_Initialize()

Sheet1.Cells.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Selection.Address

End Sub

Vysvetlenie: prvý riadok kódu zmení farbu písma všetkých buniek na hárku1 na čierny. Druhý riadok kódu získa adresu aktuálneho výberu a zobrazí ho v ovládacom prvku RefEdit.

Teraz sme vytvorili prvú časť Userform. Aj keď to vyzerá dobre, nič sa nestane, keď klikneme na tlačidlá príkazu na Userform.

10. V programe Project Explorer dvakrát kliknite na UserForm1.

11. Dvakrát kliknite na tlačidlo Prejsť.

12. Pridajte nasledujúce riadky kódu:

Private Sub CommandButton1_Click()

Dim addr As String, rng, cell As Range, minimum As Double

addr = RefEdit1.Value
Set rng = Range(addr)
minimum = WorksheetFunction.Min(rng)

For Each cell In rng
    If cell.Value = minimum Then cell.Font.Color = vbRed
Next cell

End Sub

vysvetlenie: najprv dostaneme adresu z ovládacieho prvku RefEdit a uložíme ho do reťazca premennej addr. Ďalej nastavíme hodnotu rng na rozsah špecifikovaný v ovládacom prvku RefEdit. Ďalej používame funkciu minimálneho pracovného hárka, aby sme našli minimálnu hodnotu v rozsahu. Nakoniec zafarbime minimálnu hodnotu (s) pomocou slučky.

13. Dvakrát kliknite na tlačidlo Zrušiť.

14. Pridajte nasledujúci riadok kódu:

Private Sub CommandButton2_Click()

Unload Me

End Sub

Vysvetlenie: tento riadok kódu zatvára Userform po kliknutí na tlačidlo Zrušiť.

15. Vyskúšajte Userform.

výsledok:

Výsledok formátu používateľa a rozsahov

Tiež si prečítajte: