Poniżej przyjrzymy się programowi w Excel VBA że konwertuje tekst na poprawną wielkość liter. Oznacza to, że pierwsza litera w każdym słowie jest pisana wielkimi literami, a wszystkie pozostałe są małymi.
Sytuacja:
1. Najpierw deklarujemy dwa obiekty Range. Nazywamy obiekty Range rng i cell.
Dim rng As Range, komórka As Range
2. Inicjujemy obiekt Range rng z wybranym zakresem.
Ustaw rng = Wybór
3. Chcemy sprawdzić każdą komórkę w losowo wybranym zakresie (ten zakres może mieć dowolny rozmiar). W Excel VBA możesz użyć do tego pętli For Each Next. Dodaj następujące wiersze kodu:
Dla każdej komórki w rng
Następna komórka
Uwaga: rng i komórka są tutaj wybierane losowo, możesz użyć dowolnych nazw. Pamiętaj, aby odwoływać się do tych nazw w pozostałej części kodu.
4. Aby zignorować komórkę zawierającą formułę, dodaj następującą linię kodu między For Each i Next (tylko jeśli cell.HasFormula ma wartość false, kontynuujemy).
Jeśli nie komórka.HasFormula Wtedy
Zakończ, jeśli
5. Następnie chcemy skonwertować każde słowo z tego zakresu na „właściwy przypadek”. Do tego zadania możesz użyć funkcji arkusza Właściwa. Dodaj następujący wiersz kodu w instrukcji if.
cell.Value = WorksheetFunction.Proper(cell.Value)
6. Przetestuj program.
Wynik: