Przejdź do głównej zawartości

Jak zmienić ciągi tekstowe na wielkość liter w programie Microsoft Excel?

Może być konieczna zmiana ciągów tekstowych na wielkość liter w zdaniach w programie Microsoft Excel. Przypuśćmy, że istnieją setki ciągów tekstowych zapisanych wielkimi lub małymi literami, więc ręczne zmienianie ich jednego po drugim nie jest dobrym wyborem. Czy istnieją proste sztuczki, aby zmienić ciągi tekstowe na wielkość liter w zdaniach w programie Microsoft Excel?


strzałka niebieski prawy bąbelek Zmień ciągi tekstowe na wielkość liter w Excelu za pomocą VBA

Jeśli masz doświadczenie w korzystaniu z programu Microsoft Excel, użycie języka VBA jest dobrym wyborem do zmiany ciągów tekstowych na wielkość liter w zdaniach.

Krok 1: Przytrzymaj przycisk ALT + F11 keys i otwiera okno Microsoft Visual Basic for Applications.

Krok 2: Kliknij wstawka > Modułi wklej następujące makro w Moduł okno.

Sub SentenceCase()
'Updateby20131127
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xValue = Rng.Value
    xStart = True
    For i = 1 To VBA.Len(xValue)
        ch = Mid(xValue, i, 1)
        Select Case ch
            Case "."
            xStart = True
            Case "?"
            xStart = True
            Case "a" To "z"
            If xStart Then
                ch = UCase(ch)
                xStart = False
            End If
            Case "A" To "Z"
            If xStart Then
                xStart = False
            Else
                ch = LCase(ch)
            End If
        End Select
        Mid(xValue, i, 1) = ch
    Next
    Rng.Value = xValue
Next
End Sub

Krok 3: Naciśnij F5 aby uruchomić to makro, na ekranie pojawia się okno dialogowe umożliwiające wybór zakresu, patrz zrzut ekranu:

dokument-zmiana-case7

Krok 4: Kliknij Oki możesz zobaczyć wynik, jak pokazano poniżej:


strzałka niebieski prawy bąbelek Zmień ciągi tekstowe na wielkość liter w Excelu za pomocą Kutools for Excel

Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz teraz

Makro VBA może nie być łatwe dla początkujących użytkowników programu Microsoft Excel. Proszę się tym nie martwić. Kutools dla programu Excel's Zmień wielkość liter narzędzie może szybko zmienić wszystkie ciągi tekstowe na wielkość liter w zaznaczeniach.

Krok 1: Wybierz zakres, w którym zmienisz ciągi tekstowe na wielkość liter.

Krok 2: Kliknij Kutools > Narzędzia tekstowe > Zmień wielkość liter…. Zobacz zrzut ekranu:

Krok 3: W oknie dialogowym Zmień wielkość liter zaznacz plik Sprawa zdania. Opcja i kliknij OK or Dodaj przycisk.

Następnie zobaczysz, że wszystkie rodzaje ciągów tekstowych zostaną zamienione na wielkość liter w zaznaczeniu. Zobacz poniższy rysunek:

Kutools dla programu Excel's Zmień wielkość liter narzędzie może szybko zmienić wielkość liter na UPPER, LOWER, PROPER, Sentence Case i TOGGLE CASE. Kliknij, aby dowiedzieć się więcej…


Względne artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!

Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Here is simple way of converting any text with multiple sentences to Sentence Case. The comments on the right show how the text gets transformed at each step. Private Function SentenceConvert(strText As String) As String strText = LCase(strText) 'I GO. i went. --> i go. i went. strText = Replace(Replace(Replace(strText, ". ", ".~"), "? ", "?~"), "! ", "!~") 'i go. i went. --> i go.~i went. strText = Replace(strText, " ", "^") 'i go.~i went. --> i^go.~i^went. strText = Replace(strText, "~", " ") 'i^go.~i^went. --> i^go. i^went. strText = StrConv(strText, vbProperCase) 'i^go. i went. --> I^go. I^went. strText = Replace(strText, "^", " ") 'I^go. I^went. --> I go. I went. strText = Replace(strText, " i ", " I ") SentenceConvert = strText End Function
This comment was minimized by the moderator on the site
OR you could simply copy the selection to MS Word, change to sentence case there and copy back.
This comment was minimized by the moderator on the site
Good macro, but it would help to have all the variables defined.
This comment was minimized by the moderator on the site
Really helpful! Thanks! :lol:
This comment was minimized by the moderator on the site
Thanks for the great tutorial for the macro! I noticed though that any sentences following a sentence ending in an exclamation point did not get capitalized. How do I add this to the macro?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations