По -долу ще разгледаме програма в Excel VBA че преобразува текста в подходящ регистър. Тоест първата буква във всяка дума с главни букви, а всички останали букви с малки.
Ситуация:
1. Първо, декларираме два Range обекта. Ние наричаме Range обекти rng и cell.
Dim rng As Range, клетка As Range
2. Инициализираме Range обекта rng с избрания диапазон.
Задайте rng = Избор
3. Искаме да проверим всяка клетка в произволно избран диапазон (този диапазон може да бъде с всякакъв размер). В Excel VBA можете да използвате цикъла For Every Next за това. Добавете следните кодови редове:
За всяка клетка В rng
Следващата клетка
Забележка: тук rng и клетка са избрани на случаен принцип, можете да използвате всякакви имена. Не забравяйте да се позовавате на тези имена в останалата част от кода.
4. За да игнорирате клетка, която съдържа формула, добавете следния кодов ред между For Each и Next (само ако cell.HasFormula е false, продължаваме).
Ако не клетка.HasFormula Тогава
Край Ако
5. След това искаме да преобразуваме всяка дума от този диапазон в „подходящ регистър“. Можете да използвате функцията за работен лист Proper за тази задача. Добавете следния код в изявлението си if.
cell.Value = Работен лист Function.Proper (cell.Value)
6. Тествайте програмата.
Резултат: