|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
09.02.2017, 20:57 | #1 |
Пользователь
Регистрация: 20.05.2010
Сообщений: 16
|
Помогите с макросом по форматированию ячеек
Доброго дня, Уважаемые знатоки excel!
Есть таблица, в которой существующий макрос разносит данные из столбца b на скрине по статьям, после чего удаляет лишние строки. Вопрос: подскажите код, чтобы появляющиеся ячейки столбцов а и b ниже существующих, повторяли бы форматирование вышестоящих. Спасибо. скрин: файл-excel (подправить макрос в модуле modTestData, макрос ListLiteCode()) |
09.02.2017, 22:07 | #2 |
Форумчанин
Регистрация: 29.08.2012
Сообщений: 209
|
По формату.
После строки With .Offset(, 12) вставьте строки Код:
Алексей М.
|
09.02.2017, 22:11 | #3 |
Пользователь
Регистрация: 20.05.2010
Сообщений: 16
|
Наверно не совсем достаточно...
Вот что получилось Последний раз редактировалось grh1; 09.02.2017 в 22:16. |
09.02.2017, 23:06 | #4 |
Форумчанин
Регистрация: 29.08.2012
Сообщений: 209
|
У меня программа не проходит строку
Код:
Алексей М.
|
10.02.2017, 07:32 | #5 |
Пользователь
Регистрация: 20.05.2010
Сообщений: 16
|
у меня так же код стоит перед этой строкой
|
10.02.2017, 09:12 | #6 |
Форумчанин
Регистрация: 29.08.2012
Сообщений: 209
|
да, в этом месте.
Метод RemoveDuplicates появился в Excel 2007, а у меня 2003, поэтому не работает. Исключив строку .RemoveDuplicates 1, xlNo код обрабатывается до конца.
Алексей М.
|
10.02.2017, 09:59 | #7 |
Пользователь
Регистрация: 20.05.2010
Сообщений: 16
|
а может чем-то можно заменить
.RemoveDuplicates 1, xlNo на аналог? |
10.02.2017, 10:34 | #8 |
Форумчанин
Регистрация: 29.08.2012
Сообщений: 209
|
А у вас тоже на этой строке останавливается?
А как было раньше, до вставки двух строк копирования форматов?
Алексей М.
|
10.02.2017, 11:46 | #9 |
Пользователь
Регистрация: 20.05.2010
Сообщений: 16
|
Прикрепил файл, откройте его и нажмите кнопку "выполнить просчет
по 4-м цифрам кода" Две Ваши строки кода закомментированы. |
10.02.2017, 14:13 | #10 |
Форумчанин
Регистрация: 29.08.2012
Сообщений: 209
|
Что я должен увидеть?
А еще у меня нет функции SUMIFS(), поэтому, если пропущу RemoveDuplicates во всех ячейках ошибка ИМЯ
Алексей М.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с макросом! | Nikita1987 | Microsoft Office Excel | 2 | 18.12.2014 10:43 |
Помогите с макросом | Dasha-DEV | Microsoft Office Word | 4 | 29.10.2014 14:06 |
Помогите с макросом | famasik | Microsoft Office Excel | 2 | 10.12.2013 17:20 |
поиск не заблокированных ячеек макросом | NoLL | Microsoft Office Excel | 4 | 24.12.2010 06:23 |
Копировать значения ячеек макросом | torus | Microsoft Office Excel | 1 | 09.11.2008 00:15 |