Макрос для обработки двух массивов - сопоставление данных

[hammerman]

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

Да в общем несложно переделать, позже дома гляну.
На сравнение овердрафтов это не влияет - код одинаковый. Но за сравнение ещё не брался, не думал над этим.
Но вот что будете делать с 21ФЕВ - Вы точно уверены, что это было в 2012 году?

Получилось преобразовать, как Вы рекомендовали ячейки с датами. Надо же хоть что-нибудь делать руками.

[Hugo121]

К сожалению, из кода текст_по_столбцам не срабатывает и из макроса...

[hammerman]

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

К сожалению, из кода текст_по_столбцам не срабатывает и из макроса...

Спс. Сегодня покатаю и script и макрос. Посмотрим как удобней.
Осталось решить вопрос со сравнением овера.

[Hugo121]

Если сильно напрягает ручное преобразование дат, то конечно можно сделать это преобразование непосредственно перебором массива - пройтись циклом по массиву и каждое значение разложить на составляющие, проанализировать и собрать в дату. Те, где только день и месяц, думаю нужно так и оставить, или преобразовать в 21.02.1900
Макрос кстати можно запускать не кнопкой, а по событию workbook.open - будет почти как vbs.
Насчёт сравнения - мы имеем в конце кода (перед выгрузкой) два массива со всеми платежами и два массива с овердрафтами. Можно их сравнивать как угодно - можно сделать аналогично сравнению счёт/карта. Только мне как-то не ясно, что именно нужно получить - в файлах-примерах явно видно, что овердрафт в обоих файлах совпадает, можно эти суммы кодом сверить цикл в цикле: взяли первую сумму - если во втором массиве такая есть, то обе удалили, взяли следующую... В итоге оба массива будут пустые или с "дырами."

[hammerman]

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

Если сильно напрягает ручное преобразование дат, то конечно можно сделать это преобразование непосредственно перебором массива - пройтись циклом по массиву и каждое значение разложить на составляющие, проанализировать и собрать в дату. Те, где только день и месяц, думаю нужно так и оставить, или преобразовать в 21.02.1900"

Это нисколько не напрягает. Думаю даже привлекает.

[hammerman]

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

Насчёт сравнения - мы имеем в конце кода (перед выгрузкой) два массива со всеми платежами и два массива с овердрафтами. Можно их сравнивать как угодно - можно сделать аналогично сравнению счёт/карта. Только мне как-то не ясно, что именно нужно получить - в файлах-примерах явно видно, что овердрафт в обоих файлах совпадает, можно эти суммы кодом сверить цикл в цикле: взяли первую сумму - если во втором массиве такая есть, то обе удалили, взяли следующую... В итоге оба массива будут пустые или с "дырами."

Видно я неудачно выразил идею сравнения.
Прикладываю итоговую таблицу по сравнению, думаю так будет понятней.
Сравниваем по абсолютной величине данные из колонки E с листа "ОВЕРДРАФТ" с данными колонки F с листа "СЧЕТ - КАРТА" и данные из колонки N с листа "ОВЕРДРАФТ" с данными колонки F с листа "КАРТА - СЧЕТ". Берем первое равное значение (попробуем так. но могут быть случаи когда сравниваемых значений несколько пар получиться?).
Это даст возможность проанализировать была ли сумма процентов неразрешенного овердрафта возмещена клиенту по счету или карте.

[Hugo121]

По сравнению овердрафтов проверьте такие дополнения - добавьте в код (скрипт или макрос, всё равно) блок проверки массивов с овердрафтами (перед Dim objExcel,ActivateExcel, With ...Workbooks.Add(1)) т.е. перед процессом выгрузки массивов на лист)

'================================сравнение овердрафтов===================
'Сравниваем по абсолютной величине данные из колонки E с листа "ОВЕРДРАФТ" с данными колонки F с листа "СЧЕТ - КАРТА"
'ovs - массив овердрафтов счёта
'scet - массив сделок счёта
    a = scet
    For i = 0 To ovs_x - 1
        For ii = 0 To scet_ii - 1
            If ovs(i, 3) = a(ii, 4) Then
                ovs(i, 3) = "совпало"
                a(ii, 4) = ""
		exit for
            End If
        Next
    Next

'и данные из колонки N с листа "ОВЕРДРАФТ" с данными колонки F с листа "КАРТА - СЧЕТ".
'ovc - массив овердрафтов карты
'carta - массив сделок по карте
    a = carta
    For i = 0 To ovc_x - 1
        For ii = 0 To carta_ii - 1
            If ovc(i, 2) = a(ii, 4) Then
                ovc(i, 2) = "совпало"
                a(ii, 4) = ""
		exit for
            End If
        Next
    Next

'========================================================================

Вместо надписи "совпало" можно вообще стирать данные строкИ - тогда выгрузка будет с пустыми строками или в данном примере пустая.
Или потом создать два массива, куда переложить только заполненные строки и выгружать уже их.
Или выгружать сразу на лист, но не весь массив, а перебором строк только заполненные строки поячеечно (что дольше).

[hammerman]

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

По сравнению овердрафтов проверьте такие дополнения ...

Дополнения вставил. Прогнал script и макрос. Результат немного не тот.
Суть всей сверки овердрафтных сумм состоит в том, чтобы понять была ли сумма процентов за неразрешенный овердрафт со знаком "-" возмещена клиенту пополнением со знаком "+". Поэтому я и предположил, что можно сделать сверку по абсолютной величине.
P.S. Надеюсь Вы с пониманием относитесь к данной задаче.

[Hugo121]

Если нужно сравнивать по абсолютной величине (пропустил, не заметил), то тогда сравнивайте Abs(значение). Но тогда сперва нужно проверить эти значения на isnumeric(), иначе будет ошибка при преобразовании.

   For i = 0 To ovs_x - 1
        For ii = 0 To scet_ii - 1
            If IsNumeric(ovs(i, 3)) Then
                If IsNumeric(a(ii, 4)) Then
                    If Abs(ovs(i, 3)) = Abs(a(ii, 4)) Then
                        'MsgBox Abs(ovs(i, 3))
                        ovs(i, 3) = "совпало"
                        a(ii, 4) = ""
                        Exit For
                    End If
                End If
            End If
        Next
    Next

Или поставить перед циклами сравнения On Error Resume Next, чтоб на ошибках не выкидывало.
Ещё вариант - прибавить к одному другое. Если результат 0 - значит суммы компенсировались.

P.S. понимание минимальное

[hammerman]

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

P.S. понимание минимальное

Надеюсь этого минимума хватит до получения решения