Поиск по 2 столбцам Excel + суммирование

@FooX · Регистрация: 19.10.2014

Студворк — интернет-сервис помощи студентам

здасти стразу извинеюс за свой русскей но мне очен нужна помошч умелово VBA програмиста :/
сут в том что поиск линии должнен произходит через 2 атрибута (номер заказа + дата) и тогда вписать суму (если сума уже ведена суммироват ) и рядушком пишеца когда оплачино (на след месец может повтарица заказ потаму дата пишеца уже новая а старая удаляица) пример на картинке и в фаиле

Поиск по 2 столбцам Excel + суммирование

SoftIce · 19.10.2014, 05:41

Не по теме:

Сообщение от FooX

извинеюс за свой русскей

Такое впечатление, будто Вы умышленно коверкаете русские слова 8-) Удачи!

@FooX · 19.10.2014, 11:10 **[ТС]**

нет я не спрециално просто
1. я из Литвы
2. в школе я его неучил

3. я знаю что он у меня ужасен ;(

@Alex77755 · 19.10.2014, 12:43

Надо реальную книгу.
Как расположены таблицы?
Скорее всего на разных листах?

@FooX · 19.10.2014, 12:48 **[ТС]**

реалнай книги мне некто недал иза того что там Ёеты клинетов и т.д. да 1 таблица на 1 листе 2 на 2ро вы правы

) реалнай книги нету

если возможна на маей книги ето сделать.

незнаю надо или нет ну по моиму может быть так что такога чета еше нету и он должен добавица таблицу нормер 1 по разрастанию

@Hugo121 · 19.10.2014, 18:23

В общем всё не сложно - циклом по второй таблице ищем в первой координаты текущей строки, копируем туда текущее значение суммы и даты.
Т.е. например нашли где в первой таблице в одной строке 3 и 2014 Март, копируем туда 01.06.2014 и 25,25
Для ускорения можно сперва что где лежит запомнить в словаре, затем сразу брать из словаря номер строки, куда нужно копировать данные.
Если там уже есть сумма и дата - можно их суммировать, или заменять - смотря что нужно по задаче.
Если писать код на этом примере - вряд ли Вы сможете его переделать под свою таблицу. Покажите пример с реальным расположением данных, и с реальными форматами (там действительно год и месяц текстом прописаны?)

@FooX · 19.10.2014, 19:09 **[ТС]**

я думаю что смагу если есть вазможност пропишыте код а я уже посматрю если несмогу его переделать заплачю вам за 2ную работу через Wеbmaney или еше как небут

та там дата нпраписано текстом либо форматом yyyy mmmm

@Alex77755 · 19.10.2014, 20:42

В таблице2 комбинация Номер "заказа-Дата" уникальны? Повторяться могут?

@FooX · 19.10.2014, 20:53 **[ТС]**

Mogyt esli rabotniky bydet len ih soedinit

Добавлено через 1 минуту
No 6ans na pavtor malinej po syti nedolzno povtariaca

@Hugo121 · 19.10.2014, 20:56

Ну например что-то вроде этого:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
 
Sub tt()
    Dim a(), b(), i&, t$
 
    With Sheets(1)
        a = Range(.[D1], .Range("A" & Rows.Count).End(xlUp)).Value
    End With
 
    With CreateObject("scripting.dictionary"): .comparemode = 1
        For i = 3 To UBound(a)
            .Item(a(i, 1) & "|" & a(i, 4)) = i
        Next
 
        With Sheets(2)
            b = Range(.[D1], .Range("A" & Rows.Count).End(xlUp)).Value
        End With
 
        For i = 3 To UBound(b)
            t = b(i, 1) & "|" & b(i, 4)
            If .exists(t) Then
                If Len(a(.Item(t), 2)) Then
                    a(.Item(t), 2) = a(.Item(t), 2) & Chr(10) & b(i, 2) & "=" & b(i, 3)
                Else
                    a(.Item(t), 2) = b(i, 2) & "=" & b(i, 3)
                End If
                a(.Item(t), 3) = a(.Item(t), 3) + b(i, 3)
            End If
        Next
 
    End With
 
    With Sheets(1)
        Range(.[D1], .Range("A" & Rows.Count).End(xlUp)).Value = a
    End With
 
 
End Sub

Ну а если даты написаны то текстом то форматом - нужно это в коде обрабатывать дополнительно.

Добавлено через 1 минуту
Повторы во второй таблице моему коду не мешают, будет их все добавлять.

@Alex77755 · 19.10.2014, 20:56

Так примерно. Данные добавляются в таблицу1
Можно выгружать на лист3 что бы не портить таблицу1
Повторы во второй таблице моему коду тоже не мешают, будет их все добавлять.
Дата будет в табл1 последняя

@FooX · 19.10.2014, 20:58 **[ТС]**

Oni ynikalni 1 tablice no ne 2

@Alex77755 · 19.10.2014, 21:02

Сегодня, 19:56

Не по теме:

Наперегонки прям!

@FooX · 19.10.2014, 21:02 **[ТС]**

Sps patom proveriy. List 3 ne katit. Tak kak syt makrosa vse pisat yze sy6estvyemyjy tablicy gde 65000 zakaz4ikov. Zavtra proveroy realnyjy tablicy nas4et formata dati i skazy

@Alex77755 · 19.10.2014, 21:36

При записи в существующую таблицу есть вероятность повторного выполнения макроса с добавлением данных.
Тогда надо удалять табл2

@Hugo121 · 19.10.2014, 21:57

Или проверять, что за такую дату такая сумма ещё не записана. Хотя возможно что такое может быть - сперва утром заплатили половину, затем вечером вторую. Вообще конечно нужно обработанную вторую таблицу сразу кодом удалять.
А вообще думаю правильнее все платежи так и держать в одной базе, и суммировать только для оперативного просмотра, временно, можно сводной или запросом, ну или макросом. Так гарантированно не будет ложных дубликатов.
Т.е. меняйте схему работы.

Добавлено через 3 минуты
Да, по моему коду - я там на каждое значение 5 раз извлекаю .Item(t) - для ускорения лучше этот номер строки извлечь один раз в переменную, затем использовать её.

@Alex77755 · 20.10.2014, 10:12

Я изначально считаю, что ексел не лучшее средство для ведения бухгалтерии и учёта.
Скорее худшее.
Есть огромное множество (в том числе и бесплатных) бухгалтерских программ.
А если уж вести в экселе, то вести журнал операций.
А нужные отчёты за любой период делать запросами

@FooX · 20.10.2014, 10:16 **[ТС]**

я свами полнострю согласен ну не мне решат я им предлагал етат вариант они отказалис приходица упрастит им работу хотя бы минимум използуя макросы в екселе

кстати проверил ваш макрос он работаит хорошо толко один вапрос некак немогу понят значения аргументов каторих вы описали самом начеле так как ишю как решыт одну проблему у вас в макросе (то что Ёдата оплатыЁ автаматом удаляюца когда запускаю макрос заново) вот и ишю каком месте надо чтота довабит либо изменит чтоб он толко переписавал те каторие уже есть но не удалял бы старие

ну попытаюс вечером разабраца

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@FooX 0 / 0 / 0 Регистрация: 19.10.2014 Сообщений: 8
	19.10.2014, 11:10 [ТС]
	нет я не спрециално просто 1. я из Литвы 2. в школе я его неучил 3. я знаю что он у меня ужасен ;( 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	19.10.2014, 12:43
	Надо реальную книгу. Как расположены таблицы? Скорее всего на разных листах? 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	19.10.2014, 18:23
	В общем всё не сложно - циклом по второй таблице ищем в первой координаты текущей строки, копируем туда текущее значение суммы и даты. Т.е. например нашли где в первой таблице в одной строке 3 и 2014 Март, копируем туда 01.06.2014 и 25,25 Для ускорения можно сперва что где лежит запомнить в словаре, затем сразу брать из словаря номер строки, куда нужно копировать данные. Если там уже есть сумма и дата - можно их суммировать, или заменять - смотря что нужно по задаче. Если писать код на этом примере - вряд ли Вы сможете его переделать под свою таблицу. Покажите пример с реальным расположением данных, и с реальными форматами (там действительно год и месяц текстом прописаны?) 0

@FooX 0 / 0 / 0 Регистрация: 19.10.2014 Сообщений: 8
	19.10.2014, 19:09 [ТС]
	я думаю что смагу если есть вазможност пропишыте код а я уже посматрю если несмогу его переделать заплачю вам за 2ную работу через Wеbmaney или еше как небут та там дата нпраписано текстом либо форматом yyyy mmmm 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	19.10.2014, 20:42
	В таблице2 комбинация Номер "заказа-Дата" уникальны? Повторяться могут? 0

@FooX 0 / 0 / 0 Регистрация: 19.10.2014 Сообщений: 8
	19.10.2014, 20:53 [ТС]
	Mogyt esli rabotniky bydet len ih soedinit Добавлено через 1 минуту No 6ans na pavtor malinej po syti nedolzno povtariaca 0

@FooX 0 / 0 / 0 Регистрация: 19.10.2014 Сообщений: 8
	19.10.2014, 20:58 [ТС]
	Oni ynikalni 1 tablice no ne 2 0

@FooX 0 / 0 / 0 Регистрация: 19.10.2014 Сообщений: 8
	19.10.2014, 21:02 [ТС]
	Sps patom proveriy. List 3 ne katit. Tak kak syt makrosa vse pisat yze sy6estvyemyjy tablicy gde 65000 zakaz4ikov. Zavtra proveroy realnyjy tablicy nas4et formata dati i skazy 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	19.10.2014, 21:36
	При записи в существующую таблицу есть вероятность повторного выполнения макроса с добавлением данных. Тогда надо удалять табл2 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	19.10.2014, 21:57
	Или проверять, что за такую дату такая сумма ещё не записана. Хотя возможно что такое может быть - сперва утром заплатили половину, затем вечером вторую. Вообще конечно нужно обработанную вторую таблицу сразу кодом удалять. А вообще думаю правильнее все платежи так и держать в одной базе, и суммировать только для оперативного просмотра, временно, можно сводной или запросом, ну или макросом. Так гарантированно не будет ложных дубликатов. Т.е. меняйте схему работы. Добавлено через 3 минуты Да, по моему коду - я там на каждое значение 5 раз извлекаю .Item(t) - для ускорения лучше этот номер строки извлечь один раз в переменную, затем использовать её. 0

@Alex77755 11525 / 3812 / 683 Регистрация: 13.02.2009 Сообщений: 11,229
	20.10.2014, 10:12
	Я изначально считаю, что ексел не лучшее средство для ведения бухгалтерии и учёта. Скорее худшее. Есть огромное множество (в том числе и бесплатных) бухгалтерских программ. А если уж вести в экселе, то вести журнал операций. А нужные отчёты за любой период делать запросами 0

@FooX 0 / 0 / 0 Регистрация: 19.10.2014 Сообщений: 8
	20.10.2014, 10:16 [ТС]
	я свами полнострю согласен ну не мне решат я им предлагал етат вариант они отказалис приходица упрастит им работу хотя бы минимум използуя макросы в екселе кстати проверил ваш макрос он работаит хорошо толко один вапрос некак немогу понят значения аргументов каторих вы описали самом начеле так как ишю как решыт одну проблему у вас в макросе (то что Ёдата оплатыЁ автаматом удаляюца когда запускаю макрос заново) вот и ишю каком месте надо чтота довабит либо изменит чтоб он толко переписавал те каторие уже есть но не удалял бы старие ну попытаюс вечером разабраца 0