VBA UCase

Excel VBA UCase-functie

Ucase in VBA is een ingebouwde functie die wordt gebruikt om een ​​invoertekenreeks in hoofdletters te converteren, er is een enkel argument nodig dat de tekenreeks als invoer is en de uitvoer die door deze functie wordt gegenereerd, is een tekenreeks, het enige dat u moet behouden Houd er rekening mee dat deze functie alle functies omzet in hoofdletters, niet alleen het eerste teken.

Er zijn situaties waarin we enkele tekstwaarden in Excel naar HOOFDLETTERS moeten converteren. Dit kan worden gedaan door een UPPER-functie te gebruiken in de normale werkbladfunctie en de UCase-functie in VBA-code.

Als u al naar de UPPER-functie in VBA zoekt, zult u deze niet vinden, zelfs niet met de werkbladfunctieklasse. In VBA is het een compleet andere en korte naam, dwz "UCASE". Hier staat "U" voor "HOOFDLETTERS", dus de formule luidt "HOOFDLETTERS".

Syntaxis

Kijk nu naar de syntaxis van de UCASE-functie.

String: het is niets anders dan de tekstwaarde die we proberen om te zetten in hoofdletters. Dit kan ook een directe waarde of celverwijzing zijn. We zullen binnenkort beide soorten voorbeelden zien.

Hoe converteer ik tekst naar hoofdletters met VBA Ucase?

U kunt deze VBA UCase Excel-sjabloon hier downloaden - VBA UCase Excel-sjabloon

Voorbeeld 1

Laten we proberen de tekstwaarde excel vba om te zetten in hoofdletters met behulp van de UCase-functie.

Stap 1: Start de subprocedure door de macro te maken.

Code:

 Sub UCase_Example1 () Einde Sub 

Stap 2: Declareer de variabele als VBA-string.

Code:

 Sub UCase_Example1 () Dim k As String End Sub 

Stap 3: Wijs de waarde toe aan de variabele "k" door de functie "UCASE" toe te passen.

Stap 4: Hier is de tekenreeks onze getargete tekstwaarde die we proberen om te zetten in hoofdletters en de tekenreekswaarde is "excel vba".

Code:

 Sub UCase_Example1 () Dim k As String K = UCase ("excel vba") End Sub 

Stap 5: Laten we het resultaat van de variabele in het berichtvenster weergeven.

Code:

 Sub UCase_Example1 () Dim k As String k = UCase ("excel vba") MsgBox k End Sub 

Ok, we zijn klaar met het VBA-coderingsgedeelte. Laten we de macro uitvoeren om het resultaat in een berichtvenster te zien.

Dus de hoofdletterfunctie converteerde de tekstwaarde "excel vba" naar "EXCEL VBA" in een fractie van seconden.

Voorbeeld # 2

Laten we eens kijken naar het voorbeeld van het gebruik van een celverwijzing naar de functie. Dezelfde tekstwaarde die ik heb ingevoerd in cel A1.

Stap 1: We laten het resultaat zien in cel Bereik B1, dus de code is Bereik ("B") Waarde =

Code:

 Sub UCase_Example2 () Bereik ("B1"). Waarde = End Sub 

Stap 2: In cel B1 via de UCASE-functie slaan we de gegevens op, dus open de UCASE-functie.

Stap 3: Hier is de tekenreekswaarde deze keer celverwijzing. Geef de celverwijzing dus bereik ("A1"). Waarde.

Code:

 Sub UCase_Example2 () Bereik ("B1"). Waarde = UCase (Bereik ("A1"). Waarde) End Sub 

Zo klaar.

Voer de code uit en bekijk het resultaat in de B1-cel.

Voorbeeld # 3

In het bovenstaande voorbeeld hebben we de enige eencellige waarde gezien die naar hoofdletters is geconverteerd. Stel je voor dat je verschillende namen hebt, zoals de onderstaande afbeelding.

In deze gevallen kunnen we de code niet voor elke regel blijven schrijven, dus moeten we de formule omsluiten met lussen. Onderstaande code converteert de bovenstaande tekstwaarden in één keer naar hoofdletters.

Code:

 Sub UCase_Example3 () Dim k As Long For k = 2 tot 8 cellen (k, 2) .Value = UCase (Cellen (k, 1) .Value) Volgende k End Sub 

Hiermee worden alle tekstwaarden van rij 2 naar rij 8 als volgt naar hoofdletters geconverteerd.

Stel je voor dat je alle geselecteerde celwaarden naar hoofdletters wilt converteren, gebruik dan de onderstaande code.

Code:

 Sub UCase_Example4 () Dim Rng As Range Set Rng = Selectie voor elke Rng in selectie Rng = UCase (Rng.Value) Volgende Rng End Sub 

Om deze code te laten werken, moeten we eerst het celbereik selecteren dat we naar hoofdletters willen converteren, en vervolgens de macro uitvoeren. Alleen in het geselecteerde bereik worden de tekstwaarden naar hoofdletters geconverteerd.