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

[Hugo121]

Пока так.
Не придумал, как сопоставлять овердрафты - просто вывожу в два столбца.
Ещё - номера по порядку нужны?

[hammerman]

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

Пока так.
Не придумал, как сопоставлять овердрафты - просто вывожу в два столбца.
Ещё - номера по порядку нужны?

Отлично! Уже опробовал. Все на ура!!
Сегодня покатаю еще!

[hammerman]

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

Пока так.
Не придумал, как сопоставлять овердрафты - просто вывожу в два столбца.
Ещё - номера по порядку нужны?

Думаю пока с номером по порядку можно подождать.
Да ... отличный script получился.

[hammerman]

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

Пока так.
Не придумал, как сопоставлять овердрафты - просто вывожу в два столбца.
Ещё - номера по порядку нужны?

Сегодня погонял Ваш script. Немного изменил его: в части названия листов в файле xls и выводимых столбцов. Не получилось только добавить название колонки L (Сумма операции из файла "счет") на листе карта-счет.
Показал другим. Появилось сразу несколько пожеланий.
1. Можно ли в итоговой таблице xls сделать колонки с датами в формате дата ДД.ММ.ГГГГ?
2. Можно ли в итоговой таблице xls сделать колонки с числовыми значениями в формате дата 999 999.99 или -999 999.99?
3. Есть идея как проверить были суммы овердрафта на возмещение по карте и счету: сравнить по абсолютной величине данные из колонки E с листа "ОВЕРДРАФТ" с данными колонки F с листа "СЧЕТ - КАРТА" и данные из колонки K с листа "ОВЕРДРАФТ" с данными колонки F с листа "КАРТА - СЧЕТ".

[Hugo121]

1. С форматом колонок пока не очень хорошо - задать можно (весь блок немного иначе переписал):

    With objExcel.Workbooks.Add(1)
        With .Sheets(1)
            .Name = "КАРТА - СЧЕТ"
            .Range("a1").Resize(, 11) = Split("№ п/п|Дата операции|Дата обработки|Место совершения|Сумма в валюте|Сумма в валюте счета|||Вид|Стат|Дата проведения|Сумма операции", "|")
            .Columns(2).NumberFormat = "dd.mm.yyyy"
            .Columns(3).NumberFormat = "dd.mm.yyyy"
            .Columns(5).NumberFormat = "#,##0.00"
            .Columns(6).NumberFormat = "#,##0.00"
            .Columns(12).NumberFormat = "#,##0.00"
            .Range("b2:f2").Resize(carta_ii) = carta
            .Range("i2").Resize(UBound(c), 4) = c
        End With

        With .Sheets.Add(, .Sheets(.Sheets.Count))
            .Name = "СЧЕТ - КАРТА"
            .Range("a1").Resize(, 11) = Split("№ п/п|Вид|Стат|Дата проведения|Дата совершения|Сумма операции|||Дата операции|Место совершения|Сумма в валюте счета", "|")
            .Range("b2:f2").Resize(scet_ii) = scet
            .Range("i2").Resize(UBound(cc), 3) = cc
        End With

        With .Sheets.Add(, .Sheets(.Sheets.Count))
            .Name = "НЕТ В КАРТЕ ИЛИ СЧЕТЕ"
            .Range("a1").Resize(, 10) = Split("№ п/п|Вид|Стат|Дата проведения|Сумма операции|||№ п/п|Дата операции|Место совершения|Сумма в валюте счета", "|")
            .Range("i2").Resize(r_x, 3) = r
            .Range("b2").Resize(rr_x, 4) = rr
        End With

        With .Sheets.Add(, .Sheets(.Sheets.Count))
            .Name = "ОВЕРДРАФТ"
            .Range("a1").Resize(, 10) = Split("№ п/п|Вид|Стат|Дата проведения|Сумма операции|||№ п/п|Дата операции|Место совершения|Сумма в валюте счета", "|")
            .Range("b2").Resize(ovs_x, 4) = ovs
            .Range("i2").Resize(ovc_x, 3) = ovc
        End With
    End With

И если Эксель русский - то данные правильно преобразуются, но только если им вручную сделать "текст по столбцам - готово".
Из скрипта прописать пока времени нет. Проще сделать всё макросом из-под Экселя - там код можно брать как есть из-под рекордера...
2. Не понял - разделитель разрядов хотите добавить? Тогда см. выше - для первого листа для трёх колонок добавил, и работает.
3. Не смотрел.

[hammerman]

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

1. С форматом колонок пока не очень хорошо - задать можно (весь блок немного иначе переписал):

И если Эксель русский - то данные правильно преобразуются, но только если им вручную сделать "текст по столбцам - готово".
Из скрипта прописать пока времени нет. Проще сделать всё макросом из-под Экселя - там код можно брать как есть из-под рекордера...
2. Не понял - разделитель разрядов хотите добавить? Тогда см. выше - для первого листа для трёх колонок добавил, и работает.
3. Не смотрел.

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

[Hugo121]

Надо встать на нее - нажать редактировать - ввод и только тогда преобразовывается в нормальную ячейку с форматом дата.

-так про это я и говорил - "текст по столбцам - готово".
Т.е. выделить столбец - "текст по столбцам - готово".
Но всёж лучше выгрузку наладить, чтоб корректно дату выводило - т.к. так получится 21ФЕВ = 21.02.2012
И кстати под английским Экселем тоже нормально в дату преобразует.

А скриптом провернуть это преобразование не получилось - там "текст по столбцам" не получается выполнить, или я просто не умею его заставить...
Можно всё переделать под выполнение как макрос из Экселя - тогда должно получиться.

[hammerman]

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

Можно всё переделать под выполнение как макрос из Экселя - тогда должно получиться.

Я не сильно еще Вас одолел?
Насколько это критично все переделать под макрос?
И может тогда проще проверить были ли суммы овердрафта на возмещение по карте и счету (сравнить по абсолютной величине данные из колонки E с листа "ОВЕРДРАФТ" с данными колонки F с листа "СЧЕТ - КАРТА" и данные из колонки K с листа "ОВЕРДРАФТ" с данными колонки F с листа "КАРТА - СЧЕТ")?

[Hugo121]

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

[hammerman]

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

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

Это колонка с датой совершения операции только на листе "КАРТА - СЧЕТ" и там есть вторая дата, на ктр можно ориентироваться при анализе (будем считать ее уникальной для этой операции, т.к. там есть год).