U kunt een RefEdit-besturingselement in Excel VBA om een bereik van een gebruiker te krijgen. De Gebruikersformulier we gaan kleuren maken met de minimale waarde van de bereik opgeslagen in het RefEdit-besturingselement.
Voer de volgende stappen uit om dit Userform aan te maken.
1. Open de Visual Basic-editor. Als de Projectverkenner niet zichtbaar is, klikt u op Beeld, Projectverkenner.
2. Klik op Invoegen, Gebruikersformulier. Als de Toolbox niet automatisch verschijnt, klikt u op View, Toolbox. Uw scherm moet worden ingesteld zoals hieronder.
3. Voeg het label, de RefEdit-besturings- en opdrachtknoppen toe. Zodra dit is voltooid, moet het resultaat consistent zijn met de afbeelding van het eerder getoonde gebruikersformulier. Maak bijvoorbeeld een RefEdit-besturingselement door in de Toolbox op RefEdit te klikken. Vervolgens kunt u een RefEdit-besturingselement op het gebruikersformulier slepen.
Opmerking: Als uw gereedschapskist geen RefEdit-besturingselement heeft, stelt u een verwijzing in naar RefEdit-besturingselement. Klik op Tools, References en vink Ref Edit Control aan.
4. U kunt de namen en de bijschriften van de bedieningselementen wijzigen. Namen worden gebruikt in de Excel VBA-code. Bijschriften zijn de bijschriften die op uw scherm verschijnen. Het is een goede gewoonte om de namen van de besturingselementen te wijzigen, maar dat is hier niet nodig omdat we in dit voorbeeld maar een paar besturingselementen hebben. Om het bijschrift van het gebruikersformulier, label en opdrachtknoppen te wijzigen, klikt u op Beeld, Eigenschappenvenster en klikt u op elk besturingselement.
5. Om het gebruikersformulier weer te geven, plaatst u een opdrachtknop op uw werkblad en voegt u de volgende coderegel toe:
Privé Sub CommandButton1_Click()
UserForm1.Toon
Einde sub
We gaan nu de Sub UserForm_Initialize maken. Wanneer je de Show methode voor het Userform gebruikt, wordt deze sub automatisch uitgevoerd.
6. Open de Visual Basic-editor.
7. Klik in de Projectverkenner met de rechtermuisknop op UserForm1 en klik vervolgens op View Code.
8. Kies Gebruikersformulier in de linker vervolgkeuzelijst. Kies Initialiseren in de rechter vervolgkeuzelijst.
9. Voeg de volgende coderegels toe:
Private Sub UserForm_Initialize()
Blad1.Cellen.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Selectie.Adres
Einde sub
Uitleg: de eerste coderegel verandert de letterkleur van alle cellen op blad1 in zwart. De tweede coderegel verkrijgt het adres van de huidige selectie en geeft dit weer in het RefEdit-besturingselement.
We hebben nu het eerste deel van het Userform gemaakt. Hoewel het er al netjes uitziet, gebeurt er nog niets als we op de opdrachtknoppen op het gebruikersformulier klikken.
10. Dubbelklik in de Projectverkenner op UserForm1.
11. Dubbelklik op de Go-knop.
12. Voeg de volgende coderegels toe:
Privé Sub CommandButton1_Click()
Dim addr As String, rng, cel As Range, minimaal As Double
addr = RefEdit1.Value
Stel rng = Bereik (addr) in
minimum = WerkbladFunctie.Min(rng)
Voor elke cel In rng
Als cel.Waarde = minimum Dan cel.Font.Color = vbRed
Volgende cel
Einde sub
Uitleg: eerst halen we het adres van het RefEdit-besturingselement en slaan het op in de String-variabele addr. Vervolgens stellen we rng in op het bereik gespecificeerd in het RefEdit-besturingselement. Vervolgens gebruiken we de werkbladfunctie Min om de minimumwaarde in het bereik te vinden. Ten slotte kleuren we de minimumwaarde(n) met een lus.
13. Dubbelklik op de knop Annuleren.
14. Voeg de volgende coderegel toe:
Privé Sub CommandButton2_Click()
Mij uitladen
Einde sub
Toelichting: deze coderegel sluit het Userform wanneer u op de knop Annuleren klikt.
15. Test het gebruikersformulier.
Resultaat:
