Jūs varat izmantot a RefEdit vadība iekšā Excel VBA lai iegūtu diapazonu no lietotāja. Userform mēs izveidosim krāsas minimālo vērtību diapazons saglabāts RefEdit vadīklā.
Lai izveidotu šo Userform, veiciet tālāk norādītās darbības.
1. Atveriet Visual Basic redaktoru. Ja Project Explorer nav redzams, noklikšķiniet uz View, Project Explorer.
2. Noklikšķiniet uz Ievietot, Lietotāja forma. Ja Toolbox neparādās automātiski, noklikšķiniet uz View, Toolbox. Ekrāns ir jāiestata, kā norādīts zemāk.
3. Pievienojiet etiķeti, RefEdit vadības un komandu pogas. Kad tas ir pabeigts, rezultātam jāatbilst iepriekš parādītajam Userform attēlam. Piemēram, izveidojiet vadīklu RefEdit, rīkjoslā noklikšķinot uz RefEdit. Pēc tam Userform varat vilkt RefEdit vadīklu.
Piezīme. Ja jūsu rīkjoslā nav vadīklas RefEdit, iestatiet atsauci uz RefEdit vadīklu. Noklikšķiniet uz Rīki, Atsauces un atzīmējiet Ref Edit Control.
4. Varat mainīt vadīklu nosaukumus un parakstus. Vārdi tiek izmantoti Excel VBA kodā. Paraksti ir tie, kas parādās jūsu ekrānā. Ir laba prakse mainīt vadības ierīču nosaukumus, taču šeit tas nav nepieciešams, jo šajā piemērā mums ir tikai dažas vadīklas. Lai mainītu Userform, uzlīmes un komandu pogu parakstu, noklikšķiniet uz Skatīt, Rekvizītu logs un noklikšķiniet uz katras vadīklas.
5. Lai parādītu Userform, ievietojiet komandas pogu savā darblapā un pievienojiet šādu koda rindiņu:
Privāta apakškomandaButton1_Click ()
UserForm1.Show
Beigu apakš
Tagad mēs izveidosim Sub UserForm_Initialize. Ja lietotāja veidlapai izmantojat Rādīšanas metodi, šī apakšiedaļa tiks izpildīta automātiski.
6. Atveriet Visual Basic redaktoru.
7. Project Explorer ar peles labo pogu noklikšķiniet uz UserForm1 un pēc tam noklikšķiniet uz Skatīt kodu.
8. Kreisajā nolaižamajā sarakstā izvēlieties Userform. Nolaižamajā labajā sarakstā atlasiet Inicializēt.
9. Pievienojiet šādas koda rindiņas:
Privāts apakšlietotājsForm_Initialize ()
Sheet1.Cells.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Selection.Address
Beigu apakš
Paskaidrojums: pirmā koda rindiņa maina visu 1. lapas šūnu fonta krāsu uz melnu. Otrā koda rinda iegūst pašreizējās atlases adresi un parāda to vadīklā RefEdit.
Tagad esam izveidojuši Userform pirmo daļu. Lai gan tas jau izskatās glīti, nekas vēl nenotiks, kad noklikšķināsim uz Userform komandu pogām.
10. Project Explorer veiciet dubultklikšķi uz UserForm1.
11. Veiciet dubultklikšķi uz pogas Go.
12. Pievienojiet šādas koda rindiņas:
Privāta apakškomandaButton1_Click ()
Dim addr As String, rng, cell As Range, minimum As Double
addr = RefEdit1.Value
Iestatīt rng = Diapazons (addr)
minimums = WorksheetFunction.Min (rng)
Katrai šūnai In rng
Ja šūna.Vērtība = minimums Tad šūna.Fonts.Krāsa = vbSarkana
Nākamā šūna
Beigu apakš
Paskaidrojums: pirmkārt, mēs iegūstam adresi no vadīklas RefEdit un saglabājam to mainīgo virknē addr. Tālāk mēs iestatām rng uz diapazonu, kas norādīts vadīklā RefEdit. Tālāk mēs izmantojam darblapas funkciju Min, lai atrastu minimālo vērtību diapazonā. Visbeidzot, izmantojot cilpu, mēs nokrāsojam minimālo (-ās) vērtību (-as).
13. Veiciet dubultklikšķi uz pogas Atcelt.
14. Pievienojiet šādu koda rindiņu:
Privāta apakškomandaButton2_Click ()
Izkraut Mani
Beigu apakš
Paskaidrojums: šī koda līnija aizver Userform, kad noklikšķināt uz pogas Atcelt.
15. Pārbaudiet Userform.
Rezultāts:
