|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.10.2015, 08:22 | #1 |
Заблокирован
Регистрация: 15.02.2010
Сообщений: 148
|
Изменить формат ячейки и удалить пробелы
После выгрузки данных с ERP текстовые данные получаю с пробеламы в конце ("sku "), решил сделать макрос который в выделенном диапазоне удалит пробелы в непустых ячейках и преобразует их в текстовый формат. Если встречаются ячейки с формулами-их не трогать.
Прошу совета что можно оптимизировать, реализировать более просто :-) Код:
|
21.10.2015, 10:25 | #2 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Да, текста многовато Попробуйте так - со всем листом тоже можно работать
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
21.10.2015, 10:36 | #3 |
Заблокирован
Регистрация: 15.02.2010
Сообщений: 148
|
pięknie!
А можете обяснить почему trim() обрезает пробелы слева-справа, а Application.Trim() и в тексте? |
21.10.2015, 10:42 | #4 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Application.Trim это функция листа СЖПРОБЕЛЫ, она также заменяет множественные пробелы на один в строке. И, как многие другие функции листа, может работать с массивом.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
|
21.10.2015, 10:50 | #5 |
Заблокирован
Регистрация: 15.02.2010
Сообщений: 148
|
и еще маленькую доделку прошу. Если в выделении нету текстовых ячеек, как обработать ошибку 1004 (Не найдено ячеек = указанным условиям) на "Selection.SpecialCells(xlCellTypeC onstants, xlTextValues).Areas"
Решил Код:
Последний раз редактировалось AleksandrH; 21.10.2015 в 10:57. |
21.10.2015, 11:48 | #6 |
Форумчанин
Регистрация: 27.10.2014
Сообщений: 248
|
А
Код:
Может такая проверка Код:
|
21.10.2015, 12:01 | #7 | |
Заблокирован
Регистрация: 15.02.2010
Сообщений: 148
|
имхо
On Error resume next "запустит" выполнение команд внутри цикла а On Error Goto Norec "перепрыгнет" в конец процедуры. визуально на листе результат вроде одинаковый. Цитата:
Selection.SpecialCells(xlCellTypeCo nstants, xlTextValues, xlNumber).Areas |
|
11.03.2016, 11:20 | #8 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Как "подшаманить" макроса чтобы отрабатывал и с установленным фильтром, те удалял пробелы и приводил формат в текст только видимых ячеек?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
изменить формат ячейки при сохранении xls | Євгеній Бєлік | Общие вопросы Delphi | 7 | 26.11.2013 08:14 |
Удалить пробелы из файла. | elfi | Общие вопросы C/C++ | 1 | 14.09.2013 15:58 |
Формат ячейки равнялся формату ячейки из другого листа? | Alexandrone | Microsoft Office Excel | 5 | 29.10.2010 00:08 |
Удалить лишние пробелы [C++] | StudeHt | Помощь студентам | 2 | 20.05.2009 23:12 |
изменить формат ячейки | natali | Microsoft Office Excel | 2 | 08.10.2007 12:40 |