Преобразовать в правильный случае в Excel VBA
Ниже мы рассмотрим программу в Excel VBA, который преобразует текст в надлежащем случае. То есть, первая буква каждого слова в верхнем регистре, а все остальные буквы в нижнем регистре.
Ситуация:
-
Во-первых, мы объявляем два объекта Range. Мы называем объекты Диапазон ГСЧ и клетки.
Dim rng As Range, cell As Range
-
Мы инициализируем объект ГСЧ Range с выбранным диапазоном.
Set rng = Selection
-
Мы хотим, чтобы проверить каждую ячейку в случайно выбранном диапазоне (этот диапазон может быть любого размера). В Excel VBA, вы можете использовать для каждого следующего цикла для этого. Добавьте следующие строки кода:
For Each cell In rng Next cell
Примечание: RNG и клетки случайным образом выбраны здесь, вы можете использовать любые имена.
Не забывайте ссылаться на эти имена в остальной части кода.
-
Чтобы игнорировать ячейку, содержащую формулу, добавьте следующую строку кода между For Each и Next (только если cell.HasFormula ложно мы продолжаем).
If Not cell.HasFormula Then End If
-
Далее, мы хотим, чтобы преобразовать каждое слово в этом диапазоне до «правильного случая».
Вы можете использовать функцию рабочего листа Надлежащий для выполнения этой задачи. Добавьте следующую строку кода в вашем, если заявление.
cell.Value = WorksheetFunction.Proper(cell.Value)
-
Проверьте программу.
Результат:
