Есть таблица (рабочий журнал). В примере 10 проб с разным кол-вом исследований, каждое иссл-ие - новой строкой. Функция промежуточные итоги мне считает пробы по первому столбцу, иссл-ия - по второму. Затем я применяю фильтр, например в столбце 13 выбираю фотометричекий метод. И пробы уже не считаются. Можно прописать номер пробы в каждой строке, но тогда нужно исключить из подсчета повторы. Кнопка "удалить дубликаты" тут не помощник, слишком велик риск потерять данные. Помогите, может это и очень просто решается, но я что-то никак не соображу...
Промежуточные итоги - исключить повторяющиеся данные
24.03.2011 22:12:29
|
|
|
|
24.03.2011 22:14:04
Извините, что-то я не подписалась :)
|
|
|
|
24.03.2011 23:00:20
фрагмент автономной справки Excel 2003:
Функция ПРОМЕЖУТОЧНЫЕ.ИТОГИ исключает все строки не включенные в результат фильтра независимо от используемого значения константы номер_функции.
фрилансер Excel, VBA - контакты в
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг |
|
|
|
24.03.2011 23:30:12
Может быть вам лучше использовать
сводную таблицу. И где данные, которые надо суммировать? |
|
|
|
25.03.2011 01:07:46
Так?
|
|
|
|
25.03.2011 01:40:24
{quote}{login=Казанский}{date=25.03.2011 01:07}{thema=}{post}Так?{/post}{/quote}
Нет, не работает :( |
|
|
|
25.03.2011 09:51:11
Посмотрите сводную.
Столбцы "метод" и "раздел" в области страницы сводной таблицы, там вы можете выбрать, к примеру, фотометрический |
|
|
|
25.03.2011 10:35:42
без сводной, но с UDF
смотрите жёлтую ячейку пс. делал в Excel 2002, поэтому список переделал в обычный фильтр и в промежуточных итогах функцию 103 поменял на 3. если решение устроит, можете просто вставить текст UDF из моего примера и в любой стандартный модуль вашего файла. ппс. (знатокам). да, я знаю, что UDF написана не лучшим образом. но вроде бы работает. сейчас бум оптимизировать :)
фрилансер Excel, VBA - контакты в
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг |
|
|
|
25.03.2011 11:03:20
{quote}{login=ikki}{date=25.03.2011 10:35}{thema=}{post}...сейчас бум оптимизировать :){/post}{/quote}
(смущенный смайлик) советы от знатоков принимаются с благодарностью. кроме того, м.б. было бы полезно усовершенствовать UDF - 1. включать/выключать режим обработки скрытых ячеек (ну это вроде понятно, второй аргумент-флажок, и в текст добавить еще проверку .Column.Hidden); 2. считать любые уникальные значения, а не только числа. вот тут я немного торможу... Variant использовать? 3. быстрее надо работать :) спасибо.
фрилансер Excel, VBA - контакты в
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг |
|
|
|
26.03.2011 22:16:02
{quote}{login=kelebring}{date=26.03.2011 09:55}{thema=}{post}ikki, спасибо огромное!!! Все работает! Единственное, есть небольшой глюк. Когда в таблицу добавляю пустые строки показывает на единицу больше чем надо. Когда строки заполняю все нормально считает. Там наверное неотображаемый символ какой-то прописывается?
Kuzmich, вам тоже спасибо. Буду на досуге играться, но мне это не подходит. Просто к концу года в таблице будет около 2000 проб (и 30000 строк), слишком много вниз мотать прийдется :){/post}{/quote} немного дополненный и исправленный вариант. пс. Excel 2003, ваш список остался на месте
фрилансер Excel, VBA - контакты в
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг |
|
|
|
26.03.2011 22:59:19
пс. Excel 2003, ваш список остался на месте
У меня дома 2010 а на работе 2007, в понедельник там посмотрю. :) Еще раз спасибо! |
|
|
|
27.03.2011 11:57:17
{quote}{login=The_Prist}{date=27.03.2011 11:38}{thema=}{post}Я бы, наверное, так сделал:
... Set oDict = CreateObject("Scripting.Dictionary") ... {/post}{/quote} словари, да? :) что-то такое я уже здесь видел... Алексей (Alex_ST) обсуждал со слэном, кажется. но... "это мы не проходили" (с). пока ещё. :) а работать будет намного быстрее? ну без тестирования, навскидку?
фрилансер Excel, VBA - контакты в
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг |
||||
|
|
|||
Читают тему