Переупорядочивание текста в указанном диапазоне с помощью метода Range.Justify из кода VBA Excel, чтобы текст заполнил диапазон равномерно.
Метод Range.Justify
Определение
Синтаксис
|
1 |
Expression.Justify |
Expression — выражение (переменная), представляющее объект Range.
Примечания
В одной ячейке может находиться не более 255 знаков, лишние при переупорядочивании текста методом Range.Justify будут обрезаны.
Если указанный диапазон недостаточно велик, чтобы распределить по нему текст методом Range.Justify, Microsoft Excel отобразит сообщение о том, что текст будет распространяться ниже диапазона.
При выборе кнопки ОК, переупорядочиваемый текст заменит содержимое в ячейках ниже, которые находятся за пределами выбранного диапазона.
Если вы хотите, чтобы сообщение о распространении текста вне диапазона не появлялось, используйте свойство DisplayAlerts объекта Application:
|
1 2 3 |
Application.DisplayAlerts = False 'Код с методом Range.Justify Application.DisplayAlerts = True |
В этом случае перераспределяемый текст всегда заменит содержимое в ячейках ниже диапазона без отображения диалогового окна.
Примеры с Range.Justify
Для наглядности во всех примерах в качестве указанного диапазона используется объект Selection и, соответственно, один и тот же код VBA Excel:
|
1 2 3 |
Sub Primer() Selection.Justify End Sub |
Пример 1
Преобразование одной строки текста в ячейке «A1» c указанием диапазона «A1:F1».
Исходный текст:
Переупорядоченный текст:
Пример 2
Преобразование одной строки текста в ячейке «A1» c указанием диапазона «A1:F9».
Исходный текст:
Переупорядоченный текст:
Как мы видим, результат тот же, что и в первом примере.
Пример 3
Преобразование двух строк текста в ячейках «A1» и «A2» c указанием диапазона «A1:F2».
Исходный текст:
Переупорядоченный текст:
На изображении видно, что исходный текст из ячейки «A2» добавился через пробел как продолжение к исходному тексту из ячейки «A1» в строке 5 переупорядоченного текста.
Пример 4
Разделение текста или списка на отдельные слова с помощью метода Range.Justify из кода VBA Excel.
Исходный текст:
Переупорядоченный текст:
Чтобы текст разбился на отдельные слова, ширина столбца должна быть меньше ширины двух слов.