Hieronder zullen we kijken naar een programma in Excel VBA Dat converteert tekst naar de juiste hoofdletter. Dat wil zeggen, de eerste letter van elk woord in hoofdletters en alle andere letters in kleine letters.
Situatie:
1. Eerst declareren we twee Range-objecten. We noemen de Range-objecten rng en cel.
Dim rng As Range, cel As Range
2. We initialiseren het Range-object rng met het geselecteerde bereik.
Stel rng = Selectie in
3. We willen elke cel in een willekeurig geselecteerd bereik controleren (dit bereik kan elke grootte hebben). In Excel VBA kunt u hiervoor de For Each Next-lus gebruiken. Voeg de volgende coderegels toe:
Voor elke cel In rng
Volgende cel
Opmerking: rng en cel worden hier willekeurig gekozen, u kunt alle namen gebruiken. Vergeet niet om naar deze namen te verwijzen in de rest van uw code.
4. Om een cel die een formule bevat te negeren, voegt u de volgende coderegel toe tussen For Each en Next (alleen als cell.HasFormula false is, gaan we verder).
Indien niet cel.HeeftFormule Dan
Stop als
5. Vervolgens willen we elk woord in dit bereik converteren naar 'juiste hoofdletters'. Voor deze taak kunt u de werkbladfunctie Proper gebruiken. Voeg de volgende coderegel toe aan uw if-statement.
cel.Waarde = WerkbladFunctie.Proper(cel.Waarde)
6. Test het programma.
Resultaat:
