Wraptext excel что это

Обновлено: 06.01.2025

Авторизуясь в LiveJournal с помощью стороннего сервиса вы принимаете условия Пользовательского соглашения LiveJournal

Предупреждение: рекомендую читать посты непосредственно в моем журнале, т.к. я настроил его стиль (CSS) для наиболее легкого чтения исходного кода программ. Но это не обязательно: мучайтесь в своем!

6)Разбор и оптимизация программы

Остановились мы на том, что при попытке автоматизировать некую еженедельную рутинную работу по оформлению таблицы, не написав ни строчки, мы получили программу, вполне себе рабочую, но нам непонятную.

Давайте разбираться.
Тем более я все разобрал за вас, а язык программирования - элементарный английский.

Этот урок очень важен! Его обязательно нужно понять. Если вы не сломаетесь на нем, то Вы будете программировать.Объяснение многих нюансов я просто опущу, надеясь на ваше наитие, но вы можете задавать вопросы.
Впрочем, даже сломавшись, вы уже можете автоматизировать свои рутинные действия, что экономит кучу времени.

Если вы вообще смотрели код программы, то заметили в самои начале строчки:

Все это комментарии, т.е. текст, который программа не выполняет, служащий для описания программы на понятном языке.
Комментарии в VBA обозначается апострофом (').

Потом идет уже описанный комментарий, а далее программа, очевидно, пыталась выполнить то, что мы просили.

Вспомните, и все станет ясно:

Очевидно, этот код можно упростить, ведь мы просили поменять всего три значения, отличных от заданных по умолчанию, стерев ненужное:

Более того, выделение служило нам для указания Excel с какими ячейками мы хотим выполнить действие.
В программе это можно сделать сразу:

Замечу, что всего этого можно и не делать и даже вообще не пытаться разбираться в коде. Написанная вами программа будет работать вне зависимости от ваших познаний.

Смотрим далее. Потом в основном окне Excel нажали кнопкау Ж на верхней панели инструментов,сделав текст шапки жирной:

А мы уже убрали выделение! Программе можно указать прямо:

или лучше включить этот код в предыдущий, который относится к тем же ячейкам:

Думаю, вы уже обратили внимание на удобные отступы в записи, показывабщие иерархию кода: чем больше отступ, тем менее важен текст: внутренние строчки блока можно удалить, что-то не будет выполняться, но программа не даст ошибки.
Впрочем, этот блок можно переписать и так, что все строчки будут равноправными:

Конечно, отступы совсем не обязательны и служат для удобочтения программы.
Кстати, VBA очень демократичный язык и допускает массу послаблений в отличии от многих других.

Что мы делали дальше? Меняли ширины столбцов:

Упрощаем без оператора With для разнообразия:

Далее мы выделили таблицу и установили одинаковые границы:

Мне кажется, это можно упростить вот так, удалив все автоматическое и по умолчанию, а также выделение ячеек.
Выделение и вообще все физические действия пользователя на экране (перемещение, прокрутка, минимизация) всегда правильно удалять для оптимизации, отсутствия скачков во время исполнения (об этом потом) и отделения программы от интерфейса.

Ну, и последним блоком дальше:

Помните, я вам говорил, что теперь вы программист? Я врал. Я льстил. Но у вас есть все шансы если не стать им, то существенно облегчить работу себе и овладеть новыми знаниями.

Пока мы не написали не строчки.
Проверьте работоспособность оптимизированной программы. Вы вряд ли заметите прирост скорости, разве лишь на более крупных таблицах или медленных компьютерах. Но - скорее всего - он в разы.
А в следующий раз мы действительно начнем программировать.

И полный код оптимизированной программы:

Ой! Ну надо же! У меня заработало!! Радость-то какая, радость.
Удач!

VBA Excel – это отличный инструмент для автоматизации многих офисных и других учетных и вычислительных процессов. В этой рубрике представлены небольшие заметки по VBA Excel со справочной информацией, которые можно использовать как памятки при написании кода. VBA часто применяется для автоматизации офисных и других работ, которые ведутся в книгах Excel. Это и учет сотрудников, и начисление зарплат и налогов, и формирование различных бланков, и обработка больших объемов каких-либо данных. То, чем приходилось мне пользоваться на практике, также описано в этой рубрике и в рубрике «Офисная работа».

Смотрите Содержание рубрики VBA Excel по тематическим разделам со ссылками на все статьи.

VBA Excel. Квадратные ячейки (тетрадные клетки)

Создание квадратных ячеек (тетрадных клеток) на рабочем листе Excel с помощью кода VBA, когда высота строк в диапазоне листа равна ширине столбцов. Подробнее » VBA Excel. Квадратные ячейки (тетрадные клетки)

VBA Excel. Свойство ActiveCell объекта Application

Свойство ActiveCell объекта Application, применяемое в VBA для возвращения активной ячейки, расположенной на активном листе в окне приложения Excel. Подробнее » VBA Excel. Свойство ActiveCell объекта Application

VBA Excel. Свойство Selection объекта Application

Свойство Selection объекта Application, которое применяется в VBA для возвращения выбранного объекта на активном листе в активном окне приложения Excel. Подробнее » VBA Excel. Свойство Selection объекта Application

VBA Excel. Метод Hyperlinks.Add (создание гиперссылки)

Создание гиперссылки в VBA Excel методом Hyperlinks.Add для перехода на другой лист, на интернет-сайт, для открытия любого файла в программе по умолчанию. Подробнее » VBA Excel. Метод Hyperlinks.Add (создание гиперссылки)

VBA Excel. Свойства Row и Rows объекта Range

Свойства Row и Rows объекта Range в VBA Excel. Возвращение номера первой строки и обращение к строкам смежных и несмежных диапазонов. Подробнее » VBA Excel. Свойства Row и Rows объекта Range

VBA Excel. Свойства Column и Columns объекта Range

Свойства Column и Columns объекта Range в VBA Excel. Возвращение номера первого столбца и обращение к столбцам смежных и несмежных диапазонов. Подробнее » VBA Excel. Свойства Column и Columns объекта Range

VBA Excel. Свойство Areas объекта Range

Получение коллекции смежных областей произвольного несмежного диапазона в VBA Excel. Свойство Areas объекта Range. Примеры со скриншотами. Подробнее » VBA Excel. Свойство Areas объекта Range

VBA Excel. Свойство End объекта Range

VBA Excel. Поиск повторяющихся значений (дубликатов)

Поиск повторяющихся значений (дубликатов) в одном из столбцов таблицы Excel и выделение их цветом заливки с помощью кода VBA. Подробнее » VBA Excel. Поиск повторяющихся значений (дубликатов)

VBA Excel. Свойство Cells объекта Range

Свойство Cells объекта Range в VBA Excel, представляющее коллекцию ячеек заданного диапазона. Обращение к ячейкам диапазона с помощью свойства Cells. Подробнее » VBA Excel. Свойство Cells объекта Range

VBA Excel. Сортировка массива

Сортировка одномерного массива в VBA Excel по возрастанию или убыванию с числовым или текстовым сравнением числовых элементов. Сортировка выбором. Подробнее » VBA Excel. Сортировка массива

VBA Excel. Защита паролем проекта VBA и снятие защиты

Установка пароля на VBA-проект и снятие защиты с него. Отключение забытого пароля с проекта VBA, созданного в книге Excel с расширением .xlsm. Подробнее » VBA Excel. Защита паролем проекта VBA и снятие защиты

VBA Excel. Метод Range.PasteSpecial (специальная вставка)

Специальная вставка (метод PasteSpecial объекта Range) применяется в VBA Excel для вставки ячеек из буфера обмена с учетом заданных параметров. Подробнее » VBA Excel. Метод Range.PasteSpecial (специальная вставка)

VBA Excel. Буфер обмена (копирование, вставка, очистка)

Работа с буфером обмена в VBA Excel: копирование и вставка ячеек, копирование текста из переменной, очистка буфера обмена. Объект DataObject. Примеры. Подробнее » VBA Excel. Буфер обмена (копирование, вставка, очистка)

VBA Excel. Удаление ячеек со сдвигом (Range.Delete)

Программное удаление ячеек в VBA Excel со сдвигом влево или со сдвигом вверх методом Delete объекта Range. Константы XlDeleteShiftDirection. Подробнее » VBA Excel. Удаление ячеек со сдвигом (Range.Delete)

VBA Excel. Удаление пустых строк

Удаление пустых строк с помощью кода VBA из всего задействованного диапазона рабочего листа Excel и из отдельного заданного диапазона. Подробнее » VBA Excel. Удаление пустых строк

VBA Excel. Функции Int и Fix

Возвращение целой части дробного десятичного числа с помощью функций Int и Fix в VBA Excel. Синтаксис, правила округления, примеры. Подробнее » VBA Excel. Функции Int и Fix

VBA Excel. Поиск значения в таблице

Поиск неизвестного значения в 3 столбце таблицы по известным значениям, расположенным в 1 и 2 столбцах той же строки, из кода VBA Excel. Подробнее » VBA Excel. Поиск значения в таблице

VBA Excel. Перемещение листа и его отмена

Перемещение выбранного листа рабочей книги на позицию перед другим выбранном листом или после него с помощью кода VBA Excel и отмена перемещения. Подробнее » VBA Excel. Перемещение листа и его отмена

I'm creating a small piece of VBA code with a specific formula, however it has a couple of if statements, one of which originates a double-line string (with vbNewLine ) The issue is that I can't see the text.

So I wanted to word wrap it, but each time I set the ActiveCell.WrapText = True , nothing happens.

I checked with a message box. I set the WrapText to True, I return the property value with the MessageBox to confirm, and it's still False.

I've been told to use ActiveCell.Rows.AutoFit as well, but AutoFit does nothing if the text isn't wrapped.

Any idea what I might be doing wrong here?

7,168 19 19 gold badges 67 67 silver badges 86 86 bronze badges 163 2 2 gold badges 2 2 silver badges 7 7 bronze badges Please: less slang and filler words, more well-formatted code samples. This question is quite difficult to read and understand, basically, like. Whassup wit dat?

6 Answers 6

It worked for me. Make sure that your screenupdating is also set to true.

609 1 1 gold badge 5 5 silver badges 21 21 bronze badges If the spreadsheet isnt that data intensive, you can ad a - on cell change - in your workbook. Every time a cell is changed, it can call the macro code to update the activecell height. Note though that if this spreadsheet in any way gets large it going to be very slow!

For me, the code below worked. (only set to change header row, (change range))

1,468 6 6 gold badges 24 24 silver badges 31 31 bronze badges

UDFs (procedures that use the keyword Function) only return values. They cannot change other parts of the Excel object model, like cell formatting. Only Subroutines (procedures that use the keyword Sub) can do that.

You need to have your cells formatted properly before you enter your UDF. Or you could use a worksheet change event sub to format them after the fact.

31.7k 4 4 gold badges 50 50 silver badges 71 71 bronze badges

Turn off/On word wrap for whole sheet row can be done by VB code shown below: If the first row is set true, excel inherits that property for whole sheet, unless you specifically turned it off using another code.

To turn off wrapping property of a specific row:

I suspect that you are trying to wrap text in merged cells. If yes, you cannot simply call:

1,794 1 1 gold badge 11 11 silver badges 7 7 bronze badges

This may not be exactly what the OP had in mind but I figured I'd share my VBA Word Wrap function since I couldn't find anything on the web to do what I wanted.

This function insert CR + LF 's into the string in order to wrap it, so the word wrap is maintained if the text is copied to another application, text-based or otherwise.

As an example of application, I was building complex SQL queries in Excel and wanted to copy the SQL over to the server app neat & tidy, instead of one giant line.

Для начала немного теории. Если в ячейках листа Excel записан некий длинный текст, то обычно устанавливают перенос на строки(вкладка Главная -группа Выравнивание -Перенос текста), чтобы текст не растягивался на весь экран, а умещался в ячейке. При этом высота ячейки тоже должна измениться, чтобы отобразить все содержимое. Если речь идет всего об одной простой ячейке - проблем не возникает. Обычно, чтобы установить высоту строки на основании содержимого ячейки, достаточно навести курсор мыши в заголовке строк на границу строки(курсор приобретет вид направленных в разные стороны стрелок - ) и дважды быстро щелкнуть левой кнопкой мыши. Тоже самое можно сделать и для ширины столбцов.
Но с объединенными ячейками такой фокус не прокатывает - ширина и высота для этих ячеек так не подбирается, сколько ни щелкай и приходится вручную подгонять каждую, чтобы текст ячейки отображался полностью:

Стандартными средствами такой автоподбор не сделать, но вот при помощи VBA - без проблем. Ниже приведена функция, которая поможет подобрать высоту и ширину объединенных ячеек на основании их содержимого.

т.к. нельзя выставить и автоширину и автовысоту - то функция подбирает либо высоту, либо ширину, что логично
чтобы подбор по высоте ячеек сработал, для ячейки должен быть выставлен перенос строк(вкладка Главная -группа Выравнивание -Перенос текста). Если ячеек много и выставлять вручную лень - можно просто убрать апостроф перед точкой в строке: ' .WrapText = True 'раскомментировать, если необходимо принудительно выставлять перенос текста тогда код сам проставит переносы. Но тут следует учитывать, что в данном случае перенос будет выставлен для всех ячеек, что не всегда отвечает условиям
функция подбирает высоту и ширину исключительно для объединенных ячеек. Если ячейка не объединена - код оставит её без изменений

Теперь о том, как это работает и как применять. Для начала необходимо приведенный выше код функции вставить в стандартный модуль. Сама по себе функция работать не будет - её надо вызывать из другого кода, который определяет какие ячейки обрабатывать. В качестве такого кода я предлагаю следующий:

Если подобную операцию приходится производить постоянно - советую коды записать в надстройку: Как создать свою надстройку?. Так же можно воспользоваться уже готовым решением в составе MulTEx - Высота/Ширина объединенной ячейки.

Читайте также: