Excel VBA UCase-functie
Ucase in VBA is een ingebouwde functie die wordt gebruikt om een invoertekenreeks in hoofdletters om te zetten, 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 functie met een korte naam, namelijk 'UCASE'. Hier staat 'U' voor 'HOOFDLETTER', 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 naar 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?
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 een 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. De 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 converteert het de tekstwaarden naar hoofdletters.
