Ниже мы рассмотрим программу на Excel VBA тот преобразует текст в правильный регистр. То есть первая буква каждого слова в верхнем регистре, а все остальные буквы в нижнем регистре.
Ситуация:
1. Сначала мы объявляем два объекта Range. Мы называем объекты Range rng и cell.
Dim rng As Range, cell as Range
2. Инициализируем объект Range rng выбранным диапазоном.
Установить rng = Выбор
3. Мы хотим проверить каждую ячейку в случайно выбранном диапазоне (этот диапазон может быть любого размера). В Excel VBA для этого можно использовать цикл For Each Next. Добавьте следующие строки кода:
Для каждой ячейки In rng
Следующая ячейка
Примечание: здесь случайным образом выбираются rng и ячейка, вы можете использовать любые имена. Не забудьте ссылаться на эти имена в остальной части кода.
4. Чтобы игнорировать ячейку, содержащую формулу, добавьте следующую строку кода между For Each и Next (мы продолжим, только если cell.HasFormula имеет значение false).
Если не cell.HasFormula Then
Конец, если
5. Затем мы хотим преобразовать каждое слово в этом диапазоне в «правильный регистр». Вы можете использовать функцию рабочего листа Правильно для этой задачи. Добавьте следующую строку кода в свой оператор if.
cell.Value = WorksheetFunction.Proper (cell.Value)
6. Протестируйте программу.
Результат:
