/ / Преобразуване в подходящ случай в Excel VBA

Преобразуване в правилен случай в Excel VBA

По - долу ще разгледаме програма в Excel VBA че превръща текст в правилен случай, Това означава, че първата буква във всяка дума е главна и всички други букви са малки.

Ситуация:

Преобразуване в правилен случай в Excel VBA

1. Първо, декларираме два Range обекти. Наричаме Range обектите rng и cell.

Dim rng As Range, cell As Range

2. Инициализираме Range object rng с избрания обхват.

Set rng = Selection

3. Искаме да проверим всяка клетка в произволно избран диапазон (този диапазон може да бъде с всякакъв размер). В Excel VBA можете да използвате цикъла For Each Next за това. Добавете следните кодови редове:

For Each cell In rng

Next cell

Забележка: rng и клетката са избрани произволно тук, можете да използвате имена. Не забравяйте да препратите към тези имена в останалата част от кода си.

4. За да пренебрегнете клетката, която съдържа формула, добавете следната кодова линия между For Each и Next (само ако cell.HasFormula е фалшива, ние продължаваме).

If Not cell.HasFormula Then

End If

5. След това искаме да превърнем всяка дума в този диапазон в "подходящ случай". Можете да използвате функцията за работен лист, подходяща за тази задача. Добавете следния код в изявлението if.

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

6. Изпробвайте програмата.

Резултат:

Преобразуване в правилния резултат на казуса

Също така се чете: