Як обтікати текст за допомогою vba (з прикладом)

Ви можете використовувати властивість WrapText у VBA, щоб перенести текст у певні клітинки на аркуші Excel.

Ось три поширені способи використання цієї властивості на практиці:

Спосіб 1. Перенесення тексту в певну клітинку

 Sub UseWrapText()
Range(" B2 ").WrapText = True
End Sub

Спосіб 2. Перенесення тексту клітинки в певний діапазон

 SubUseWrapText ()
Range(" B2:B11 ").WrapText = True
End Sub

Спосіб 3: обтікання текстом у всіх клітинках аркуша

 Sub UseWrapText()
Cells.WrapText = True
End Sub

У наведених нижче прикладах показано, як використовувати кожен метод на практиці з таким набором даних у Excel:

Ходімо!

Приклад 1. Перенесення тексту в конкретну комірку за допомогою VBA

Ми можемо створити наступний макрос для обтікання тексту лише в комірці B2 :

 Sub UseWrapText()
Range(" B2 ").WrapText = True
End Sub

Коли ми запускаємо цей макрос, ми можемо клацнути комірку B2 і побачити, що в групі «Вирівнювання» на вкладці «Домашня сторінка» вздовж верхньої стрічки ввімкнено «Обтікання текстом» :

Однак нам потрібно скоротити довжину стовпця B і збільшити висоту рядка 2, щоб фактично побачити перенесений текст:

Тепер ми можемо легко побачити, що текст у клітинці B2 переноситься, тоді як текст у всіх інших клітинках стовпця B не переноситься.

Приклад 2. Перенесення тексту клітинки в певний діапазон за допомогою VBA

Ми можемо створити наступний макрос для обтікання текстом у кожній комірці в діапазоні B2:B11 :

 Sub UseWrapText()
Range(" B2:B11 ").WrapText = True
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Ми бачимо, що кожна клітинка в діапазоні B2:B11 тепер містить перенесений текст.

Приклад 3: обтікання текстом усіх комірок на аркуші за допомогою VBA

Ми можемо створити наступний макрос для обтікання текстом у кожній клітинці аркуша:

 Sub UseWrapText()
Cells.WrapText = True
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Ми бачимо, що кожна клітинка на аркуші тепер містить обгорнутий текст.

Примітка . Повну документацію щодо властивості VBA WrapText можна знайти тут .

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

VBA: Як змінити колір шрифту
VBA: Як замінити символи в рядку
VBA: Як вставити рядок із форматуванням