VBA UCASE

När vi arbetar med alfabetet vet vi att det finns två sätt att skriva ett alfabet. Små och stora bokstäver. Ibland måste vi ändra formatet för text betyder små bokstäver till versaler eller versaler till versaler. För en större mängd text kan vi inte göra det manuellt varje gång. Excel ger oss en funktion för att göra detsamma. För att ändra texten från versaler till versaler finns det en funktion i Excel VBA som heter UCASE.

Strängen som vi ger som ingång kan tas från en användare eller kan vara en enda cell eller ett område med celler. Den konverterar all sträng till en stor bokstav, inte bara den första strängen.

Som förklarats ovan ändrar UCASE små bokstäver till stora bokstäver i VBA.

Syntax för UCASE-funktion i Excel VBA

UCASE-funktionen har följande syntax i Excel VBA:

Här är målsträngen strängen eller uppsättningen tecken som vi vill ändra från versaler till versaler. VBA Ucase-funktionen ändrar bara texten till en stor bokstav, den ändrar inte någon formatering som görs i cellen eller ändrar inte de speciella symbolerna i texten. Målsträngen kan vara en enda cell eller det kan vara ett intervall av celler.

Om vi ​​till exempel matar in Ucase (anand) blir resultatet vi ANAND. Om vi ​​också har ett annat exempel som denna Ucase (1 för 2 och 2 för tre) blir resultatet 1 FÖR 2 OCH 2 FÖR TRE.

Hur använder jag Excel VBA UCASE-funktion?

Vi kommer att lära dig att använda en VBA UCASE-funktion med några exempel i Excel.

Du kan ladda ner denna VBA UCASE Excel-mall här - VBA UCASE Excel-mall

VBA UCASE-funktion - exempel # 1

I det här exemplet har jag en sträng i cell A1 och jag vill ändra textvärdet till versaler. Titta på texten nedan,

Obs! Kom alltid ihåg att aktivera utvecklarens flik från filfliken och sedan från alternativavsnittet för att använda VBA i Excel.

Följ stegen nedan för att använda UCASE-funktionen i Excel VBA.

Steg 1: På utvecklarens flik måste vi klicka på visual basic för att komma in i VBA.

Steg 2: Klicka på infoga-fliken och sätt in en modul i VBA-projektet.

Steg 3: Nu vet vi att vi måste förklara ett makronamn med hjälp av underfunktion.

Koda:

 Sub Sample () Slut Sub

Steg 4: Aktivera kalkylbladet för att använda dess egenskaper eftersom vår målsträng finns i cell A1.

Koda:

 Underprov () Arbetsblad ("Sheet1"). Aktivera End Sub

Steg 5: Låt oss nu ändra värdet i cell A1 genom att använda Ucase-funktionen enligt följande.

Koda:

 Underprov () Arbetsblad ("Sheet1"). Aktivera intervall ("A1"). Värde = UCase (Range ("A1")) Slut sub

Steg 6: Kör ovanstående kod med körknappen eller tryck på F5 för att se resultatet.

Vi har framgångsrikt ändrat texten i cell A1 till versaler.

VBA UCASE-funktion - Exempel # 2

Nu kommer vi att ta in input från en användare med små bokstäver och vi kommer att ändra värdet till versaler.

Följ stegen nedan för att använda UCASE-funktionen i Excel VBA.

Steg 1: På utvecklarens flik måste vi klicka på visual basic för att komma in i VBA.

Steg 2: Klicka på infoga-fliken och sätt in en modul i VBA-projektet.

Steg 3: Börja med att förklara en annan underfunktion.

Koda:

 Sub Sample1 () Slut Sub

Steg 4: Förklara två variabler som en sträng.

Koda:

 Subprov1 () Dim A, B Som stränghållningssub

Steg 5: Ta inmatning från användaren genom att använda en inmatningsboxfunktion och lagra dess värde i en variabel.

Koda:

 Underprov1 () Dim A, B som sträng A = InputBox ("Skriv en sträng", "Små bokstäver") End Sub

Steg 6: I variabel B lagrar du värdet på sträng A när det ändras från versaler till versaler med hjälp av en UCASE-funktion.

Koda:

 Underprov1 () Dim A, B som sträng A = InputBox ("Skriv en sträng", "Små bokstäver") B = UCase (A) End Sub

Steg 7: Visa värdet som lagrats i B med funktionen msgbox.

Koda:

 Underprov1 () Dim A, B som sträng A = InputBox ("Skriv en sträng", "Små bokstäver") B = UCase (A) MsgBox B End Sub

Steg 8: Kör ovanstående kod genom att trycka på F5 så får vi en uppmaning att ge ett värde. Ange vilken sträng som helst.

Klicka på OK för att se resultatet.

VBA UCASE-funktion - exempel # 3

Låt oss nu testa att om vi har några specialtecken eller siffror i inmatningssträngen kommer det att göra några ändringar i den. Till exempel har jag en sträng i cell C1 med några speciella symboler i den. Titta på det nedan,

Följ stegen nedan för att använda UCASE-funktionen i Excel VBA.

Steg 1: På utvecklarens flik måste vi klicka på visual basic för att komma in i VBA.

Steg 2: Klicka på infoga-fliken och sätt in en modul i VBA-projektet.

Steg 3: Förklara nu ett makronamn med hjälp av subfunktion.

Koda:

 Sub Sample2 () Slut Sub

Steg 4: Aktivera kalkylbladet för att använda dess egenskaper eftersom vår målsträng finns i cell C1.

Koda:

 Underprov2 () Arbetsblad ("Blad1"). Aktivera slutunder

Steg 5: Låt oss nu ändra värdet i cell C1 med hjälp av Ucase-funktionen enligt följande.

Koda:

 Underprov2 () Arbetsblad ("Sheet1"). Aktivera intervall ("c1"). Värde = UCase (Range ("c1")) Slut sub

Steg 6: Kör ovanstående kod med körknappen eller tryck på F5 för att se resultatet.

Vi kan se att UCase inte ändrar specialsymboler eller tecken.

VBA UCASE-funktion - Exempel # 4

I ovanstående exempel har vi ändrat texten från gemener till versaler för en enda cell. I det här exemplet kommer vi att ändra hela datainsamlingen till versaler.

I blad 2 har jag följande data. Vad jag vill göra är att ändra uppgifterna i kolumn A med små bokstäver till versaler i kolumn B.

Följ stegen nedan för att använda UCASE-funktionen i Excel VBA.

Steg 1: På utvecklarens flik måste vi klicka på visual basic för att komma in i VBA.

Steg 2: Klicka på infoga-fliken och sätt in en modul i VBA-projektet.

Steg 3: Förklara en underfunktion för att börja skriva koden.

Koda:

 Sub Sample3 () Slut Sub

Steg 4: För att använda egenskaperna för ark 2, aktivera det först eftersom data finns i ark 2.

Koda:

 Underprov3 () Arbetsblad ("Blad2"). Aktivera slutunder

Steg 5: Förklara en variabel A som lång datatyp.

Koda:

 Sub Sample3 () Arbetsblad ("Sheet2"). Aktivera Dim A som Long End Sub

Steg 6: Använd för loop för att ändra data i varje rad.

Koda:

 Underprov3 () Arbetsblad ("Sheet2"). Aktivera Dim A så länge för A = 2 till 6 End Sub

Vi har förklarat variabel A från 2 till 6 eftersom vi från andra till 6: e raden har data i arket.

Steg 7: Ändra nu värdet i kolumn A till versaler och lagra det i kolumn B enligt följande kod.

Koda:

 Underprov3 () Arbetsblad ("Sheet2"). Aktivera Dim A så länge för A = 2 till 6 celler (A, 2) .Värde = UCase (Cells (A, 1). Värde) Nästa A End Sub

Steg 8: Kör ovanstående kod genom att trycka på F5 för att se resultatet i blad 2 enligt följande,

Saker att komma ihåg

  • VBA Ucase-funktion ändrar texten till versaler.
  • Strängen som vi ger som ingång kan vara en enda cell eller flera celler.
  • Strängen som vi ger som ingång kan ha flera strängar i den.
  • Om inmatningssträngen har några specialtecken eller symboler förblir den oförändrad.

Rekommenderade artiklar

Detta har varit en guide till VBA UCASE-funktion. Här diskuterade vi hur du använder Excel VBA UCASE-funktion tillsammans med praktiska exempel och nedladdningsbar Excel-mall. Du kan också gå igenom våra andra föreslagna artiklar -

  1. VBA VLOOKUP-funktion
  2. DCOUNT-funktion i Excel
  3. Hur man använder VBA vänsterfunktion?
  4. AGGREGATE-funktion i Excel

Kategori:

VBA