/ / Excel VBA Userform és tartományok

Excel VBA felhasználói formátum és tartományok

Használhat a RefEdit vezérlés ban ben Excel VBA hogy egy tartományt kapjon egy felhasználótól. A UserForm megteremtjük a színeket a legkisebb értéket hatótávolság a RefEdit vezérlőben.

Userform és tartományok Excel VBA-ban

A Userform létrehozásához hajtsa végre a következő lépéseket.

1. Nyissa meg a Visual Basic Editor alkalmazást. Ha a Project Explorer nem látható, kattintson a Nézet, a Project Explorer elemre.

2. Kattintson a Beszúrás, Felhasználóformátum elemre. Ha az Eszköztár nem jelenik meg automatikusan, kattintson a Nézet, Eszköztár elemre. A képernyő beállítása az alábbiak szerint történik.

Userform képernyőbeállítás az Excel VBA-ban

3. Adja hozzá a címkét, a RefEdit vezérlő és a parancsgombokat. Miután ez befejeződött, az eredménynek összhangban kell lennie a korábban bemutatott Userform képével. Hozzon létre például egy RefEdit vezérlőt, ha az Eszköztáron kattintson a RefEdit gombra. Ezután húzza a RefEdit vezérlőt a Userformon.

Megjegyzés: Ha az eszköztár nem rendelkezik RefEdit vezérléssel, állítson be egy referenciát a RefEdit vezérlőre. Kattintson a Tools (Eszközök), References (Referenciák) és a Ref Edit Control

4. Megváltoztathatja a vezérlők nevét és feliratait. A neveket az Excel VBA kódban használják. Feliratok azok, amelyek a képernyőn jelennek meg. Jó gyakorlat a vezérlők nevének megváltoztatása, de itt nem szükséges, mert ebben a példában csak néhány kontroll van. A Userform, a címke és a parancsgombok feliratának módosításához kattintson a Nézet, a Tulajdonságok ablakra, és kattintson az egyes vezérlőkre.

5. A Userform megjelenítéséhez helyezze a parancsgombot a munkalapra, és adja hozzá a következő kódot:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Most létrehozzuk a Sub UserForm_Initialize-t. Amikor a Userform metódust használja, ez a rész automatikusan végrehajtásra kerül.

6. Nyissa meg a Visual Basic Editor alkalmazást.

7. A Project Explorerben kattintson jobb gombbal a UserForm1-re, majd kattintson a View Code (Kód megtekintése) parancsra.

8. A bal oldali legördülő listáról válassza a Userform (Felhasználóformátum) lehetőséget. Válassza az Initialize lehetőséget a jobb legördülő listából.

9. Adja hozzá a következő kódsorokat:

Private Sub UserForm_Initialize()

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

End Sub

Magyarázat: Az első kódsor megváltoztatja az 1. lapon lévő összes cellatípus fekete-fehér színét. A második kódsor megkapja az aktuális kijelölés címét, és megjeleníti azt a RefEdit vezérlőben.

Most létrehoztuk a Userform első részét. Bár már jól néz ki, még akkor sem történik semmi, amikor rákattintunk a Userform parancs gombjaira.

10. A Project Explorer programban kattintson duplán a UserForm1-re.

11. Kattintson duplán a Go gombra.

12. Adja hozzá a következő kódsorokat:

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

Magyarázat: először megkapjuk a címet a RefEdit vezérlőből és tároljuk a String változó addr. Ezután beállítjuk a rng értéket a RefEdit vezérlőben meghatározott tartományba. Ezután a Min munkalap funkciót használva megtaláljuk a minimális értéket a tartományban. Végül a minimális értéket egy hurok segítségével színezzük.

13. Kattintson duplán a Mégse gombra.

14. Adja hozzá a következő kódot:

Private Sub CommandButton2_Click()

Unload Me

End Sub

Magyarázat: ez a kódsor bezárja a Userform-ot, ha a Mégse gombra kattint.

15. Vizsgálja meg a használati utasítást.

Eredmény:

Userform és Ranges eredmény

Szintén olvasható: