![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
![]()
Добрый день!
Есть файл, в листе 130 нужно найти кол-во повторений табельных номеров. КОД ЕСТЬ!, но из-за особенности файла если запустить макрос Sovpadenie, то Exel зависает. Если скопировать ячейку С308 в ячейки С309:С312 и запустить макрос vvv, а потом макрос Sovpadenie, то всё работает. В чём проблема? Помогите кто чём может! Жалко нет смайлика бьёщегося об стену) |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 25.05.2011
Сообщений: 249
|
![]()
видите, ваш макрос независает, он работает - находит совпадения, в данном случае - пустые ячейки... выход из цикла надо по другому прописать
|
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 22.06.2011
Сообщений: 325
|
![]()
Я думаю будет проще если создать массив отсортировать его методом Шелла и потом внутри массива искать соседние одинаковые значения
Заказать макрос можно на сайте http://excel4you.ru/
|
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
![]()
по другому, это как?
да и в других файлах он работает прекрасно, почеу тогда при забивании 4-х ячеек и запуске макроса vvv макрос работает хорошо? Если есть возможность каким либо образом переделать макрос - буду благодарен. |
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
![]()
Сортировать массив нельзя! не в коем случае. , я сюда выложил обрезаную таблицу, дальше есть колонки которые с часами, цехами и прочее.
|
![]() |
![]() |
![]() |
#6 |
Форумчанин
Регистрация: 25.05.2011
Сообщений: 249
|
![]()
или ограничить диапазон проверки
Код:
Код:
Последний раз редактировалось Bape}l{ka; 26.08.2011 в 16:29. |
![]() |
![]() |
![]() |
#7 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
![]()
так работает, спасибо) но кол-во у меня будет менятся, попробую всавить вместь С308 - LastRow, но над этим поколдую уже попозжа)
СПАСИБО! что откликнулись. |
![]() |
![]() |
![]() |
#8 |
Форумчанин
Регистрация: 25.05.2011
Сообщений: 249
|
![]()
у Вас перед LastRow знак еще какой-то стоял - может случайно дописали, поэтому и не определяется
|
![]() |
![]() |
![]() |
#9 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,170
|
![]()
Ммм... Количество уникальных значений обычно словарём или коллекцией определяют.
Не совсем понял, что там ещё делается (запоминаются номера строк зачем-то), но и это можно словарём сделать, или если допмассив привлечь. Поищите тут по Dictionary и Collection. Если протянуть рядом единицы, то без переделок можно кодом из http://www.planetaexcel.ru/forum.php?thread_id=26105 вывести на новый лист все номера с количеством повторов. Ну а если в том коде поковыряться - можно как угодно переделать. И быстрый. Так что именно нужно сделать? Код показал, что там нет повторов... P.S. У меня заработало с добавлением одного условия, чтоб пустые не гоняло: Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 26.08.2011 в 17:28. |
![]() |
![]() |
![]() |
#10 |
Форумчанин
Регистрация: 21.04.2011
Сообщений: 128
|
![]() Код:
![]() Спасибо всем кто откликнулся ![]() |
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Поиск совпадений | KillJoy | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 05.09.2011 11:53 |
Поиск совпадений | Claster | Общие вопросы Delphi | 4 | 22.06.2011 17:34 |
Поиск совпадений в ListBox | NiKiToZZ- | Помощь студентам | 7 | 05.01.2011 10:54 |
Поиск совпадений в БД | _PROGRAMM_ | PHP | 6 | 21.05.2010 13:53 |
Поиск совпадений | mistx | Microsoft Office Excel | 22 | 14.08.2009 13:41 |