Használhatja a RefEdit vezérlés ban ben Excel VBA hogy egy tartományt kapjon a felhasználótól. Az Userform színeket fogunk létrehozni a minimális értéknek hatótávolság a RefEdit vezérlőben tárolja.
A Userform létrehozásához hajtsa végre az alábbi lépéseket.
1. Nyissa meg a Visual Basic Editor programot. Ha a Project Explorer nem látható, kattintson a View, Project Explorer elemre.
2. Kattintson a Beszúrás, Userform elemre. Ha az Eszköztár nem jelenik meg automatikusan, kattintson a Nézet, Eszköztár elemre. A képernyőt az alábbiak szerint kell beállítani.
3. Adja hozzá a címkét, a RefEdit vezérlő- és parancsgombokat. Ha ez befejeződött, az eredménynek összhangban kell lennie a Userform korábban bemutatott képével. Például hozzon létre egy RefEdit vezérlőt az Eszköztár RefEdit elemére kattintva. Ezután húzza a RefEdit vezérlőt a Userformon.
Megjegyzés: Ha az eszköztár nem rendelkezik RefEdit vezérlővel, állítson be egy hivatkozást a RefEdit vezérlésre. Kattintson az Eszközök, Referenciák elemre, és jelölje be a Ref Edit Control elemet.
4. Megváltoztathatja a vezérlők nevét és feliratát. A neveket az Excel VBA kódja használja. A feliratok azok, amelyek megjelennek a képernyőn. Jó gyakorlat a vezérlők nevének megváltoztatása, de itt erre nincs szükség, mert ebben a példában csak néhány vezérlő található. A Userform, a címke és a parancsgombok feliratának megváltoztatásához kattintson a Nézet, Tulajdonságok ablak, majd kattintson az egyes vezérlőelemekre.
5. A Userform megjelenítéséhez tegyen egy parancsgombot a munkalapra, és adja hozzá a következő kód sort:
Privát alparancsButton1_Click ()
UserForm1.Show
End Sub
Most létrehozzuk a Sub UserForm_Initialize almenüt. Ha a Showform módot használja a Userformhoz, ez az alprogram automatikusan végrehajtásra kerül.
6. Nyissa meg a Visual Basic Editor programot.
7. A Project Explorerben kattintson jobb gombbal a UserForm1 elemre, majd kattintson a Kód megtekintése parancsra.
8. Válassza a Userform lehetőséget a bal oldali legördülő listából. Válassza az Inicializálás lehetőséget a jobb oldali legördülő listából.
9. Adja hozzá a következő kódsorokat:
Privát alfelhasználóForm_Initialize ()
Sheet1.Cells.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Selection.Address
End Sub
Magyarázat: az első kódsor az 1. lapon található összes cella betűszínét fekete színre változtatja. A második kódsor megkapja az aktuális kiválasztás címét, és megjeleníti azt a RefEdit vezérlőben.
Elkészítettük a Userform első részét. Bár már elegánsnak tűnik, még semmi sem fog történni, ha rákattintunk a Userform parancssorára.
10. A Project Explorerben kattintson duplán a UserForm1 elemre.
11. Kattintson duplán az Ugrás gombra.
12. Adja hozzá a következő kódsorokat:
Privát alparancsButton1_Click ()
Dim addr Mint String, rng, cell As Range, minimum As Double
addr = RefEdit1.Value
Állítsa be az rng = tartományt (addr)
minimum = WorksheetFunction.Min (rng)
Minden cellához In rng
Ha cella.Érték = minimum Akkor cell.Font.Color = vbRed
Következő cella
End Sub
Magyarázat: először a RefEdit vezérlőtől kapjuk meg a címet, és tároljuk a String változó addr -ban. Ezután az rng -t a RefEdit vezérlőben megadott tartományra állítjuk. Ezután a Min munkalap funkciót használva keressük meg a tartomány minimális értékét. Végül egy ciklus segítségével színezzük ki a minimális értéket.
13. Kattintson duplán a Mégse gombra.
14. Adja hozzá a következő kód sort:
Privát alparancsButton2_Click ()
Tölts ki engem
End Sub
Magyarázat: ez a kódsor bezárja a felhasználói űrlapot, ha a Mégse gombra kattint.
15. Tesztelje a Userformot.
Eredmény:
