Ga naar hoofdinhoud

Hoe de tekstreeks in Excel in hoofdletters / kleine letters / juiste letters te forceren?

Wanneer u in Excel enkele letters of woorden in de cellen invoert, wilt u de tekstreeksen in hoofdletters dwingen, ook al hebt u de kleine letters of de juiste hoofdletters ingevoerd en vice versa. De meesten van ons kunnen de functie Gegevensvalidatie in Excel overwegen, met deze functie krijgen we een waarschuwing wanneer we niet het juiste hoofdlettergebruik van de tekst typen. In dit artikel zal ik enkele interessante manieren introduceren om de tekst naar behoefte in hoofdletters, kleine letters of de juiste letters te forceren.

Forceer de tekstreeksen in hoofdletters / kleine letters / juiste letters met gegevensvalidatie

Forceer de tekstreeksen naar hoofdletters / kleine letters / juiste letters met VBA-code

Verander tekst in HOOFDLETTERS / kleine letters / Juiste zaak met Kutools voor Excel goed idee 3

Gegevensvalidatie is een krachtig hulpmiddel in Excel, het kan ons helpen bij veel bewerkingen, met zijn hulp kunnen we ook de hoofdletters, kleine letters of de juiste hoofdletters van de tekstreeksen forceren tijdens het typen, doe dit als volgt:

1. Ga om te klikken Data > Data Validation > Data Validation, zie screenshot:

doc-force-hoofdletters-1

2. In de Data Validation dialoogvenster, onder het Instellingen tab, klik op de Allow vervolgkeuzelijst en kies Eigen optie, dan in de Formule tekstvak, voer deze formule in = EXACT (BOVENSTE (A1); A1)(A1 staat voor een kolom waarop u deze functie toepast, u kunt deze naar uw behoefte wijzigen), zie screenshot:

doc-force-hoofdletters-1

3. Vervolgens kunt u een waarschuwing maken als u dat wilt, klik op Foutmelding tab, en selecteer stop van het Style vervolgkeuzelijst, in de rechterhoek van de Screenshot van je foutmelding tekstvak, voer uw eigen waarschuwingsbericht in, zie screenshot:

doc-force-hoofdletters-1

4. En klik vervolgens op OK om het dialoogvenster te sluiten, zal er nu een waarschuwingsvenster verschijnen wanneer u de tekenreeks invoert die niet in hoofdletters staat in kolom A, om u eraan te herinneren dat u de hoofdletters moet invoeren.

doc-force-hoofdletters-1

Opmerking:

Als u de tekstreeksen in kleine letters of juist hoofdletters moet dwingen, past u de volgende formules toe op het Data Validation in stap 2.

Forceer naar kleine letters: = EXACT (LAGER (A1), A1);

Forceer het juiste geval: = EXACT (PROPER (A1), A1)

Met de volgende VBA-code, wanneer u de kleine letters in een cel invoert, wordt de kleine tekst automatisch gewijzigd in hoofdletters.

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic for Applications-venster.

2. Kies dan aan de linkerkant je gebruikte werkblad Projectverkenner, dubbelklik erop om het Module, en kopieer en plak vervolgens de volgende VBA-code in de lege module:

VBA-code: Forceer tekststring in hoofdletters

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

doc-force-hoofdletters-1

3. Sla deze code vervolgens op en sluit deze om terug te keren naar het werkblad.Als u een tekstreeks invoert wanneer het een kleine of juist hoofdletter is, wordt deze een hoofdletter nadat u op de Enter sleutel automatisch.

Opmerkingen:

1. Deze code wordt toegepast op het hele werkblad.

2. Als u de Project Explorer-paneel in het venster kunt u klikken Bekijk > Projectverkenner om het te openen.

3. Om de woorden in kleine letters of juist hoofdletters te forceren, kunt u de volgende VBA-code toepassen: (De procedure is hetzelfde als hierboven)

VBA-code: Forceer tekststring naar kleine letters

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

VBA-code: forceer de tekenreeks naar het juiste hoofdlettergebruik

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

Als u enkele specifieke teksten alleen in HOOFDLETTERS, kleine letters of Juiste letters wilt veranderen, kunt u de Wijzig zaak nut van Kutools for Excel om het snel voor elkaar te krijgen.

Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. 
Gratis download
gratis volledig uitgerust in 30 dagen

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. Selecteer de teksten waarvan u de hoofdletter wilt wijzigen en klik op Kutools > Tekst > Wijzig zaak. Zie screenshot:
doc wijzigingsgeval 6

2. In de Wijzig zaak dialoogvenster, vink de bedieningsoptie aan zoals u nodig hebt en u kunt een voorbeeld van het resultaat bekijken in het Voorbeschouwing paneel. Zie screenshot:
doc wijzigingsgeval 2

3. klikken Ok or Solliciteer en de teksten zijn van geval tot geval.

 Verander naar HOOFDLETTERS  Schakel over naar het juiste geval  Verander naar hoofdlettergebruik
 doc wijzigingsgeval 3  doc wijzigingsgeval 4 doc wijzigingsgeval 5 

Beste Office-productiviteitstools

馃 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup  |   VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk   |  Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen   |  Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets:  12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke 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