Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Collection из диапазонов разных листов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Collection из диапазонов разных листов (Макросы/Sub)
Collection из диапазонов разных листов
mss Дата: Вторник, 23.07.2019, 04:37 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 81
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день,

Прошу помочь доработать макрос, данный макрос мс просторов инета и он создает список уникальных элементов, но проблема в том что он для работы берет диапазон с одного листа, а мне необходимо взять для коллекции из двух листов, пробовал сам "допилить" но что то не получается с объединением диапазонов, заранее спасибо.
К сообщению приложен файл: Collection.xlsm (17.9 Kb)
 
Ответить
СообщениеДобрый день,

Прошу помочь доработать макрос, данный макрос мс просторов инета и он создает список уникальных элементов, но проблема в том что он для работы берет диапазон с одного листа, а мне необходимо взять для коллекции из двух листов, пробовал сам "допилить" но что то не получается с объединением диапазонов, заранее спасибо.
Автор - mss
Дата добавления - 23.07.2019 в 04:37
Pelena Дата: Вторник, 23.07.2019, 08:52 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19405
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Сделайте отдельные циклы по листам
[vba]
Код
Set myRange = Sheets("Лист2").Range("A2:A" & LastRow)
Set smyRange = Sheets("Лист3").Range("A2:A" & sLastRow)
On Error Resume Next

For Each myCell In myRange
myCollection.Add CStr(myCell.Value), CStr(myCell.Value)
Next myCell

For Each myCell In ssmyRange
myCollection.Add CStr(myCell.Value), CStr(myCell.Value)
Next myCell
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеСделайте отдельные циклы по листам
[vba]
Код
Set myRange = Sheets("Лист2").Range("A2:A" & LastRow)
Set smyRange = Sheets("Лист3").Range("A2:A" & sLastRow)
On Error Resume Next

For Each myCell In myRange
myCollection.Add CStr(myCell.Value), CStr(myCell.Value)
Next myCell

For Each myCell In ssmyRange
myCollection.Add CStr(myCell.Value), CStr(myCell.Value)
Next myCell
[/vba]
Автор - Pelena
Дата добавления - 23.07.2019 в 08:52
mss Дата: Вторник, 23.07.2019, 09:23 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 81
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо, сделал, но почему-то далее не срабатывает выборка уникальных элементов
К сообщению приложен файл: 7216533.xlsm (17.9 Kb)
 
Ответить
СообщениеСпасибо, сделал, но почему-то далее не срабатывает выборка уникальных элементов
Автор - mss
Дата добавления - 23.07.2019 в 09:23
Pelena Дата: Вторник, 23.07.2019, 09:53 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19405
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Ну, потерялся кусочек. Исправила выше

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеНу, потерялся кусочек. Исправила выше
Автор - Pelena
Дата добавления - 23.07.2019 в 09:53
mss Дата: Вторник, 23.07.2019, 11:58 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 81
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо большое, все ОК, а еще вопросик если не нарушаю условий, можно как то сортировку сделать перед выгрузкой на лист, просто от меньшего к большему
 
Ответить
СообщениеСпасибо большое, все ОК, а еще вопросик если не нарушаю условий, можно как то сортировку сделать перед выгрузкой на лист, просто от меньшего к большему
Автор - mss
Дата добавления - 23.07.2019 в 11:58
Pelena Дата: Вторник, 23.07.2019, 13:01 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19405
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Сортировка - это уже другая тема.
У Вас же в макросе была сортировка, вроде

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеСортировка - это уже другая тема.
У Вас же в макросе была сортировка, вроде
Автор - Pelena
Дата добавления - 23.07.2019 в 13:01
mss Дата: Вторник, 23.07.2019, 16:03 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 81
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Была, но она записана через макрорекордер немного допилена, просто на просторах читал что есть возможность сортировать перед выгрузкой на лист, ну раз это друга тема, создам, спасибо всем большое за помощь и наставления:D
 
Ответить
СообщениеБыла, но она записана через макрорекордер немного допилена, просто на просторах читал что есть возможность сортировать перед выгрузкой на лист, ну раз это друга тема, создам, спасибо всем большое за помощь и наставления:D
Автор - mss
Дата добавления - 23.07.2019 в 16:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Collection из диапазонов разных листов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!