/ / Перетворити на правильний випадок у Excel VBA

Перетворити на правильний випадок у Excel VBA

Нижче ми розглянемо програму в Росії Excel VBA це перетворює текст на правильний випадок. Тобто, перша буква в кожному словнику у верхньому регістрі та всі інші букви в нижньому регістрі.

Ситуація:

Перетворити на правильний випадок у Excel VBA

1. По-перше, ми оголошуємо два об'єкти діапазону. Ми називаємо об'єкти діапазону rng та cell.

Dim rng As Range, cell As Range

2. Ми ініціалізуємо об'єкт Діапазон rng з вибраним діапазоном.

Set rng = Selection

3. Ми хочемо перевірити кожну комірку у випадково вибраному діапазоні (цей діапазон може бути будь-якого розміру). У програмі Excel VBA ви можете використовувати для кожного циклу Next для цього. Додайте наступні кодові рядки:

For Each cell In rng

Next cell

Примітка. Тут вибираються випадкові вибірки rng і cell, ви можете використовувати будь-які імена. Не забудьте вказати ці назви в решті частини вашого коду.

4. Щоб ігнорувати клітинку, яка містить формулу, додати наступну кодову лінію між Для кожного і Далі (тільки якщо cell.HasFormula є помилковим, ми продовжуємо).

If Not cell.HasFormula Then

End If

5. Далі ми хочемо перетворити кожне слово в цьому діапазоні на "правильний випадок". Ви можете використовувати функціональну таблицю Proper для цього завдання. Додайте наступну кодову лінію у вашому операторі if.

cell.Value = WorksheetFunction.Proper(cell.Value)

6. Перевірте програму.

Результат:

Перетворити на відповідний результат справи

Також читайте: