Ugrás a tartalomra

Hogyan kényszerítheti a szöveges karakterláncot nagybetűs / kisbetűs / megfelelő kisbetűvé az Excelben?

Az Excelben, amikor néhány betűt vagy szót beír a cellákba, a szöveges karakterláncokat nagybetűkre akarja kényszeríteni, annak ellenére, hogy kis- vagy nagybetűket adott meg, és fordítva. Legtöbben fontolóra vehetik az Excel adatellenőrzési funkcióját, ezzel a funkcióval figyelmeztetést kapunk, ha nem írjuk be a megfelelő kis- és nagybetűket. Ebben a cikkben bemutatok néhány érdekes módot arra, hogy a szöveget szükség szerint nagybetűkre, kisbetűkre vagy nagybetűkre kényszerítsük.

Kényszerítse a szöveges karakterláncokat nagybetűkre / kisbetűkre / nagybetűkre az Adatellenőrzés segítségével

Kényszerítse a szöveges karakterláncokat nagybetűkre / kisbetűkre / kisbetűkre VBA kóddal

A Kutools for Excel segítségével módosítsa a szöveget NAGYBETŰ-RE/KIS-BETŰ-RE jó ötlet3


Az adatellenőrzés az Excel hatékony eszköze, számos művelet végrehajtásában segíthet, a segítségével gépeléskor a szöveges karakterláncok nagy-, kis- vagy nagybetűit is kényszeríteni tudjuk, kérjük, tegye a következőket:

1. Kattintson a gombra dátum > adatok ellenőrzése > adatok ellenőrzése, lásd a képernyőképet:

doc-erő-nagybetű-1

2. Az adatok ellenőrzése párbeszédpanel alatt beállítások lapon kattintson a Hagyjuk legördülő listából válassza a lehetőséget szokás opciót, majd a Képlet szövegmezőbe írja be ezt a képletet = PONTOS (FELSŐ (A1), A1), (A1 azt az oszlopot jelöli, amelyben alkalmazni fogja ezt a funkciót, igény szerint módosíthatja), lásd a képernyőképet:

doc-erő-nagybetű-1

3. Ezután szükség szerint létrehozhat egy riasztást, kattintson a gombra Hiba figyelmeztetés Lapot, és válasszuk a lehetőséget megáll tól Stílus legördülő lista, a Error message szövegmezőbe írja be a saját figyelmeztető üzenetét, lásd a képernyőképet:

doc-erő-nagybetű-1

4. Kattintson a gombra OK a párbeszédpanel bezárásához, amikor most az A oszlopban nem nagybetűkkel írja be a szöveges karakterláncot, megjelenik egy figyelmeztető mező, amely emlékezteti a nagybetűk beírására.

doc-erő-nagybetű-1

Jegyzet:

Ha a szöveges karakterláncokat kisbetűkre vagy nagybetűkre kell kényszerítenie, kérjük, alkalmazza a következő képleteket a adatok ellenőrzése az 2 lépésben.

Kényszer kisbetűkre: = PONTOS (LOWER (A1), A1);

Erő a megfelelő esetre: = PONTOS (TULAJDONSÁG (A1), A1)


A következő VBA-kóddal, amikor a kisbetűket beírja egy cellába, a kisbetűs szöveg automatikusan nagybetűvé változik.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Ezután válassza ki a használt munkalapot balról Project Explorer, kattintson duplán a fájl megnyitásához Modulok, majd másolja és illessze be a következő VBA kódot az üres modulba:

VBA kód: Szöveges karaktersorozat kényszerítése nagybetűre

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

doc-erő-nagybetű-1

3. Ezután mentse el és zárja be ezt a kódot, hogy visszatérjen a munkalapra. Most, amikor beírja a szöveges karakterláncot, amikor kisbetűs vagy megfelelő, nagybetűvé válik, miután megérintette a belép gombot automatikusan.

Megjegyzések:

1. Ezt a kódot a teljes munkalapra alkalmazzák.

2. Ha nem találja a P-troject Explorer panel az ablakban kattintson Megnézem > Project Explorer megnyitni.

3. A kisbetűk vagy a nagybetűk szavak kényszerítésére alkalmazhatja a következő VBA kódot: (Az eljárás megegyezik a fentiekkel)

VBA-kód: A szöveges karakterlánc kényszerítése kisbetűsre

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

VBA-kód: A szöveges karakterlánc kényszerítése a kis- és nagybetűkre

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

Ha csak néhány konkrét szöveget szeretne nagybetűs, kisbetűs vagy megfelelő kis- vagy nagybetűvé változtatni, alkalmazhatja a Változás hasznossága Kutools az Excel számára hogy gyorsan elkészüljön.

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1. Válassza ki a kis- és nagybetűt váltani kívánt szövegeket, majd kattintson a gombra Kutools > szöveg > Változás. Lásd a képernyőképet:
doc változás eset 6

2. Ban,-ben Változás párbeszédpanelen ellenőrizze a műveletet, ha szükséges, és megtekintheti az eredményt a Preview ablaktábla. Lásd a képernyőképet:
doc változás eset 2

3. kettyenés Ok or alkalmaz és a szövegek változást jelentettek.

 Váltás FELKASZRA  Váltás a megfelelő esetre  Váltás mondat-ügyre
 doc változás eset 3  doc változás eset 4 doc változás eset 5 

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (10)
No ratings yet. Be the first to rate!
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.
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!
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
This comment was minimized by the moderator on the site
muchas gracias, sirvio enormemente estos codigos
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?
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!
This comment was minimized by the moderator on the site
Hello, which method you use will come up the errors?
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?
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?
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!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations