We weten hoe we kleine letters naar hoofdletters op het werkblad kunnen converteren, maar hoe kunnen we kleine letters naar hoofdletters converteren met VBA? Terwijl u het proces automatiseert, kan het nodig zijn om de tekst op het blad om te zetten in hoofdletters.
Op het werkblad gebruiken we de UPPER-functie om kleine letters in hoofdletters te zetten. In VBA hebben we een vergelijkbare functie. De naam is de functie is UCase. UCase staat voor UpperCase.
Syntaxis van UCase-functie:
=UCase(Snaar)
Hiersnaarkan een harde codestring zijn of een verwijzing naar de string.
Dus nu we de functie kennen die kan worden gebruikt om kleine letters in hoofdletters te veranderen, laten we deze in een praktisch voorbeeld gebruiken.
Converteer alle tekst op een blad naar hoofdletters
Hier hebben we een eenvoudige taak om alle tekst van een bepaald blad in een werkmap naar hoofdletters te converteren. L
Om de code te krijgen voor het converteren van tekst naar hoofdletters; we moeten de onderstaande stappen volgen om VB-editor te starten
- Klik op het tabblad Ontwikkelaars
- Selecteer in de codegroep Visual Basic
Kopieer de onderstaande code naar werkbladmodule (geen normale module).
Sub HoofdlettersCode1()
Application.ScreenUpdating = False
Dim Rng als bereik
Dim c als bereik
Bij fout Hervatten Volgende
Stel Rng = Cells.SpecialCells (xlCellTypeConstants, 2) in
Voor elke c In Rng
c.Waarde = UCase(c.Waarde)
volgende c
Application.ScreenUpdating = True
Einde sub
Hoe werkt het?
De bovenstaande code is geschreven in de sheet1-module. De bovenstaande code converteert alle tekst op blad1 naar hoofdletters.
De belangrijkste regels in de bovenstaande code zijn:
Stel Rng = Cells.SpecialCells (xlCellTypeConstants, 2) in
Voor elke c In Rng
c.Waarde = UCase(c.Waarde)
volgende c
Hier gebruiken we de SpecialCells-functie van de Cells-klasse en geven de argumenten xlCellTypeConstants door. Het retourneert een opsomming van cellen en bereiken die constanten bevatten.
Vervolgens gebruiken we de for-lus om elke cel in de opsomming te herhalen. Vervolgens veranderen we die celwaarde met behulp van de UCase-functie.
Hier de verklaringc.Waarde = UCase(c.Waarde) werkt de waarden in elke cel bij met hoofdletters.
Voorbeeld 2: Converteer tekst van kolom A naar hoofdletters.
In dit voorbeeld hebben we de taak om alleen tekstkolom A te converteren. Misschien wilt u dit doen wanneer specifieke kolommen speciale tekst bevatten die alleen in hoofdletters hoeft te staan.
SubHoofdlettersCode2() Application.ScreenUpdating = False
Dim cel als bereik
Voor elke cel In Range("$A$1:" & Range("$A$1").SpecialCells(xlLastCell).Address)
Als Len(cel) > 0 Dan cel = UCase(cel)
Volgende cel
Application.ScreenUpdating = True
Einde sub
De code is bijna hetzelfde als in het vorige voorbeeld. De enige verandering die we hebben zijn deze regels:
Voor elke cel In Range("$A$1:" & Range("$A$1").SpecialCells(xlLastCell).Address)
Als Len(cel) > 0 Dan cel = UCase(cel)
Volgende cel
Hier creëren we een dynamisch bereik met behulp van de lijn Bereik("$A$1:" & Bereik("$A$1").SpecialCells(xlLastCell).Adres). Deze regel maakt een bereik vanaf cel A1 tot de laatste cel die een waarde in kolom A bevat.
Vervolgens doorlopen we elke cel en werken deze bij met hoofdletters van zichzelf.
U kunt het bestand hieronder downloaden.
Download - VBA om tekst van kleine naar hoofdletters te converteren - xlsm
Dus ja jongens, dit is hoe je kleine letters kunt bijwerken naar hoofdletters. Ik hoop dat ik voldoende uitleg heb gegeven. Als je twijfels hebt over dit artikel of een andere VBA-gerelateerde vraag. Vraag het me in de comments hieronder.
Hoe de TRIM-functie in Excel te gebruiken: De TRIM-functie wordt gebruikt om strings in te korten en eventuele volg- of voorloopspaties van strings te verwijderen. Dit helpt ons enorm bij het opschonen van data.
Hoe de CLEAN-functie in Excel te gebruiken?: De functie Opschonen wordt gebruikt om niet-afdrukbare tekens uit de tekenreeks te verwijderen. Deze functie wordt meestal gebruikt met de TRIM-functie om geïmporteerde buitenlandse gegevens op te schonen.
Vervang tekst vanaf het einde van een tekenreeks vanaf de variabele positie: Om tekst vanaf het einde van de string te vervangen, gebruiken we de REPLACE-functie. De functie VERVANGEN gebruikt de positie van tekst in de tekenreeks om deze te vervangen.
Hoe te controleren of een tekenreeks een van de vele teksten in Excel bevat: Om te controleren of een tekenreeks meerdere tekst bevat, gebruiken we deze formule. We gebruiken de SOM-functie om alle overeenkomsten op te tellen en voeren vervolgens een logica uit om te controleren of de string een van de meerdere strings bevat.
Cellen tellen die specifieke tekst bevatten: Een eenvoudige AANTAL.ALS-functie zal de magie doen. Om het aantal meerdere cellen te tellen die een bepaalde string bevatten, gebruiken we de jokertekenoperator met de AANTAL.ALS-functie.
Excel REPLACE vs SUBSTITUTE-functie: De functies REPLACE en SUBSTITUTE zijn de meest verkeerd begrepen functies. Om een bepaalde tekst te vinden en te vervangen, gebruiken we de SUBSTITUTE-functie. Waar REPLACE wordt gebruikt om een aantal karakters in string te vervangen…
Populaire artikels:
50 Excel-snelkoppelingen om uw productiviteit te verhogen | Word sneller in uw taak. Met deze 50 sneltoetsen werk je nog sneller in Excel.
Hoe de Excel VERT.ZOEKEN-functie te gebruiken| Dit is een van de meest gebruikte en populaire functies van Excel die wordt gebruikt om waarde op te zoeken uit verschillende bereiken en bladen.
Hoe de te gebruiken Excel AANTAL.ALS-functie| Tel waarden met voorwaarden met behulp van deze geweldige functie. U hoeft uw gegevens niet te filteren om specifieke waarden te tellen. Countif-functie is essentieel om uw dashboard voor te bereiden.
Hoe de SUMIF-functie in Excel te gebruiken? | Dit is een andere essentiële functie van het dashboard. Dit helpt u bij het optellen van waarden voor specifieke voorwaarden.