Gå til hovedindhold

Hvordan tvinges tekststreng til store / små / korrekte sager i Excel?

Forfatter: Xiaoyang Sidst ændret: 2020-05-08

I Excel, når du indtaster nogle bogstaver eller ord i cellerne, vil du tvinge tekststrengene til store bogstaver, selvom du har indtastet små og små bogstaver og omvendt. De fleste af os overvejer muligvis datavalideringsfunktionen i Excel, med denne funktion får vi en advarsel, når vi ikke skriver det rigtige tilfælde af teksten. I denne artikel vil jeg introducere nogle interessante måder at tvinge teksten til store bogstaver, små bogstaver eller store bogstaver efter behov.

Tving tekststrengene til store / små / korrekte bogstaver med datavalidering

Tving tekststrengene til store / små / korrekte bogstaver med VBA-kode

Skift tekst til OPERCASE / små bogstaver / Korrekt sag med Kutools til Excel god idé3

Datavalidering er et kraftfuldt værktøj i Excel, det kan hjælpe os med at udføre mange operationer, med sin hjælp kan vi også tvinge store, små og små bogstaver i tekststrengene, når du skriver, gør venligst som følger:

1. Gå til klik data > Datavalidering > Datavalidering, se skærmbillede:

doc-kraft-store bogstaver-1

2. I Datavalidering under dialogboksen Indstillinger fanebladet, klik på knappen Tillad rulleliste og vælg Tilpasset indstilling, derefter i Formula tekstfelt, skal du indtaste denne formel = PRÆCIS (ØVERSTE (A1), A1), (A1 står for en kolonne, hvor du vil anvende denne funktion, du kan ændre den til dit behov), se skærmbillede:

doc-kraft-store bogstaver-1

3. Derefter kan du oprette en advarsel efter behov, klik venligst Fejladvarsel Fanebladet, og vælg Stands fra stil rulleliste i højre hjørne af Fejlmeddelelse tekstfelt, indtast din egen advarselsmeddelelse, se skærmbillede:

doc-kraft-store bogstaver-1

4. Og klik derefter på OK for at lukke dialogen, nu når du indtaster tekststrengen ikke i store bogstaver i kolonne A, vises der en advarselsboks for at minde dig om at indtaste store bogstaver.

doc-kraft-store bogstaver-1

Bemærk:

Hvis du har brug for at tvinge tekststrengene til små eller små bogstaver, skal du anvende følgende formler i Datavalidering i trin 2.

Tving til små bogstaver: = EXAKT (NEDRE (A1), A1);

Tving til korrekt sag: = PRÆCIS (PROPER (A1), A1)

Med den følgende VBA-kode, når du indtaster små bogstaver i en celle, ændres små bogstaver automatisk til store bogstaver.

1. Hold nede ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

2. Vælg derefter dit brugte regneark fra venstre Projekt Explorer, dobbeltklik på den for at åbne Moduler, og kopier og indsæt derefter følgende VBA-kode i det tomme modul:

VBA-kode: Tving tekststrengen til store bogstaver

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.UCase(Target.Value)
End Sub

doc-kraft-store bogstaver-1

3. Gem derefter og luk denne kode for at vende tilbage til regnearket. Når du nu indtaster tekststreng, hver gang det er små eller små bogstaver, bliver det store bogstaver, når du har banket på Indtast tast automatisk.

Bemærkninger:

1. Denne kode anvendes på hele regnearket.

2. Hvis du ikke kan finde Project Explorer-ruden i vinduet kan du klikke Specifikation > Projekt Explorer at åbne den.

3. For at tvinge ordene små eller store bogstaver kan du anvende følgende VBA-kode: (Proceduren er den samme som ovenfor)

VBA-kode: Tving tekststreng til små bogstaver

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = VBA.LCase(Target.Value)
End Sub

VBA-kode: Tving tekststrengen til korrekt sag

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub

Hvis du bare vil ændre nogle specifikke tekster til HOVEDSTAV, små bogstaver eller Korrekt sag, kan du anvende Skift sag nytte af Kutools til Excel for hurtigt at få det gjort.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 
Gratis download
gratis fuld funktion på 30 dage

Efter gratis installation Kutools til Excel, gør venligst som nedenfor:

1. Vælg de tekster, du vil ændre sag, og klik Kutools > tekst > Skift sag. Se skærmbillede:
dok. ændringssag 6

2. i Skift sag dialog, skal du kontrollere funktionsindstillingen, som du har brug for, og du kan få vist resultatet i Eksempel rude. Se skærmbillede:
dok. ændringssag 2

3. klik Ok or Indløs og teksterne har været ændringssager.

 Skift til OPPERCASE  Skift til korrekt sag  Skift til sætningssag
 dok. ændringssag 3  dok. ændringssag 4 dok. ændringssag 5 

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier  |   Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar   |  Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler   |  Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt:  12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (10)
No ratings yet. Be the first to rate!
DS
DS
This comment was minimized by the moderator on the site
Please suggest modifications in the VBA code to force the text strings to change to the desired format (Upper/Lower/Proper case) in selected/specified cells only rather than changing the Case of the text strings in the entire worksheet.
Reply
0
0
skyyang
skyyang     DS
This comment was minimized by the moderator on the site
Hello, DS,
To apply the code to a specified range instead of entire worksheet, please apply the following code:
VBA code: Force text string to uppercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.UCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to lowercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = VBA.LCase(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


VBA code: Force text string to propercase
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim SpecifiedRange As Range
    Set SpecifiedRange = Me.Range("A1:A10")
    If Not Intersect(Target, SpecifiedRange) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Application.Proper(Target.Value)
        Application.EnableEvents = True
    End If
End Sub


Please have a try, thank you!
Reply
Report
0
0
Spencer
Spencer
This comment was minimized by the moderator on the site
Use: On Error Resume Next

Private Sub Worksheet_Change(ByVal Target As Range)
'Update 20140603
On Error Resume Next
Target.Value = Application.WorksheetFunction.Proper(Target.Value)
End Sub
Reply
0
0
wilson
wilson
This comment was minimized by the moderator on the site
muchas gracias, sirvio enormemente estos codigos
Reply
0
0
Thomas Reid
Thomas Reid
This comment was minimized by the moderator on the site
This worked for me, however if you went to delete the contents of the cell then a "runtime error '13': type mismatch" came up

Any ideas?
Reply
0
0
Miguel Neves
Miguel Neves     Thomas Reid
This comment was minimized by the moderator on the site
i have the same problem. if you know how to deal with it please tell me!
Reply
0
0
Sunny
Sunny     Miguel Neves
This comment was minimized by the moderator on the site
Hello, which method you use will come up the errors?
Reply
Report
0
0
Russ Maurer
Russ Maurer
This comment was minimized by the moderator on the site
Like your VBA solution, but how could I limit it to a single column and format other columns differently, e.g., columns A and C force uppercase, column B force proper case?
Reply
0
0
Sunny
Sunny     Russ Maurer
This comment was minimized by the moderator on the site
I do not know which VBA can handle your job (some columns in uppercase, some in proper case), but the data validation can solve it, why do not use it?
Reply
Report
0
0
Patrick
Patrick
This comment was minimized by the moderator on the site
thanks for the macro to convert all entries to capital letters, but is there something i need to do to stop the macro from crashing excel every fe minutes? Appreciate the help!
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations