Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Получить список наиболее уплативших / 11 сообщений из 11, страница 1 из 1
13.10.2012, 16:05
    #37996985
Chumakov_JA
Chumakov_JA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить список наиболее уплативших
Имеем список поступивших платежей

нужно узнать в убывающем порядке, кто и скока заплатил.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2012, 16:08
    #37996988
Chumakov_JA
Chumakov_JA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить список наиболее уплативших
Chumakov_JA,

в догонку сводную таблицу не предлогать
ищу альтернативу от неё отказаться.
поле NUM в таблице меняется постоянно
(новые приходят, старые уходят)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2012, 16:17
    #37996992
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить список наиболее уплативших
Chumakov_JAсводную таблицу не предлогатьSQL-запрос предлагать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2012, 16:19
    #37996994
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить список наиболее уплативших
Chumakov_JA,

так нужно на макросах или формулах ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2012, 16:44
    #37997012
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить список наиболее уплативших
Shocker.ProChumakov_JAсводную таблицу не предлогатьSQL-запрос предлагать?нет ответа... ну в общем вот:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Dim cn As Object, rs As Object
Set cn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + ThisWorkbook.FullName + ";Extended Properties='Excel 8.0'"
rs.Open "select NUM, Sum(SUM) from [Лист2$] group by NUM order by Sum(SUM) DESC", cn, 3
Cells(1, 5).CopyFromRecordset rs
rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2012, 17:13
    #37997029
портер
портер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить список наиболее уплативших
Shocker.Pro, небольшое дополнение: если запрос в той же книге, что и код, то при многократном использовании память утекает как песочная собака. (Если в другой, то тоже утекает, но вроде не так шустро.)
Я бы ч-з сводную делал с источником типа Range("A1").CurrentRegion
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2012, 17:18
    #37997034
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить список наиболее уплативших
портерЯ бы ч-з сводную делалНизя, ТС не разрешает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2012, 17:19
    #37997035
портер
портер
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить список наиболее уплативших
Как вар-т(без сводной) - MS Query использовать. Тот же "select NUM, Sum(SUM) from MyRange group by NUM order by Sum(SUM) DESC" без ADO. MyRange - именованный диапазон.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2012, 19:08
    #37997084
Chumakov_JA
Chumakov_JA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить список наиболее уплативших
Извените что не отвечал

Shocker.ProпортерЯ бы ч-з сводную делалНизя, ТС не разрешает.

у меня сейчас так и сделанно
но думал уйти от сводной таблицы

и как понял сводная таблица наилучший вариант

а вот если формулой
или такой вариант
макрос
сначало автофильтр


потом в ячейку
H2 b с копированием вниз во все строки

=СУММЕСЛИ(A:A;G2;C:C)

и после сортировка столбца H в порядке убывания

суть вопроса стоит уходить от сводной таблицы или нет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2012, 22:06
    #37997212
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить список наиболее уплативших
Chumakov_JAсуть вопроса стоит уходить от сводной таблицы или нет
для этой задачи сводная таблица - правильный выбор.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.10.2012, 22:40
    #37997249
Chumakov_JA
Chumakov_JA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Получить список наиболее уплативших
Всем огромное спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Получить список наиболее уплативших / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 467ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2175320]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 31ms
get topic data:
 13ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 2ms
others: 331ms
total:  467ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]