|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.07.2016, 11:24 | #1 |
Пользователь
Регистрация: 26.10.2010
Сообщений: 87
|
Упростить процедуру, меняются только наименование листа и столбца
Добрый день!
Есть процедура, она повторяется снова и снова. Меняется в ней только наименование листов (по порядку от "01" до "25") и наименование столбцов (их тоже 25, они именуются через один: A,C,E,и т.д.). Можно ли как-то компактно записать эту процедуру, не переписывая код 25 раз, руками меняя названия листов и столбцов? Красным цветом, жирным и подчеркиванием выделил позиции, которые меняются. Спасибо! Код:
|
19.07.2016, 15:02 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
1. избавиться от селектов
2. для листов в цикле Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
20.07.2016, 09:28 | #3 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
20.07.2016, 10:51 | #4 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Кстати, есть ли возможность без цикла выделить диапазон строк по 2 критериям?
Например вставить на другой лист строки в которых: а) в столбце В встречается любой текст или б) в стобце С встречается текст "Текст"
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
20.07.2016, 13:20 | #5 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
а) Columns(2).SpecialCells(xlCellTypeC onstants, xlTextValues).entirerow.copy Вот_сюда
б) находить "Текст" по одному добавлять
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
20.07.2016, 13:48 | #6 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
20.07.2016, 14:09 | #7 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
да стандартным Range.Find(...)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
21.07.2016, 10:21 | #8 |
Пользователь
Регистрация: 26.10.2010
Сообщений: 87
|
Спасибо!
Только вот что означает "с кроком 2" ? |
21.07.2016, 10:31 | #9 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
проблемы с переводом на русский язык. "с шагом 2" Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
21.07.2016, 13:31 | #10 |
Пользователь
Регистрация: 26.10.2010
Сообщений: 87
|
возможно ли, чтобы обе процедуры не мешали друг другу?
У меня получается, что какой-то один из двух For... "перекрывает" работу другого. В данном случае он переходит с листа "01" на лист "02", но номер столбца не меняет: Код:
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создание листа по вводным первого листа первого столбца | -Rama- | Microsoft Office Excel | 4 | 08.06.2012 23:37 |
Как найти минимум и вывести наименование этого столбца | Tolikv | Microsoft Office Excel | 3 | 30.12.2011 12:16 |
Перебор ячеек столбца и формирование нового листа из уникальных записей | Ad1r | Microsoft Office Excel | 3 | 06.05.2010 09:38 |
Копирование данных с одного листа на другой по значению первого столбца | Lis000iq | Microsoft Office Excel | 11 | 07.03.2010 13:34 |
как упростить код, используя только массивы, циклы, разветвления и указатели? | laxe | Общие вопросы C/C++ | 22 | 01.09.2009 09:16 |