VBA för att konvertera text från gemener till versaler

Innehållsförteckning:

Anonim

Vi vet hur man konverterar gemener till stor text på kalkylbladet men hur konverterar vi gemener till versaler med VBA? När du automatiserar processen kan du behöva konvertera texten på arket till versaler.

På kalkylbladet använder vi UPPER -funktionen för att små bokstäver till stora bokstäver. I VBA har vi en liknande funktion. Namnet är funktionen är UCase. UCase står för UpperCase.

Syntax för UCase -funktion:

= UCase (Sträng)

Härsträngkan vara en hård kodsträng eller en referens till strängen.

Så nu när vi vet om funktionen som kan användas för att ändra små bokstäver till stora strängar, låt oss använda den i ett praktiskt exempel.

Konvertera all text på ett ark till versaler

Här har vi en enkel uppgift att konvertera all text på ett givet blad i en arbetsbok till versaler. L

För att få koden för att konvertera text till stora bokstäver; vi måste följa stegen nedan för att starta VB -editor

  • Klicka på fliken Utvecklare
  • Välj Visual Basic i kodgruppen

Kopiera koden nedan till kalkylbladsmodulen (inte en normal modul).


Sub UpperCaseCode1 ()
Application.ScreenUpdating = Falskt
Dim Rng som intervall
Dim c As Range
Vid fel Återuppta nästa
Ange Rng = Cells.SpecialCells (xlCellTypeConstants, 2)
För varje c I Rng
c.Value = UCase (c.Value)
Nästa c
Application.ScreenUpdating = True
Avsluta Sub

Hur fungerar det?

Ovanstående kod är skriven i sheet1 -modulen. Ovanstående kod kommer att konvertera all text på arket1 till versaler.

Huvudlinjerna i koden ovan är:

Ange Rng = Cells.SpecialCells (xlCellTypeConstants, 2)
För varje c I Rng
c.Value = UCase (c.Value)
Nästa c

Här använder vi SpecialCells -funktionen i Cells -klassen och skickar argumenten xlCellTypeConstants. Det returnerar en uppräkning av celler och intervall som innehåller konstanter.

Därefter använder vi for -slingan för att iterera över varje cell i uppräkning. Därefter ändrar vi det cellvärdet med UCase -funktionen.

Här uttalandetc.Value = UCase (c.Value) uppdaterar värdena i varje cell med stor text.

Exempel 2: Konvertera text från kolumn A till versaler.

I det här exemplet har vi bara till uppgift att konvertera textkolumn A. Du kanske vill göra detta när specifika kolumner innehåller speciell text som bara måste vara versaler.

Sub UpperCaseCode2 ()
Application.ScreenUpdating = Falskt
Dim cell As Range
För varje cell i intervallet ("$ A $ 1:" & Range ("$ A $ 1"). SpecialCells (xlLastCell) .Address)
Om Len (cell)> 0 Sedan cell = UCase (cell)
Nästa cell
Application.ScreenUpdating = True
Avsluta Sub

Koden är nästan densamma som föregående exempel. Den enda förändringen vi har är dessa rader:

För varje cell i intervallet ("$ A $ 1:" & Range ("$ A $ 1"). SpecialCells (xlLastCell) .Address)
Om Len (cell)> 0 Sedan cell = UCase (cell)
Nästa cell

Här skapar vi ett dynamiskt intervall med linjen Range ("$ A $ 1:" & Range ("$ A $ 1"). SpecialCells (xlLastCell) .Address). Denna rad skapar ett intervall från cell A1 till den sista cellen som innehåller något värde i kolumn A.

Sedan itererar vi igenom varje cell och uppdaterar den med stora strängar av sig själv.

Du kan ladda ner filen nedan.

Ladda ner - VBA för att konvertera text från gemener till versaler - xlsm

Så ja killar, så här kan du uppdatera gemener till stor text. Jag hoppas att jag var tillräckligt förklarande. Om du har några tvivel angående denna artikel eller någon annan VBA -relaterad fråga. Fråga mig i kommentarsfältet nedan.

Så här använder du TRIM -funktionen i Excel: TRIM -funktionen används för att trimma strängar och rengöra alla bakre eller ledande mellanslag från strängen. Detta hjälper oss i rengöringsprocessen av data mycket.

Så här använder du CLEAN -funktionen i Excel: Clean -funktionen används för att rensa bort oskrivbara tecken från strängen. Denna funktion används mestadels med TRIM -funktionen för att städa upp importerade utländska data.

Ersätt text från slutet av en sträng med början från variabel position: För att ersätta text från slutet av strängen använder vi funktionen REPLACE. REPLACE -funktionen använder textens position i strängen för att ersätta den.

Så här kontrollerar du om en sträng innehåller en av många texter i Excel: För att kontrollera om en sträng innehåller någon av flera text använder vi denna formel. Vi använder SUMM -funktionen för att summera alla matchningar och utför sedan en logik för att kontrollera om strängen innehåller någon av de flera strängarna.

Räkna celler som innehåller specifik text: En enkel COUNTIF -funktion gör magin. För att räkna antalet flera celler som innehåller en given sträng använder vi jokerteckenoperatorn med funktionen RÄNTA.

Excel REPLACE vs SUBSTITUTE -funktion: Funktionerna REPLACE och SUBSTITUTE är de mest missförstådda funktionerna. För att hitta och ersätta en given text använder vi ersättningsfunktionen. Där REPLACE används för att ersätta ett antal tecken i strängen …

Populära artiklar:

50 Excel -genvägar för att öka din produktivitet | Bli snabbare på din uppgift. Dessa 50 genvägar får dig att arbeta ännu snabbare med Excel.

Hur man använder Excel VLOOKUP -funktion| Detta är en av de mest använda och populära Excel -funktionerna som används för att leta upp värde från olika intervall och ark.

Hur man använder Excel COUNTIF -funktion| Räkna värden med förhållanden med denna fantastiska funktion. Du behöver inte filtrera dina data för att räkna specifika värden. Countif -funktionen är avgörande för att förbereda din instrumentpanel.

Hur man använder SUMIF -funktionen i Excel | Detta är en annan viktig instrumentpanel. Detta hjälper dig att summera värden på specifika förhållanden.