Klik op 213649 voor een Microsoft Excel 2000-versie van dit artikel.
Klik op 141094 voor een Microsoft Excel 98-versie (of lager) van dit artikel.
Samenvatting
Hoewel u in Microsoft Excel met werkbladfuncties het gebruik van hoofdletters en kleine letters kunt wijzigen, kunt u dit ook programmatisch doen:
In dit artikel worden drie voorbeeldmacro's van Microsoft Visual Basic for Applications (subprocedures) beschreven die u kunt gebruiken om de letters van een tekstreeks om te zetten naar allemaal hoofdletters, allemaal kleine letters of beginhoofdletters (de eerste letter van elk woord wordt weergegeven met een hoofdletter). Deze acties zijn vergelijkbaar met de Excel-functies =HOOFDLETTERS(), =KLEINE.LETTERS() en =BEGINLETTERS().
Meer informatie
Microsoft verstrekt deze code zonder enige expliciete of impliciete garantie, daaronder mede begrepen, maar niet beperkt tot impliciete garanties met betrekking tot de verkoopbaarheid en/of geschiktheid voor een bepaald doel. In dit artikel wordt ervan uitgegaan dat u bekend bent met de programmeertaal VBScript, alsmede met de hulpprogramma's waarmee procedures worden gemaakt en waarmee fouten in procedures worden opgespoord. U kunt desgewenst contact opnemen met Microsoft Product Support Services voor uitleg over de functie van een bepaalde procedure. Microsoft Product Support Services is echter niet bereid de voorbeelden aan te passen om extra functies toe te voegen of om procedures te maken die aan uw specifieke eisen voldoen.
Macro waarmee alle tekst in een tekenreeks wordt omgezet in hoofdletters
Sub Uppercase()
' Loop to cycle through each cell in the specified range.
For Each x In Range("A1:A5")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.value)
Next
End Sub
Macro waarmee alle tekst in een tekenreeks wordt omgezet in kleine letters
Sub Lowercase()
' Loop to cycle through each cell in the specified range.
For Each x In Range("B1:B5")
x.Value = LCase(x.Value)
Next
End Sub
Macro waarmee alle tekst in een celreeks wordt omgezet in beginhoofdletters
Sub Proper_Case()
' Loop to cycle through each cell in the specified range.
For Each x In Range("C1:C5")
' There is not a Proper function in Visual Basic for Applications.
' So, you must use the worksheet function in the following form:
x.Value = Application.Proper(x.Value)
Next
End Sub
De voorbeeldmacro's testen
Voer de volgende stappen uit om de voorbeeldmacro's te testen:
-
Typ de volgende voorbeeldgegevens op een nieuw werkblad in de werkmap die de macro's bevat:
A1: toM B1: toM C1: toM
A2: sUzan B2: sUzan C2: sUzan
A3: jan SMIT B3: jan SMIT C3: jan SMIT
A4: marijke B4: marijke C4: marijke
A5: ANNE B5: ANNE C5: ANNE
Opmerking Deze voorbeelden bevatten tekst met verschillend gebruik van hoofdletters en kleine letters. Gebruik de voorbeeldtekst om te controleren hoe elke macro werkt. -
Voer elke macro uit.
De tekst in het bereik dat in de macro is opgegeven (op de regel met "For each x in ...") wordt dienovereenkomstig opgemaakt in hoofdletters, kleine letters of met beginkapitaal.
Referenties
Voor meer informatie over werkbladfuncties waarmee u het gebruik van hoofdletters en kleine letters kunt wijzigen, klikt u op het volgende artikelnummer in de Microsoft Knowledge Base:
263580 Het gebruik van hoofdletters en kleine letters wijzigen in Excel
Voor meer informatie over het opvragen van Help-informatie voor Visual Basic for Applications, klikt u op het volgende artikelnummer in de Microsoft Knowledge Base:
305326 Lijst met programmeerbronnen voor Visual Basic for Applications