Du kan bruke en RefEdit -kontroll i Excel VBA for å få et område fra en bruker. De Brukerform vi skal lage farger minimumsverdien av område lagret i RefEdit -kontrollen.
For å opprette dette brukerskjemaet, utfør følgende trinn.
1. Åpne Visual Basic Editor. Hvis Project Explorer ikke er synlig, klikker du View, Project Explorer.
2. Klikk Sett inn, Brukerform. Hvis verktøykassen ikke vises automatisk, klikker du på Vis, Verktøykasse. Skjermen din skal konfigureres som nedenfor.
3. Legg til etiketten, RefEdit -kontrollen og kommandoknappene. Når dette er fullført, bør resultatet være i samsvar med bildet av brukerskjemaet som ble vist tidligere. For eksempel kan du opprette en RefEdit -kontroll ved å klikke på RefEdit fra verktøykassen. Deretter kan du dra en RefEdit -kontroll på brukerskjemaet.
Merk: Hvis verktøykassen ikke har en RefEdit -kontroll, angir du en referanse til RefEdit -kontrollen. Klikk på Verktøy, referanser, og merk av for Rediger kontroll.
4. Du kan endre navnene og bildeteksten på kontrollene. Navn brukes i Excel VBA -koden. Bildetekster er de som vises på skjermen. Det er god praksis å endre navnene på kontrollene, men det er ikke nødvendig her fordi vi bare har noen få kontroller i dette eksemplet. Hvis du vil endre bildeteksten til brukerform, etikett og kommandoknapper, klikker du på Vis, Egenskapsvindu og klikker på hver kontroll.
5. For å vise brukerskjemaet, plasser en kommandoknapp i regnearket og legg til følgende kodelinje:
Private Sub CommandButton1_Click ()
UserForm1.Show
Slutt Sub
Vi skal nå lage Sub UserForm_Initialize. Når du bruker Vis -metoden for brukerskjemaet, blir denne suben automatisk utført.
6. Åpne Visual Basic Editor.
7. I Project Explorer, høyreklikk på UserForm1 og klikk deretter Vis kode.
8. Velg Userform fra rullegardinlisten til venstre. Velg Initialiser fra rullegardinlisten til høyre.
9. Legg til følgende kodelinjer:
Private Sub UserForm_Initialize ()
Sheet1.Cells.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Selection.Address
Slutt Sub
Forklaring: den første kodelinjen endrer skriftfargen på alle cellene på ark1 til svart. Den andre kodelinjen får adressen til gjeldende valg og viser den i RefEdit -kontrollen.
Vi har nå laget den første delen av Userform. Selv om det ser pent ut allerede, vil ingenting skje ennå når vi klikker på kommandoknappene på brukerskjemaet.
10. Dobbeltklikk på UserForm1 i Project Explorer.
11. Dobbeltklikk på Go -knappen.
12. Legg til følgende kodelinjer:
Private Sub CommandButton1_Click ()
Dim addr As String, rng, cell As Range, minimum As Double
addr = RefEdit1.Value
Sett rng = Range (addr)
minimum = WorksheetFunction.Min (rng)
For hver celle I rng
Hvis cell.Value = minimum Så cell.Font.Color = vbRed
Neste celle
Slutt Sub
Forklaring: først får vi adressen fra RefEdit -kontrollen og lagrer den i String -variabelen addr. Deretter setter vi rng til området som er angitt i RefEdit -kontrollen. Deretter bruker vi regnearkfunksjonen Min for å finne minimumsverdien i området. Til slutt fargelegger vi minimumsverdien (e) ved hjelp av en løkke.
13. Dobbeltklikk på Avbryt -knappen.
14. Legg til følgende kodelinje:
Private Sub CommandButton2_Click ()
Last ut meg
Slutt Sub
Forklaring: Denne kodelinjen lukker brukerskjemaet når du klikker på Avbryt -knappen.
15. Test brukerskjemaet.
Resultat:
