|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
04.04.2011, 12:07 | #31 |
Пользователь
Регистрация: 04.03.2011
Сообщений: 35
|
СПАСИБО, огромнейшее!
Всё работает отлично! Только получилось, что макрос подсчитывает просто кол-во одинаковых строк, а мне нужно еще и столбец с количеством. Но это всё не проблема, я формулами всё сделал, только вот получился лишний столбец (желтый в примере) с кол-вом одинаковых позиций. Его можно как-нибудь убрать в макросе, чтобы просто записывались названия авто или может сделать так чтобы подсчитывал сразу кол-во? Проще наверное удалить Последний раз редактировалось Pecnekm; 05.04.2011 в 11:53. |
05.04.2011, 12:03 | #32 |
Пользователь
Регистрация: 04.03.2011
Сообщений: 35
|
Всё еще взываю к помощи... никак не могу разобраться как удалить столбец с подсчетом одинаковых позиций(желтый в примере). Подскажите, пожалуйста! |
05.04.2011, 12:25 | #33 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Без Items:
Код:
webmoney: E265281470651 Z422237915069 R418926282008
|
05.04.2011, 12:43 | #34 |
Пользователь
Регистрация: 04.03.2011
Сообщений: 35
|
Не работает
Оно не пишет ничего в соседний столбец, но всё равно удаляет из него всё содержимое. То есть получается чистый столбец в который нельзя ничего записать. |
05.04.2011, 13:17 | #35 |
Пользователь
Регистрация: 04.03.2011
Сообщений: 35
|
Кажется разобрался...
Если удалить строку : Код:
|
05.04.2011, 13:39 | #36 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Да, очистку выше я сперва не заметил, ну зато Вы опыт получили.
А насчёт правильно - ну раз Вам подсчитанные количества повторений не нужны, то и выводить их не нужно. Другое дело, что тогда и считать их незачем, ну да ладно, компьютер железный Хотя при таком подходе к словарю можно всего лишь один плюс сэкономить If Len(s) Then .Item(s) = "что-то" '.Item(s) + 1
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 05.04.2011 в 13:45. |
05.04.2011, 13:52 | #37 |
Пользователь
Регистрация: 04.03.2011
Сообщений: 35
|
Вы знаете, когда удалил очистку, макрос не корректно стал работать.
Не обновлял данные которые отсортировал. Вот когда поменял в "Rng2.Resize(, 2)" двойки на единицы, вроде заработало: Код:
Код:
Они то нужно, но нужно чтобы еще учитывалась колонка с кол-вом. А так как в макросе не могу это организовать, сделал формулами Последний раз редактировалось Pecnekm; 05.04.2011 в 13:58. |
05.04.2011, 14:06 | #38 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Вообще-то удаление очистки не должно влиять на работу макроса - просто могут остаться хвосты, если вдруг уникальных станет меньше.
Про суммы не понятно - можно вместо количества повторов суммировать суммы. Просто заносите в Item первую сумму, потом прибавляете следующую. Если нужно и одно, и другое - можно в Item класть массив, в котором суммировать и одно, и другое, и что-нибудь ещё можно хранить.
webmoney: E265281470651 Z422237915069 R418926282008
|
05.04.2011, 14:22 | #39 | |
Пользователь
Регистрация: 04.03.2011
Сообщений: 35
|
Цитата:
Я не очень силен в макросах, по этому мне это будет не легко сделать |
|
06.04.2011, 12:00 | #40 |
Пользователь
Регистрация: 04.03.2011
Сообщений: 35
|
Опять макрос кривовато работает
...достал уже... Теперь если удалить весь список из которого он выбирает уникальные позиции - макрос перестает работать. Только после того как над первой ячейкой отчета написать что-нибудь(зеленая ячейка на примере), макрос запускается и нормально работает. Что с ним опять не так, подскажите, пожалуйста?!? |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как присвоить одной ячейке несколько значений? | Хорошая Девочка | Microsoft Office Excel | 2 | 10.10.2010 20:58 |
Присвоить ячейке StringGrid переменную | DimOn4Ik | Помощь студентам | 6 | 19.01.2010 16:27 |
присвоить значение ячейки с курсором ячейке А1 | Temnota | Microsoft Office Excel | 5 | 24.11.2009 21:10 |
Как присвоить ячейке имя? | Maxx | Microsoft Office Excel | 2 | 01.11.2008 11:30 |
как присвоить значение ячейки R1C1 из 1.xls, допустим какой-нибудь любой ячейке из 2.xls ? | diabloskrk | Microsoft Office Excel | 3 | 08.10.2007 12:27 |