Wiemy, jak przekonwertować tekst pisany małymi literami na tekst pisany wielkimi literami w arkuszu, ale jak przekonwertować małe litery na wielkie za pomocą VBA? Podczas automatyzacji procesu może zajść potrzeba przekonwertowania tekstu na arkuszu na wielkie litery.
W arkuszu używamy funkcji UPPER, aby zmienić małe litery na duże. W VBA mamy podobną funkcję. Nazwa funkcji to UCase. UCase oznacza wielkie litery.
Składnia funkcji UCase:
=UCase(Strunowy)
Tutajstrunowymoże być ciągiem kodu lub odwołaniem do ciągu.
Teraz, gdy wiemy już o funkcji, której można użyć do zamiany małych liter na wielkie litery, użyjmy jej w praktycznym przykładzie.
Konwertuj cały tekst na arkuszu na wielkie litery
Tutaj mamy proste zadanie przekonwertowania całego tekstu danego arkusza w skoroszycie na wielkie litery. L
Aby uzyskać kod do konwersji tekstu na duże litery; musimy wykonać poniższe kroki, aby uruchomić edytor VB
- Kliknij na zakładkę Deweloper
- Z grupy Kod wybierz Visual Basic
Skopiuj poniższy kod do modułu arkusza roboczego (nie normalnego modułu).
Podrzędny kod wielkich liter1()
Application.ScreenUpdating = Fałsz
Dim Rng jako zakres
Dim c jako zakres
Przy błędzie Wznów Dalej
Ustaw Rng = Cells.SpecialCells(xlCellTypeConstants, 2)
Dla każdego c w Rng
c.Wartość = UCase(c.Wartość)
Następny c
Application.ScreenUpdating = Prawda
Napis końcowy
Jak to działa?
Powyższy kod jest zapisany w module sheet1. Powyższy kod przekonwertuje cały tekst w arkuszu 1 na wielkie litery.
Główne linie w powyższym kodzie to:
Ustaw Rng = Cells.SpecialCells(xlCellTypeConstants, 2)
Dla każdego c w Rng
c.Wartość = UCase(c.Wartość)
Następny c
Tutaj używamy funkcji SpecialCells klasy Cells i przekazujemy argumenty xlCellTypeConstants. Zwraca wyliczenie komórek i zakresów zawierających stałe.
Następnie używamy pętli for do iteracji po każdej komórce w wyliczaniu. Następnie zmieniamy tę wartość komórki za pomocą funkcji UCase.
Tutaj oświadczeniec.Wartość = UCase(c.Wartość) aktualizuje wartości w każdej komórce tekstem pisanym wielkimi literami.
Przykład 2: Konwersja tekstu kolumny A na wielkie litery.
W tym przykładzie mamy za zadanie przekonwertować tylko kolumnę tekstową A. Możesz to zrobić, gdy określone kolumny zawierają specjalny tekst, który musi być pisany tylko wielkimi literami.
Podrzędny kod wielkich liter2() Application.ScreenUpdating = Fałsz
Przyciemnij komórkę jako zakres
Dla każdej komórki w zakresie("$A$1:" & Range("$A$1").SpecialCells(xlLastCell).Address)
Jeśli Len(komórka) > 0 Wtedy komórka = UCase(komórka)
Następna komórka
Application.ScreenUpdating = Prawda
Napis końcowy
Kod jest prawie taki sam jak w poprzednim przykładzie. Jedyną zmianą, jaką mamy, są te linie:
Dla każdej komórki w zakresie("$A$1:" & Range("$A$1").SpecialCells(xlLastCell).Address)
Jeśli Len(komórka) > 0 Wtedy komórka = UCase(komórka)
Następna komórka
Tutaj tworzymy dynamiczny zakres za pomocą linii Zakres("$A$1:" & Zakres("$A$1").SpecialCells(xlLastCell).Address). Ten wiersz tworzy zakres od komórki A1 do ostatniej komórki zawierającej dowolną wartość w kolumnie A.
Następnie iterujemy każdą komórkę i aktualizujemy ją za pomocą samych wielkich ciągów.
Możesz pobrać plik poniżej.
Pobierz - VBA do konwersji tekstu z małych na wielkie litery - xlsm
Więc tak, w ten sposób można zaktualizować tekst pisany małymi literami na tekst pisany wielkimi literami. Mam nadzieję, że wystarczająco wyjaśniłem. Jeśli masz jakiekolwiek wątpliwości dotyczące tego artykułu lub innego zapytania związanego z VBA. Zapytaj mnie w sekcji komentarzy poniżej.
Jak korzystać z funkcji TRIM w programie Excel: Funkcja TRIM służy do przycinania ciągów i czyszczenia wszelkich końcowych lub wiodących spacji z ciągu. To bardzo pomaga nam w procesie czyszczenia danych.
Jak korzystać z funkcji CLEAN w programie Excel: Funkcja Clean służy do czyszczenia niedrukowalnych znaków z ciągu. Ta funkcja jest używana głównie z funkcją TRIM do czyszczenia importowanych danych obcych.
Zamień tekst na końcu ciągu, zaczynając od pozycji zmiennej: Aby zastąpić tekst z końca ciągu, używamy funkcji REPLACE. Funkcja REPLACE używa pozycji tekstu w ciągu, aby go zastąpić.
Jak sprawdzić, czy ciąg zawiera jeden z wielu tekstów w programie Excel?: Aby sprawdzić, czy ciąg zawiera którykolwiek z wielu tekstów, używamy tej formuły. Używamy funkcji SUMA, aby zsumować wszystkie dopasowania, a następnie wykonujemy logikę, aby sprawdzić, czy ciąg zawiera którykolwiek z wielu ciągów.
Policz komórki zawierające określony tekst: Prosta funkcja LICZ.JEŻELI zdziała magię. Aby policzyć liczbę wielu komórek, które zawierają dany ciąg, używamy operatora wieloznacznego z funkcją LICZ.JEŻELI.
Excel REPLACE vs funkcja SUBSTITUTE: Funkcje REPLACE i SUBSTITUTE są najbardziej niezrozumianymi funkcjami. Aby znaleźć i zamienić dany tekst, używamy funkcji SUBSTITUTE. Gdzie REPLACE służy do zastąpienia liczby znaków w ciągu…
Popularne artykuły:
50 skrótów Excela, które zwiększą Twoją produktywność | Przyspiesz swoje zadanie. Te 50 skrótów przyspieszy pracę w programie Excel.
Jak korzystać z funkcji WYSZUKAJ.PIONOWO programu Excel| Jest to jedna z najczęściej używanych i popularnych funkcji programu Excel, która służy do wyszukiwania wartości z różnych zakresów i arkuszy.
Jak korzystać z Przewyższać LICZ.JEŻELI Funkcja| Policz wartości z warunkami za pomocą tej niesamowitej funkcji. Nie musisz filtrować danych, aby zliczyć określone wartości. Funkcja Countif jest niezbędna do przygotowania deski rozdzielczej.
Jak korzystać z funkcji SUMIF w programie Excel? | To kolejna ważna funkcja deski rozdzielczej. Pomaga to zsumować wartości w określonych warunkach.