Jak przekonwertować małe litery na wielkie litery dla kilku kolumn za pomocą VBA w programie Microsoft Excel
W tym artykule dowiemy się, jak konwertować tekst na wielkie litery w określonych kolumnach (nie we wszystkich komórkach) za pomocą kodu VBA.
Pytanie): Potrzebuję kodu, który zastąpi tekst wpisywany małymi literami na wielkie w niektórych kolumnach (nie we wszystkich).
Powiedzmy, że nie chcę, aby kod działał w kolumnach 4, 6, 9, 12 i 13, tj. jeśli w tych kolumnach zostanie wprowadzony dowolny tekst, kod nie zostanie uruchomiony.
Aby uzyskać duże litery podczas pisania małymi literami; musimy wykonać poniższe kroki, aby uruchomić edytor VB
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
Skopiuj następujący kod w module Arkusz
Private Sub Worksheet_Change (ByVal Target As Excel.Range)
Jeśli kolumna docelowa = 4 lub kolumna docelowa = 6 lub kolumna docelowa = 9 _
Lub Target.Column = 12 Lub Target.Column = 13 Następnie wyjdź z Sub
W przypadku błędu przejdź do obsługi błędów
Application.EnableEvents = False
Formuła docelowa = UCase(Formula docelowa)
Obsługa błędów:
Application.EnableEvents = Prawda
Napis końcowy
- Kod będzie działał tylko w arkuszu 1, ponieważ kod zostanie wprowadzony w arkuszu 1
- Kod automatycznie zastąpi małą literę wpisaną przez pomyłkę lub w niewiedzy na wielką literę we wszystkich kolumnach z wyjątkiem 4, 6, 9, 12 i 13.
W ten sposób możemy przekonwertować tekst na wersaliki w określonych kolumnach za pomocą kodu VBA.
Pobierz - Jak konwertować małe litery na wielkie litery - xlsm