Hvis du vil ha en Microsoft Excel 2000-versjon av denne artikkelen, kan du se 213649.
Hvis du vil ha en Microsoft Excel 98-versjon og en tidligere versjon av denne artikkelen, kan du se 141094.
Sammendrag
Selv om Microsoft Excel har funksjoner som endrer store og små bokstaver i tekst, er det tilfeller der du kanskje vil endre store og små bokstaver programmatisk.Denne artikkelen inneholder tre eksempler på Microsoft Visual Basic for Applications makroer (Sub-prosedyrer) som du kan bruke til å endre bokstavene i en tekststreng til alle store bokstaver, alle små bokstaver eller store bokstaver (den første bokstaven i hvert ord er stor). Disse handlingene ligner på Excel-funksjonene= STORE(), =SMÅ() og =STOR.FORBOKSTAV().
Mer informasjon
Microsoft tilbyr programmeringseksempler bare for illustrasjon, uten garanti enten uttrykt eller underforstått. Dette omfatter, men er ikke begrenset til, de underforståtte garantiene om salgbarhet eller egnethet til et bestemt formål. Denne artikkelen antar at du er kjent med programmeringsspråket som demonstreres, og med verktøyene som brukes til å opprette og feilsøke prosedyrer. Microsoft kundestøtteteknikere kan bidra til å forklare funksjonaliteten til en bestemt prosedyre, men de vil ikke endre disse eksemplene for å gi ekstra funksjonalitet eller konstruere prosedyrer for å oppfylle dine spesifikke krav.
Makro for å endre all tekst i et område til store bokstaver
Sub Uppercase() ' Loop to cycle through each cell in the specified range. For Each x In Range("A1:A5") ' Change the text in the range to uppercase letters. x.Value = UCase(x.value) NextEnd Sub
Makro for å endre all tekst i et område til små bokstaver
Sub Lowercase() ' Loop to cycle through each cell in the specified range. For Each x In Range("B1:B5") x.Value = LCase(x.Value) NextEnd Sub
Makro for å endre all tekst i et celleområde til innledende store bokstaver
Sub Proper_Case() ' Loop to cycle through each cell in the specified range. For Each x In Range("C1:C5") ' There is not a Proper function in Visual Basic for Applications. ' So, you must use the worksheet function in the following form: x.Value = Application.Proper(x.Value) NextEnd Sub
Teste eksempelmakroene
Følg disse trinnene for å teste eksempelmakroene:
-
I samme arbeidsbok som inneholder makroene, skriv inn følgende eksempeldata i et nytt regneark: A1: toM B1: toM C1: toM A2: sUe B2: sUe C2: sUe A3: joe SMITH B3: joe SMITH C3: joe SMITH A4: mary B4: mary C4: mary A5: LORI B5: LORI C5: LORI OBS! Disse eksempeldataene inneholder tekst formatert i ulike tilfeller som du kan bruke til å bekrefte hvordan hver makro fungerer.
-
Kjør hver av makroene.
Teksten i området som er angitt i makroen (i linjen der det står "For hver x i ...") formateres med store bokstaver, små bokstaver eller innledende store bokstaver etter behov.
Referanser
Hvis du vil ha mer informasjon om hvordan du bruker regnearkfunksjoner til å endre tekst, klikker du følgende artikkelnummer for å vise artikkelen i Microsoft Knowledge Base:
263580 Slik endrer du tekstbokstaven i ExcelHvis du vil ha mer informasjon om hvordan du får hjelp med Visual Basic for Applications, klikker du følgende artikkelnummer for å vise artikkelen i Microsoft Knowledge Base:
305326 Liste over programmeringsressurser for Visual Basic for Applications
