ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Получить список наиболее уплативших
11 сообщений из 11, страница 1 из 1
Получить список наиболее уплативших
    #37996985
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chumakov_JA
Участник
Имеем список поступивших платежей

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

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

так нужно на макросах или формулах ?
...
Рейтинг: 0 / 0
13.10.2012, 16:19
| Ответить | Цитировать | Написать  
Получить список наиболее уплативших
    #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, 16:44
| Ответить | Цитировать | Написать  
Получить список наиболее уплативших
    #37997029
портер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
портер
Гость
Shocker.Pro, небольшое дополнение: если запрос в той же книге, что и код, то при многократном использовании память утекает как песочная собака. (Если в другой, то тоже утекает, но вроде не так шустро.)
Я бы ч-з сводную делал с источником типа Range("A1").CurrentRegion
...
Рейтинг: 0 / 0
13.10.2012, 17:13
| Ответить | Цитировать | Написать  
Получить список наиболее уплативших
    #37997034
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
портерЯ бы ч-з сводную делалНизя, ТС не разрешает.
...
Рейтинг: 0 / 0
13.10.2012, 17:18
| Ответить | Цитировать | Написать  
Получить список наиболее уплативших
    #37997035
портер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
портер
Гость
Как вар-т(без сводной) - MS Query использовать. Тот же "select NUM, Sum(SUM) from MyRange group by NUM order by Sum(SUM) DESC" без ADO. MyRange - именованный диапазон.
...
Рейтинг: 0 / 0
13.10.2012, 17:19
| Ответить | Цитировать | Написать  
Получить список наиболее уплативших
    #37997084
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chumakov_JA
Участник
Извените что не отвечал

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

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

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

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


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

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

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

суть вопроса стоит уходить от сводной таблицы или нет
...
Рейтинг: 0 / 0
13.10.2012, 19:08
| Ответить | Цитировать | Написать  
Получить список наиболее уплативших
    #37997212
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Chumakov_JAсуть вопроса стоит уходить от сводной таблицы или нет
для этой задачи сводная таблица - правильный выбор.
...
Рейтинг: 0 / 0
13.10.2012, 22:06
| Ответить | Цитировать | Написать  
Получить список наиболее уплативших
    #37997249
Chumakov_JA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Chumakov_JA
Участник
Всем огромное спасибо
...
Рейтинг: 0 / 0
13.10.2012, 22:40
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Получить список наиболее уплативших
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2175320]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 29ms
get topic data:
 11ms
get first new msg:
 8ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 314ms
total:  450ms
созд. / загр.: 450ms
x
x
Закрыть


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